62 USE yomhook
,ONLY : lhook, dr_hook
63 USE parkind1
,ONLY : jprb
75 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
76 CHARACTER(LEN=3),
INTENT(IN) :: hinit
83 CHARACTER(LEN=12) :: yrecfm
90 REAL(KIND=JPRB) :: zhook_handle
93 IF (lhook) CALL dr_hook(
'INIT_CPL_GCM_N',0,zhook_handle)
97 IF (hinit==
'PGD')
THEN
100 ALLOCATE(u%XSNOW (0))
103 ALLOCATE(u%XQSURF(0))
107 ALLOCATE(u%XRAIN (u%NSIZE_FULL))
108 ALLOCATE(u%XSNOW (u%NSIZE_FULL))
109 ALLOCATE(u%XZ0 (u%NSIZE_FULL))
110 ALLOCATE(u%XZ0H (u%NSIZE_FULL))
111 ALLOCATE(u%XQSURF(u%NSIZE_FULL))
123 hprogram,yrecfm,iversion,iresp)
125 lread=(hinit/=
'PGD'.AND.hinit/=
'PRE'.AND.iversion>=8)
130 hprogram,yrecfm,gcpl_gcm,iresp)
133 IF (lread.AND.gcpl_gcm)
THEN
137 hprogram,yrecfm,u%XRAIN(:),iresp)
141 hprogram,yrecfm,u%XSNOW(:),iresp)
145 hprogram,yrecfm,u%XZ0(:),iresp)
149 hprogram,yrecfm,u%XZ0H(:),iresp)
153 hprogram,yrecfm,u%XQSURF(:),iresp)
157 IF (lhook) CALL dr_hook(
'INIT_CPL_GCM_N',1,zhook_handle)
subroutine init_cpl_gcm_n(U, HPROGRAM, HINIT)