7 hprogram,ki,ksw,psw_bands,pzenith, &
8 pland_wtd,pland_fwtd,pland_fflood, &
9 pland_piflood,psea_sst,psea_ucu, &
10 psea_vcu,pseaice_sit,pseaice_cvr, &
12 pdir_alb,psca_alb,pemis,ptsurf )
72 USE modi_update_esm_surf_atm_n
74 USE yomhook
,ONLY : lhook, dr_hook
75 USE parkind1
,ONLY : jprb
83 TYPE(flake_t),
INTENT(INOUT) :: f
84 TYPE(isba_t
),
INTENT(INOUT) :: i
89 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
90 INTEGER,
INTENT(IN) :: ki
91 INTEGER,
INTENT(IN) :: ksw
93 REAL,
DIMENSION(KI),
INTENT(IN) :: pzenith
94 REAL,
DIMENSION(KSW),
INTENT(IN) :: psw_bands
96 REAL,
DIMENSION(KI),
INTENT(IN) :: pland_wtd
97 REAL,
DIMENSION(KI),
INTENT(IN) :: pland_fwtd
98 REAL,
DIMENSION(KI),
INTENT(IN) :: pland_fflood
99 REAL,
DIMENSION(KI),
INTENT(IN) :: pland_piflood
101 REAL,
DIMENSION(KI),
INTENT(IN) :: psea_sst
102 REAL,
DIMENSION(KI),
INTENT(IN) :: psea_ucu
103 REAL,
DIMENSION(KI),
INTENT(IN) :: psea_vcu
105 REAL,
DIMENSION(KI),
INTENT(IN) :: pseaice_sit
106 REAL,
DIMENSION(KI),
INTENT(IN) :: pseaice_cvr
107 REAL,
DIMENSION(KI),
INTENT(IN) :: pseaice_alb
109 REAL,
DIMENSION(KI),
INTENT(OUT) :: ptsrad
110 REAL,
DIMENSION(KI),
INTENT(OUT) :: ptsurf
111 REAL,
DIMENSION(KI),
INTENT(OUT) :: pemis
112 REAL,
DIMENSION(KI,KSW),
INTENT(OUT) :: pdir_alb
113 REAL,
DIMENSION(KI,KSW),
INTENT(OUT) :: psca_alb
120 INTEGER :: ilu, iluout
121 REAL(KIND=JPRB) :: zhook_handle
124 IF (lhook) CALL dr_hook(
'PUT_SFXCL_N',0,zhook_handle)
131 IF(ki/=u%NSIZE_FULL)
THEN
132 WRITE(iluout,*)
'size of field from the coupler :', ki
133 WRITE(iluout,*)
'size of field in SURFEX :', u%NSIZE_FULL
134 CALL
abor1_sfx(
'PUT_SFXCPL_N: VECTOR SIZE NOT CORRECT FOR COUPLING')
143 iluout,lcpl_gw,lcpl_flood,pland_wtd(:), &
144 pland_fwtd(:),pland_fflood(:),pland_piflood(:))
154 iluout,lcpl_seaice,lwater,psea_sst(:),psea_ucu(:), &
155 psea_vcu(:),pseaice_sit(:),pseaice_cvr(:),pseaice_alb(:) )
163 IF(lcpl_sea.OR.lcpl_flood)
THEN
165 hprogram, ki, ksw, pzenith, psw_bands, &
166 ptsrad, pdir_alb, psca_alb, pemis, ptsurf )
171 IF (lhook) CALL dr_hook(
'PUT_SFXCL_N',1,zhook_handle)
subroutine put_sfx_land(I, U, KLUOUT, OCPL_WTD, OCPL_FLOOD, PWTD, PFWTD, PFFLOOD, PPIFLOOD)
subroutine put_sfx_sea(S, U, W, KLUOUT, OCPL_SEAICE, OWATER, PSEA_SST, PSEA_UCU, PSEA_VCU, PSEAICE_SIT, PSEAICE_CVR, PSEAICE_ALB)
subroutine put_sfxcpl_n(F, I, S, U, W, HPROGRAM, KI, KSW, PSW_BANDS, PZENITH, PLAND_WTD, PLAND_FWTD, PLAND_FFLOOD, PLAND_PIFLOOD, PSEA_SST, PSEA_UCU, PSEA_VCU, PSEAICE_SIT, PSEAICE_CVR, PSEAICE_ALB, PTSRAD, PDIR_ALB, PSCA_ALB, PEMIS, PTSURF)
subroutine abor1_sfx(YTEXT)
subroutine update_esm_surf_atm_n(F, I, S, U, W, HPROGRAM, KI, KSW, PZENITH, PSW_BANDS, PTRAD, PDIR_ALB, PSCA_ALB, PEMIS, PTSURF)
subroutine get_luout(HPROGRAM, KLUOUT)