READ_SURF_ATM Subroutine

  1. read_surf_atm.F90
  2. READ_SURF_ATM

subroutine READ_SURF_ATM(HPROGRAM, PFIELD, KFORC_STEP, KNB, KINIT)

Arguments

Type IntentOptional AttributesName
character(len=6), intent(in) :: HPROGRAM
real, intent(inout), DIMENSION(:,:):: PFIELD
integer, intent(in) :: KFORC_STEP
integer, intent(in) :: KNB
integer, intent(in) :: KINIT

Contents

Source Code

READ_SURF_ATM

Source Code

SUBROUTINE READ_SURF_ATM     (HPROGRAM, PFIELD,                    &
                              KFORC_STEP, KNB, KINIT               )
!**************************************************************************
IMPLICIT NONE
!
! global variables
INTEGER,             INTENT(IN)  :: KFORC_STEP
INTEGER,             INTENT(IN)  :: KNB  
INTEGER,             INTENT(IN)  :: KINIT
CHARACTER(LEN=6)    ,INTENT(IN)  :: HPROGRAM
REAL, DIMENSION(:,:),INTENT(OUT) :: PFIELD
END SUBROUTINE READ_SURF_ATM