Changeset 527 for trunk/NEMO/OPA_SRC

Timestamp:

2006-10-12T17:04:38+02:00 (18 years ago)

Author:

opalod

Message:

RB:nemo_v1_bugfix_061: correct interpolation in flx_bulk_monthly

File:

• trunk/NEMO/OPA_SRC/SBC/flx_bulk_monthly.h90 (modified) (2 diffs)

trunk/NEMO/OPA_SRC/SBC/flx_bulk_monthly.h90

@@ -76 +76 @@
 
       !! * Local declarations
-      INTEGER ::   jm, jt      ! dummy loop indices
+      INTEGER ::   jm            ! dummy loop indices
       INTEGER ::   &
          imois, imois2,       &  ! temporary integers
          i15  , iman             !    "          "
       REAL(wp) ::   &
-         zxy    , zdtt  ,     &  !    "         "
-         zdatet , zttbt ,     &  !    "         "
-         zttat  , zdtts6         !    "         "
+         zxy   , zdtt  ,      &  !    "         "
+         zttbt , zttat ,      &  !    "         "
+         zdtts6                  !    "         "
       !!---------------------------------------------------------------------
 
@@ -211 +211 @@
 
       zdtt = raajj / raamo
-      zdatet = 0.
-      DO jt = 1, nmonth-1
-         zdatet = zdatet + nobis(jt)
-      END DO 
-      zdatet = ( zdatet + FLOAT(nday) -1. )/zdtt
-      zttbt = zdatet - INT(zdatet)
+      zttbt = (REAL(nday) - 1.)/(nobis(nmonth) - 1.)
+
       zttat = 1. - zttbt
       zdtts6 = zdtt/6.