51 USE modi_interpol_ts_water_mth
54 USE yomhook
,ONLY : lhook, dr_hook
55 USE parkind1
,ONLY : jprb
57 USE modi_get_type_dim_n
69 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
75 INTEGER :: jmth, inmth
76 CHARACTER(LEN=2 ) :: ymth
82 CHARACTER(LEN=12) :: yrecfm
83 REAL(KIND=JPRB) :: zhook_handle
89 IF (lhook) CALL dr_hook(
'READ_WATFLUX_N',0,zhook_handle)
101 IF(w%LINTERPOL_TS)
THEN
104 w%TZTIME%TDATE%YEAR = w%TTIME%TDATE%YEAR
105 w%TZTIME%TDATE%MONTH = w%TTIME%TDATE%MONTH
106 w%TZTIME%TDATE%DAY = w%TTIME%TDATE%DAY
107 w%TZTIME%TIME = w%TTIME%TIME
112 ALLOCATE(w%XTS_MTH(
SIZE(w%XTS),inmth))
114 WRITE(ymth,
'(I2)') (jmth-1)
115 yrecfm=
'TS_WATER'//adjustl(ymth(:len_trim(ymth)))
117 hprogram,yrecfm,w%XTS_MTH(:,jmth),iresp)
121 w%TTIME%TDATE%YEAR,w%TTIME%TDATE%MONTH,w%TTIME%TDATE%DAY,w%XTS)
125 ALLOCATE(w%XTS_MTH(0,0))
129 hprogram,yrecfm,w%XTS(:),iresp)
145 hprogram,yrecfm,w%XZ0(:),iresp)
146 IF (lhook) CALL dr_hook(
'READ_WATFLUX_N',1,zhook_handle)
subroutine get_type_dim_n(DTCO, U, HTYPE, KDIM)
subroutine read_watflux_n(DTCO, U, W, HPROGRAM)
subroutine interpol_ts_water_mth(W, KYEAR, KMONTH, KDAY, PTS)