hm_read_sphglo.F File Reference

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

Go to the source code of this file.

Functions/Subroutines
subroutine	hm_read_sphglo (lsubmodel)

Function/Subroutine Documentation

hm_read_sphglo()

subroutine hm_read_sphglo

(

type(submodel_data), dimension(*), intent(in)

lsubmodel

)

Definition at line 37 of file hm_read_sphglo.F.

C-----------------------------------------------
C   ROUTINE DESCRIPTION :
C   ===================
C   READ /SPHGLO USING HM_READER
C-----------------------------------------------
C   DUMMY ARGUMENTS DESCRIPTION:
C   ===================
C     NAME            DESCRIPTION                         
C     LSUBMODEL       SUBMODEL STRUCTURE     
C-----------------------------------------------
C   M o d u l e s
C-----------------------------------------------
      USE hm_option_read_mod
      USE submodel_mod
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      "sphcom.inc"
#include      "scr03_c.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
C INPUT ARGUMENTS
      TYPE(SUBMODEL_DATA),INTENT(IN)::LSUBMODEL(*)
C OUTPUT ARGUMENTS
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER I,NB_SPHGLO,SUB_ID,BID
      LOGICAL IS_AVAILABLE
C============================================================================
      is_available = .false.
C----------------------------------------------
C     global parameters for SPH.
      spasort=fourth 
C
      IF (invers < 130) THEN
        IF(lvoisph==0) lvoisph=120
        IF(kvoisph==0) kvoisph=120  
      ELSE    
        IF(lvoisph==0) lvoisph=120
        IF(kvoisph==0) kvoisph=240
      ENDIF
      itsol2sph=1
C
      CALL hm_option_count('/SPHGLO', nb_sphglo)
      CALL hm_option_start('/SPHGLO')
      DO i=1,nb_sphglo
        CALL hm_option_read_key(lsubmodel, submodel_id = sub_id)
        IF(sub_id == 0) THEN
          CALL hm_get_floatv_without_uid('ALPHA2',spasort,is_available)
          CALL hm_get_intv('ALE_MAXSPH',bid,is_available,lsubmodel)
          CALL hm_get_intv('ALE_KVOISPH',lvoisph,is_available,lsubmodel)
          CALL hm_get_intv('ALE_Form',kvoisph,is_available,lsubmodel)
          CALL hm_get_intv('sphglo_isol2sph',ITSOL2SPH,IS_AVAILABLE,LSUBMODEL)
C         SPASORT=MIN(HALF,SPASORT)
          IF(SPASORT==ZERO) SPASORT=FOURTH
          IF(KVOISPH<120)KVOISPH=120
          IF(LVOISPH==0)LVOISPH=KVOISPH
          IF(ITSOL2SPH==0) ITSOL2SPH=1
          IF(KVOISPH<LVOISPH)KVOISPH=LVOISPH
          EXIT
        ENDIF
      ENDDO
      SPATRUE=SPASORT
C
C--------------------------------------------------------------
      RETURN