Changeset 5751

Timestamp:

2015-09-16T12:00:20+02:00 (9 years ago)

Author:

jpaul

Message:

fix tipying error, see ticket #1598

File:

• trunk/NEMOGCM/NEMO/OPA_SRC/SBC/fldread.F90 (modified) (1 diff)

trunk/NEMOGCM/NEMO/OPA_SRC/SBC/fldread.F90

@@ -815 +815 @@
          imonth = kmonth
          iday = kday
-         IF ( sdjf%cltype(1:4) == 'week' ) THEN             ! find the day of
-         the beginning of the week
+         IF ( sdjf%cltype(1:4) == 'week' ) THEN             ! find the day of the beginning of the week
             isec_week = ksec_week( sdjf%cltype(6:8) )- (86400 * 8 )  
-            llprevmth  = isec_week > nsec_month             ! longer time since
-            beginning of the week than the month
+            llprevmth  = isec_week > nsec_month             ! longer time since beginning of the week than the month
             llprevyr   = llprevmth .AND. nmonth == 1
             iyear  = nyear  - COUNT((/llprevyr /))
             imonth = nmonth - COUNT((/llprevmth/)) + 12 * COUNT((/llprevyr /))
-            iday   = nday   + nmonth_len(nmonth-1) * COUNT((/llprevmth/)) -
-            isec_week / NINT(rday)
+            iday   = nday   + nmonth_len(nmonth-1) * COUNT((/llprevmth/)) - isec_week / NINT(rday)
          ENDIF
       ELSE                                                  ! use current day values