8 hprogram,hinit,oland_use, &
11 pzenith,pazim,psw_bands,pdir_alb,psca_alb, &
12 pemis,ptsrad,ptsurf, &
13 kyear, kmonth,kday, ptime, &
14 hatmfile,hatmfiletype, &
70 USE yomhook
,ONLY : lhook, dr_hook
71 USE parkind1
,ONLY : jprb
73 USE modi_init_ideal_flux
84 TYPE(isba_model_t
),
INTENT(INOUT) :: im
91 TYPE(dst_t),
INTENT(INOUT) :: dst
92 TYPE(slt_t),
INTENT(INOUT) :: slt
93 TYPE(sv_t),
INTENT(INOUT) :: sv
95 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
96 CHARACTER(LEN=3),
INTENT(IN) :: hinit
97 LOGICAL,
INTENT(IN) :: oland_use
98 INTEGER,
INTENT(IN) :: ki
99 INTEGER,
INTENT(IN) :: ksv
100 INTEGER,
INTENT(IN) :: ksw
101 CHARACTER(LEN=6),
DIMENSION(KSV),
INTENT(IN) :: hsv
102 REAL,
DIMENSION(KI),
INTENT(IN) :: pco2
103 REAL,
DIMENSION(KI),
INTENT(IN) :: prhoa
104 REAL,
DIMENSION(KI),
INTENT(IN) :: pzenith
105 REAL,
DIMENSION(KI),
INTENT(IN) :: pazim
106 REAL,
DIMENSION(KSW),
INTENT(IN) :: psw_bands
107 REAL,
DIMENSION(KI,KSW),
INTENT(OUT) :: pdir_alb
108 REAL,
DIMENSION(KI,KSW),
INTENT(OUT) :: psca_alb
109 REAL,
DIMENSION(KI),
INTENT(OUT) :: pemis
110 REAL,
DIMENSION(KI),
INTENT(OUT) :: ptsrad
111 REAL,
DIMENSION(KI),
INTENT(OUT) :: ptsurf
112 INTEGER,
INTENT(IN) :: kyear
113 INTEGER,
INTENT(IN) :: kmonth
114 INTEGER,
INTENT(IN) :: kday
115 REAL,
INTENT(IN) :: ptime
118 CHARACTER(LEN=28),
INTENT(IN) :: hatmfile
119 CHARACTER(LEN=6),
INTENT(IN) :: hatmfiletype
120 CHARACTER(LEN=2),
INTENT(IN) :: htest
121 REAL(KIND=JPRB) :: zhook_handle
132 IF (lhook) CALL dr_hook(
'INIT_NATURE_N',0,zhook_handle)
133 IF (u%CNATURE==
'NONE ')
THEN
139 ELSE IF (u%CNATURE==
'FLUX ')
THEN
141 hprogram,hinit,ki,ksv,ksw,hsv,pco2,prhoa, &
142 pzenith,pazim,psw_bands,pdir_alb,psca_alb, &
143 pemis,ptsrad,ptsurf,
'OK' )
144 ELSE IF (u%CNATURE==
'ISBA ' .OR. u%CNATURE==
'TSZ0')
THEN
145 CALL
init_isba_n(dtco, dgu, ug, u, im, dtz, dst, slt, sv, &
146 hprogram,hinit,oland_use,ki,ksv,ksw,hsv,pco2,prhoa, &
147 pzenith,pazim,psw_bands,pdir_alb,psca_alb, &
148 pemis,ptsrad,ptsurf, &
149 kyear,kmonth,kday,ptime,hatmfile,hatmfiletype,&
152 IF (lhook) CALL dr_hook(
'INIT_NATURE_N',1,zhook_handle)
subroutine init_ideal_flux(DGL, OREAD_BUDGETC, HPROGRAM, HINIT, KI, KSV, KSW, HSV, PCO2, PRHOA, PZENITH, PAZIM, PSW_BANDS, PDIR_ALB, PSCA_ALB, PEMIS, PTSRAD, PTSURF, HTEST)
subroutine init_isba_n(DTCO, DGU, UG, U, IM, DTZ, DST, SLT, SV, HPROGRAM, HINIT, OLAND_USE, KI, KSV, KSW, HSV, PCO2, PRHOA, PZENITH, PAZIM, PSW_BANDS, PDIR_ALB, PSCA_ALB, PEMIS, PTSRAD, PTSURF, KYEAR, KMONTH, KDAY, PTIME, HATMFILE, HATMFILETYPE, HTEST)
subroutine init_nature_n(DTCO, DGU, UG, U, IM, DTZ, DGL, DST, SLT, SV, HPROGRAM, HINIT, OLAND_USE, KI, KSV, KSW, HSV, PCO2, PRHOA, PZENITH, PAZIM, PSW_BANDS, PDIR_ALB, PSCA_ALB, PEMIS, PTSRAD, PTSURF, KYEAR, KMONTH, KDAY, PTIME, HATMFILE, HATMFILETYPE, HTEST)