49 USE yomhook
,ONLY : lhook, dr_hook
50 USE parkind1
,ONLY : jprb
60 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
61 INTEGER,
INTENT(IN) :: ki
62 REAL,
DIMENSION(KI),
INTENT(IN) :: pzs
69 REAL(KIND=JPRB) :: zhook_handle
73 IF (lhook) CALL dr_hook(
'PUT_ZS_SEA_N',0,zhook_handle)
77 IF (
SIZE(pzs) /=
SIZE(s%XZS) )
THEN
78 WRITE(iluout,*)
'try to get ZS field from atmospheric model, but size is not correct'
79 WRITE(iluout,*)
'size of field expected by the atmospheric model (PZS) :',
SIZE(pzs)
80 WRITE(iluout,*)
'size of field over sea (XZS) :',
SIZE(s%XZS)
85 IF (lhook) CALL dr_hook(
'PUT_ZS_SEA_N',1,zhook_handle)
subroutine put_zs_sea_n(S, HPROGRAM, KI, PZS)
subroutine get_luout(HPROGRAM, KLUOUT)