47 USE modi_interpol_quadra
48 USE modi_interpol_linear
52 USE yomhook
,ONLY : lhook, dr_hook
53 USE parkind1
,ONLY : jprb
63 INTEGER,
INTENT(IN ) :: kyear
64 INTEGER,
INTENT(IN ) :: kmonth
65 INTEGER,
INTENT(IN ) :: kday
67 REAL,
DIMENSION(:),
INTENT(OUT) :: pts
81 REAL(KIND=JPRB) :: zhook_handle
87 IF (lhook) CALL dr_hook(
'INTERPOL_TS_WATER_MTH',0,zhook_handle)
94 IF( ((mod(kyear,4)==0).AND.(mod(kyear,100)/=0)) .OR. (mod(kyear,400)==0))
THEN
112 IF (kmonth==w%TZTIME%TDATE%MONTH)
THEN
122 IF(w%CINTERPOL_TS==
'QUADRA')
THEN
123 CALL
interpol_quadra(zdat,zndat,w%XTS_MTH(:,imth0),w%XTS_MTH(:,imth1),w%XTS_MTH(:,imth2),pts)
124 ELSEIF(w%CINTERPOL_TS==
'LINEAR')
THEN
125 CALL
interpol_linear(zdat,zndat,w%XTS_MTH(:,imth0),w%XTS_MTH(:,imth1),w%XTS_MTH(:,imth2),pts)
126 ELSEIF(w%CINTERPOL_TS==
'UNIF')
THEN
127 pts(:) = w%XTS_MTH(:,imth1)
129 CALL
abor1_sfx(
'INTERPOL_TS_WATER_MTH: interpolation method not supported')
132 IF (lhook) CALL dr_hook(
'INTERPOL_TS_WATER_MTH',1,zhook_handle)
subroutine interpol_quadra(PDAT, PNDAT, PVAL0, PVAL1, PVAL2, POUT)
subroutine abor1_sfx(YTEXT)
subroutine interpol_ts_water_mth(W, KYEAR, KMONTH, KDAY, PTS)
subroutine interpol_linear(PDAT, PNDAT, PVAL0, PVAL1, PVAL2, POUT)