7 hprogram,hatmfile,hatmfiletype,hpgdfile,hpgdfiletype)
43 USE modi_prep_hor_seaflux_field
44 USE modi_prep_ver_seaflux
45 USE modi_prep_output_grid
46 USE modi_prep_seaflux_sbl
56 USE yomhook
,ONLY : lhook, dr_hook
57 USE parkind1
,ONLY : jprb
59 USE modi_clean_prep_output_grid
73 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
74 CHARACTER(LEN=28),
INTENT(IN) :: hatmfile
75 CHARACTER(LEN=6),
INTENT(IN) :: hatmfiletype
76 CHARACTER(LEN=28),
INTENT(IN) :: hpgdfile
77 CHARACTER(LEN=6),
INTENT(IN) :: hpgdfiletype
85 REAL(KIND=JPRB) :: zhook_handle
92 IF (lhook) CALL dr_hook(
'PREP_SEAFLUX',0,zhook_handle)
96 iluout,sm%SG%CGRID,sm%SG%XGRID_PAR,sm%SG%XLAT,sm%SG%XLON)
103 sm%O%LMERCATOR = locean_mercator
104 sm%O%LCURRENT = locean_current
106 sm%OR%XTAU_REL = xtime_rel
107 sm%OR%XQCORR = xcorflx
109 sm%OR%LREL_CUR = lcur_rel
110 sm%OR%LREL_TS = lts_rel
111 sm%OR%LFLUX_NULL = lzero_flux
112 sm%OR%LFLX_CORR = lcorr_flux
113 sm%OR%LDIAPYCNAL = ldiapyc
123 sm%DTS, sm%O, sm%OR, sm%SG, sm%S, &
124 hprogram,
'ZS ',hatmfile,hatmfiletype,hpgdfile,hpgdfiletype)
129 sm%DTS, sm%O, sm%OR, sm%SG, sm%S, &
130 hprogram,
'SST ',hatmfile,hatmfiletype,hpgdfile,hpgdfiletype)
136 sm%DTS, sm%O, sm%OR, sm%SG, sm%S, &
137 hprogram,
'SSS ',hatmfile,hatmfiletype,hpgdfile,hpgdfiletype)
141 IF (cseaice_scheme /=
'NONE ')
THEN
143 dtco, sm%DTS, sm%O, sm%OR, sm%SG, sm%S, u, &
144 hprogram,hatmfile,hatmfiletype,hpgdfile,hpgdfiletype)
150 ALLOCATE(sm%S%XZ0(
SIZE(sm%S%XSST)))
153 ALLOCATE(sm%S%XZ0H(
SIZE(sm%S%XSST)))
158 IF(sm%S%CSEA_ALB==
'RS14')
THEN
159 ALLOCATE(sm%S%XDIR_ALB(
SIZE(sm%S%XSST)))
160 ALLOCATE(sm%S%XSCA_ALB(
SIZE(sm%S%XSST)))
161 sm%S%XDIR_ALB = 0.065
162 sm%S%XSCA_ALB = 0.065
181 sm%S%LINTERPOL_SST=.false.
182 IF(trim(sm%S%CINTERPOL_SST)/=
'NONE')
THEN
184 sm%S%LINTERPOL_SST=.true.
189 ALLOCATE(sm%S%XSST_MTH(
SIZE(sm%S%XSST),inmth))
191 sm%S%XSST_MTH(:,jmth)=sm%S%XSST(:)
201 sm%S%LINTERPOL_SSS=.false.
202 IF(trim(sm%S%CINTERPOL_SSS)/=
'NONE')
THEN
204 sm%S%LINTERPOL_SSS=.true.
209 ALLOCATE(sm%S%XSSS_MTH(
SIZE(sm%S%XSSS),inmth))
211 sm%S%XSSS_MTH(:,jmth)=sm%S%XSSS(:)
225 IF (lhook) CALL dr_hook(
'PREP_SEAFLUX',1,zhook_handle)
subroutine clean_prep_output_grid
subroutine prep_seaflux(DTCO, UG, U, SM, HPROGRAM, HATMFILE, HATMFILETYPE, HPGDFILE, HPGDFILETYPE)
subroutine prep_hor_seaflux_field(DTCO, UG, U, DTS, O, OR, SG, S, HPROGRAM, HSURF, HATMFILE, HATMFILETYPE, HPGDFILE, HPGDFILETYPE)
subroutine prep_seaice(UG, DTCO, DTS, O, OR, SG, S, U, HPROGRAM, HATMFILE, HATMFILETYPE, HPGDFILE, HPGDFILETYPE)
subroutine get_luout(HPROGRAM, KLUOUT)
subroutine prep_seaflux_sbl(SG, SSB)
subroutine prep_ver_seaflux(S)
subroutine prep_output_grid(UG, U, KLUOUT, HGRID, PGRID_PAR, PLAT, PLON)