hm_read_inista.F File Reference

#include "implicit_f.inc"
#include "scr03_c.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	hm_read_inista (s0file, isigi, ioutp_fmt, irootyy_r, lsubmodel)

Function/Subroutine Documentation

hm_read_inista()

subroutine hm_read_inista	(	character(len=ncharline)	s0file,
		integer	isigi,
		integer	ioutp_fmt,
		integer	irootyy_r,
		type(submodel_data), dimension(*)	lsubmodel )

Definition at line 37 of file hm_read_inista.F.

C-----------------------------------------------
C   M o d u l e s
C-----------------------------------------------
      USE submodel_mod
      USE hm_option_read_mod
      USE names_and_titles_mod , ONLY : ncharline
C-----------------------------------------------
C   I m p l i c i t   T y p e s
C-----------------------------------------------
#include      "implicit_f.inc"
C-----------------------------------------------
C   C o m m o n   B l o c k s
C-----------------------------------------------
#include      "scr03_c.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      CHARACTER(LEN=NCHARLINE) :: S0FILE
      INTEGER ISIGI,IOUTP_FMT,IROOTYY_R
      TYPE(SUBMODEL_DATA) LSUBMODEL(*)
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER NINISTA,IB,SIZ
      LOGICAL IS_AVAILABLE
C=======================================================================
C
      is_available = .false.
C
      ! Count number of Inista card
      CALL hm_option_count('/INISTA',ninista)
C
      IF (ninista > 0) THEN
C
        ! Start reading /INIGRAV card
        CALL hm_option_start('/INISTA')
C
        ! Read title, ID and Unit ID
        CALL hm_option_read_key(lsubmodel)
C
        ! Read card
        CALL hm_get_string('ISRTY',s0file   ,ncharline   ,is_available)
        siz = len_trim(s0file)
        CALL hm_get_intv('IBAL'   ,ib       ,is_available,lsubmodel)
        CALL hm_get_intv('IOUTYY' ,ioutp_fmt,is_available,lsubmodel)
        CALL hm_get_intv('IOUTYNN',irootyy_r,is_available,lsubmodel)
C
        IF (invers < 90 .AND. irootyy_r == 0) irootyy_r = 2
C
        ! Setting ISIGI values
        IF (ib <= 1) isigi = 3
        IF (ib == 2) isigi = 4
        IF (ib == 3) isigi = 5
C
      ELSE
        ! Default value
        isigi     = 0
        ioutp_fmt = 0
        irootyy_r = 0
      ENDIF
C-----------