7 hprogram,ki,prain,psnow,pz0,pz0h,pqsurf)
49 USE yomhook
,ONLY : lhook, dr_hook
50 USE parkind1
,ONLY : jprb
63 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
64 INTEGER,
INTENT(IN) :: ki
66 REAL,
DIMENSION(KI),
INTENT(OUT) :: prain
67 REAL,
DIMENSION(KI),
INTENT(OUT) :: psnow
68 REAL,
DIMENSION(KI),
INTENT(OUT) :: pz0
69 REAL,
DIMENSION(KI),
INTENT(OUT) :: pz0h
70 REAL,
DIMENSION(KI),
INTENT(OUT) :: pqsurf
77 REAL(KIND=JPRB) :: zhook_handle
80 IF (lhook) CALL dr_hook(
'GET_CPL_GCM_N',0,zhook_handle)
86 IF(
SIZE(pz0)/=
SIZE(u%XZ0H))
THEN
87 WRITE(iluout,*)
'try to get Z0 field from atmospheric model, but size is not correct'
88 WRITE(iluout,*)
'size of field expected by the atmospheric model (PZ0) :',
SIZE(pz0)
89 WRITE(iluout,*)
'size of field in SURFEX (XZ0) :',
SIZE(u%XZ0)
90 CALL
abor1_sfx(
'GET_CPL_GCMN: PZ0 ARGUMENT SIZE /= XZ0 MODULE SIZE')
101 WRITE(iluout,*)
'LCPL_GCM must be TRUE when you use atmospheric model'
102 CALL
abor1_sfx(
'GET_CPL_GCMN: LCPL_GCM must be TRUE')
107 IF (lhook) CALL dr_hook(
'GET_CPL_GCM_N',1,zhook_handle)
subroutine get_cpl_gcm_n(U, HPROGRAM, KI, PRAIN, PSNOW, PZ0, PZ0H, PQSURF)
subroutine abor1_sfx(YTEXT)
subroutine get_luout(HPROGRAM, KLUOUT)