55 USE yomhook
,ONLY : lhook, dr_hook
56 USE parkind1
,ONLY : jprb
58 USE modi_get_type_dim_n
67 TYPE(flake_t),
INTENT(INOUT) :: f
70 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
79 CHARACTER(LEN=12) :: yrecfm
80 REAL(KIND=JPRB) :: zhook_handle
86 IF (lhook) CALL dr_hook(
'READ_FLAKE_N',0,zhook_handle)
98 ALLOCATE(f%XT_SNOW (ilu))
99 ALLOCATE(f%XT_ICE (ilu))
100 ALLOCATE(f%XT_MNW (ilu))
101 ALLOCATE(f%XT_WML (ilu))
102 ALLOCATE(f%XT_BOT (ilu))
103 ALLOCATE(f%XT_B1 (ilu))
104 ALLOCATE(f%XCT (ilu))
105 ALLOCATE(f%XH_SNOW (ilu))
106 ALLOCATE(f%XH_ICE (ilu))
107 ALLOCATE(f%XH_ML (ilu))
108 ALLOCATE(f%XH_B1 (ilu))
112 hprogram,yrecfm,f%XTS(:),iresp)
115 hprogram,yrecfm,f%XT_SNOW(:),iresp)
118 hprogram,yrecfm,f%XT_ICE(:),iresp)
121 hprogram,yrecfm,f%XT_MNW(:),iresp)
124 hprogram,yrecfm,f%XT_WML(:),iresp)
127 hprogram,yrecfm,f%XT_BOT(:),iresp)
130 hprogram,yrecfm,f%XT_B1(:),iresp)
133 hprogram,yrecfm,f%XCT(:),iresp)
136 hprogram,yrecfm,f%XH_SNOW(:),iresp)
139 hprogram,yrecfm,f%XH_ICE(:),iresp)
142 hprogram,yrecfm,f%XH_ML(:),iresp)
145 hprogram,yrecfm,f%XH_B1(:),iresp)
158 hprogram,yrecfm,f%XZ0(:),iresp)
163 ALLOCATE(f%XUSTAR(ilu))
167 hprogram,yrecfm,f%XUSTAR(:),iresp)
168 IF (lhook) CALL dr_hook(
'READ_FLAKE_N',1,zhook_handle)
subroutine get_type_dim_n(DTCO, U, HTYPE, KDIM)
subroutine read_flake_n(DTCO, U, F, HPROGRAM)