10 pzenith,pazim,psw_bands,pdir_alb,psca_alb, &
11 pemis,ptsrad,ptsurf, &
12 kyear, kmonth,kday, ptime, &
13 hatmfile,hatmfiletype, &
63 USE yomhook
,ONLY : lhook, dr_hook
64 USE parkind1
,ONLY : jprb
68 USE modi_init_ideal_flux
70 USE modi_init_watflux_n
86 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
87 CHARACTER(LEN=3),
INTENT(IN) :: hinit
88 INTEGER,
INTENT(IN) :: ki
89 INTEGER,
INTENT(IN) :: ksv
90 INTEGER,
INTENT(IN) :: ksw
91 CHARACTER(LEN=6),
DIMENSION(KSV),
INTENT(IN) :: hsv
92 REAL,
DIMENSION(KI),
INTENT(IN) :: pco2
93 REAL,
DIMENSION(KI),
INTENT(IN) :: prhoa
94 REAL,
DIMENSION(KI),
INTENT(IN) :: pzenith
95 REAL,
DIMENSION(KI),
INTENT(IN) :: pazim
96 REAL,
DIMENSION(KSW),
INTENT(IN) :: psw_bands
97 REAL,
DIMENSION(KI,KSW),
INTENT(OUT) :: pdir_alb
98 REAL,
DIMENSION(KI,KSW),
INTENT(OUT) :: psca_alb
99 REAL,
DIMENSION(KI),
INTENT(OUT) :: pemis
100 REAL,
DIMENSION(KI),
INTENT(OUT) :: ptsrad
101 REAL,
DIMENSION(KI),
INTENT(OUT) :: ptsurf
102 INTEGER,
INTENT(IN) :: kyear
103 INTEGER,
INTENT(IN) :: kmonth
104 INTEGER,
INTENT(IN) :: kday
105 REAL,
INTENT(IN) :: ptime
108 CHARACTER(LEN=28),
INTENT(IN) :: hatmfile
109 CHARACTER(LEN=6),
INTENT(IN) :: hatmfiletype
110 CHARACTER(LEN=2),
INTENT(IN) :: htest
111 REAL(KIND=JPRB) :: zhook_handle
121 IF (lhook) CALL dr_hook(
'INIT_INLAND_WATER_N',0,zhook_handle)
122 IF (u%CWATER==
'NONE ')
THEN
128 ELSE IF (u%CWATER==
'FLUX ')
THEN
130 hprogram,hinit,ki,ksv,ksw,hsv,pco2,prhoa, &
131 pzenith,pazim,psw_bands,pdir_alb,psca_alb, &
132 pemis,ptsrad,ptsurf,
'OK' )
133 ELSE IF (u%CWATER==
'WATFLX')
THEN
135 hprogram,hinit,ki,ksv,ksw,hsv,pco2,prhoa, &
136 pzenith,pazim,psw_bands,pdir_alb,psca_alb, &
137 pemis,ptsrad,ptsurf, &
138 kyear,kmonth,kday,ptime,hatmfile,hatmfiletype,&
140 ELSE IF (u%CWATER==
'FLAKE ')
THEN
142 hprogram,hinit,ki,ksv,ksw,hsv,pco2,prhoa, &
143 pzenith,pazim,psw_bands,pdir_alb,psca_alb, &
144 pemis,ptsrad,ptsurf, &
145 kyear,kmonth,kday,ptime,hatmfile,hatmfiletype,&
148 IF (lhook) CALL dr_hook(
'INIT_INLAND_WATER_N',1,zhook_handle)
subroutine init_watflux_n(DTCO, DGU, UG, U, WM, HPROGRAM, HINIT, 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_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_flake_n(DTCO, DGU, UG, U, FM, HPROGRAM, HINIT, 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_inland_water_n(DTCO, DGU, UG, U, WM, FM, DGL, HPROGRAM, HINIT, KI, KSV, KSW, HSV, PCO2, PRHOA, PZENITH, PAZIM, PSW_BANDS, PDIR_ALB, PSCA_ALB, PEMIS, PTSRAD, PTSURF, KYEAR, KMONTH, KDAY, PTIME, HATMFILE, HATMFILETYPE, HTEST)