7 ki,prain,psnow,pz0,pz0h,pqsurf)
43 USE yomhook
,ONLY : lhook, dr_hook
44 USE parkind1
,ONLY : jprb
54 INTEGER,
INTENT(IN) :: ki
56 REAL,
DIMENSION(KI),
INTENT(IN),
OPTIONAL :: prain
57 REAL,
DIMENSION(KI),
INTENT(IN),
OPTIONAL :: psnow
58 REAL,
DIMENSION(KI),
INTENT(IN),
OPTIONAL :: pz0
59 REAL,
DIMENSION(KI),
INTENT(IN),
OPTIONAL :: pz0h
60 REAL,
DIMENSION(KI),
INTENT(IN),
OPTIONAL :: pqsurf
65 REAL(KIND=JPRB) :: zhook_handle
68 IF (lhook) CALL dr_hook(
'CPL_GCM_N',0,zhook_handle)
70 IF(present(prain )) u%XRAIN (:) = prain(:)
71 IF(present(psnow )) u%XSNOW (:) = psnow(:)
72 IF(present(pz0 )) u%XZ0 (:) = pz0(:)
73 IF(present(pz0h )) u%XZ0H (:) = pz0h(:)
74 IF(present(pqsurf)) u%XQSURF(:) = pqsurf(:)
76 IF (lhook) CALL dr_hook(
'CPL_GCM_N',1,zhook_handle)
subroutine cpl_gcm_n(U, KI, PRAIN, PSNOW, PZ0, PZ0H, PQSURF)