10 pzenith,pazim,psw_bands,pdir_alb,psca_alb, &
11 pemis,ptsrad,ptsurf, &
12 kyear, kmonth,kday, ptime, &
13 hatmfile,hatmfiletype, &
62 USE yomhook
,ONLY : lhook, dr_hook
63 USE parkind1
,ONLY : jprb
65 USE modi_init_ideal_flux
67 USE modi_init_seaflux_n
82 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
83 CHARACTER(LEN=3),
INTENT(IN) :: hinit
84 INTEGER,
INTENT(IN) :: ki
85 INTEGER,
INTENT(IN) :: ksv
86 INTEGER,
INTENT(IN) :: ksw
87 CHARACTER(LEN=6),
DIMENSION(KSV),
INTENT(IN) :: hsv
88 REAL,
DIMENSION(KI),
INTENT(IN) :: pco2
89 REAL,
DIMENSION(KI),
INTENT(IN) :: prhoa
90 REAL,
DIMENSION(KI),
INTENT(IN) :: pzenith
91 REAL,
DIMENSION(KI),
INTENT(IN) :: pazim
92 REAL,
DIMENSION(KSW),
INTENT(IN) :: psw_bands
93 REAL,
DIMENSION(KI,KSW),
INTENT(OUT) :: pdir_alb
94 REAL,
DIMENSION(KI,KSW),
INTENT(OUT) :: psca_alb
95 REAL,
DIMENSION(KI),
INTENT(OUT) :: pemis
96 REAL,
DIMENSION(KI),
INTENT(OUT) :: ptsrad
97 REAL,
DIMENSION(KI),
INTENT(OUT) :: ptsurf
98 INTEGER,
INTENT(IN) :: kyear
99 INTEGER,
INTENT(IN) :: kmonth
100 INTEGER,
INTENT(IN) :: kday
101 REAL,
INTENT(IN) :: ptime
104 CHARACTER(LEN=28),
INTENT(IN) :: hatmfile
105 CHARACTER(LEN=6),
INTENT(IN) :: hatmfiletype
106 CHARACTER(LEN=2),
INTENT(IN) :: htest
107 REAL(KIND=JPRB) :: zhook_handle
118 IF (lhook) CALL dr_hook(
'INIT_SEA_N',0,zhook_handle)
119 IF (u%CSEA==
'NONE ')
THEN
125 ELSE IF (u%CSEA==
'FLUX ')
THEN
127 hprogram,hinit,ki,ksv,ksw,hsv,pco2,prhoa, &
128 pzenith,pazim,psw_bands,pdir_alb,psca_alb, &
129 pemis,ptsrad,ptsurf,
'OK' )
130 ELSE IF (u%CSEA==
'SEAFLX')
THEN
132 hprogram,hinit,ki,ksv,ksw,hsv,pco2,prhoa, &
133 pzenith,pazim,psw_bands,pdir_alb,psca_alb, &
134 pemis,ptsrad,ptsurf, &
135 kyear,kmonth,kday,ptime,hatmfile,hatmfiletype,&
138 IF (lhook) CALL dr_hook(
'INIT_SEA_N',1,zhook_handle)
subroutine init_seaflux_n(DTCO, DGU, UG, U, SM, 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_sea_n(DTCO, DGU, UG, U, SM, 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)