7 hprogram,ki,psea,pwater,pnature,ptown)
48 USE yomhook
,ONLY : lhook, dr_hook
49 USE parkind1
,ONLY : jprb
61 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
62 INTEGER,
INTENT(IN) :: ki
63 REAL,
DIMENSION(KI),
INTENT(OUT) :: psea
64 REAL,
DIMENSION(KI),
INTENT(OUT) :: pwater
65 REAL,
DIMENSION(KI),
INTENT(OUT) :: pnature
66 REAL,
DIMENSION(KI),
INTENT(OUT) :: ptown
73 REAL(KIND=JPRB) :: zhook_handle
76 IF (lhook) CALL dr_hook(
'GET_FRAC_N',0,zhook_handle)
80 IF (
SIZE(psea) /=
SIZE(u%XSEA) )
THEN
81 WRITE(iluout,*)
'try to get SEA field from atmospheric model, but size is not correct'
82 WRITE(iluout,*)
'size of field expected by the atmospheric model (PSEA) :',
SIZE(psea)
83 WRITE(iluout,*)
'size of field inthe surface (XSEA) :',
SIZE(u%XSEA)
84 CALL
abor1_sfx(
'GET_FRACN: SEA SIZE NOT CORRECT')
91 IF (lhook) CALL dr_hook(
'GET_FRAC_N',1,zhook_handle)
subroutine abor1_sfx(YTEXT)
subroutine get_frac_n(U, HPROGRAM, KI, PSEA, PWATER, PNATURE, PTOWN)
subroutine get_luout(HPROGRAM, KLUOUT)