60 USE yomhook
,ONLY : lhook, dr_hook
61 USE parkind1
,ONLY : jprb
74 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
81 CHARACTER(LEN=12) :: yrecfm
82 CHARACTER(LEN=100):: ycomment
83 REAL(KIND=JPRB) :: zhook_handle
86 IF (lhook) CALL dr_hook(
'WRITESURF_PRECIP_N',0,zhook_handle)
89 ycomment=
'flag to store physical fields in restart file'
91 hprogram,yrecfm,lcpl_gcm,iresp,hcomment=ycomment)
96 ycomment=
'RAINFALL FOR RESTART (kg/m2/s)'
98 hprogram,yrecfm,u%XRAIN(:),iresp,hcomment=ycomment)
101 ycomment=
'SNOWFALL FOR RESTART (kg/m2/s)'
103 hprogram,yrecfm,u%XSNOW(:),iresp,hcomment=ycomment)
106 ycomment=
'Z0 FOR RESTART (m)'
108 hprogram,yrecfm,u%XZ0(:),iresp,hcomment=ycomment)
111 ycomment=
'Z0H FOR RESTART (m)'
113 hprogram,yrecfm,u%XZ0H(:),iresp,hcomment=ycomment)
116 ycomment=
'QS FOR RESTART (kg/kg)'
118 hprogram,yrecfm,u%XQSURF(:),iresp,hcomment=ycomment)
122 IF (lhook) CALL dr_hook(
'WRITESURF_PRECIP_N',1,zhook_handle)
subroutine writesurf_cpl_gcm_n(DGU, U, HPROGRAM)