49 USE yomhook
,ONLY : lhook, dr_hook
50 USE parkind1
,ONLY : jprb
60 TYPE(isba_t
),
INTENT(INOUT) :: i
62 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
63 INTEGER,
INTENT(IN) :: ki
64 REAL,
DIMENSION(KI),
INTENT(IN) :: pzs
71 REAL(KIND=JPRB) :: zhook_handle
74 IF (lhook) CALL dr_hook(
'PUT_ZS_NATURE_N',0,zhook_handle)
78 IF (
SIZE(pzs) /=
SIZE(i%XZS) )
THEN
79 WRITE(iluout,*)
'try to get ZS field from atmospheric model, but size is not correct'
80 WRITE(iluout,*)
'size of field expected by the atmospheric model (PZS) :',
SIZE(pzs)
81 WRITE(iluout,*)
'size of field over nature (XZS) :',
SIZE(i%XZS)
82 CALL
abor1_sfx(
'PUT_ZS_NATUREN: GET ZS FROM ATMOSPHERIC MODEL: SIZE NOT CORRECT')
86 IF (lhook) CALL dr_hook(
'PUT_ZS_NATURE_N',1,zhook_handle)
subroutine put_zs_nature_n(I, HPROGRAM, KI, PZS)
subroutine abor1_sfx(YTEXT)
subroutine get_luout(HPROGRAM, KLUOUT)