Changeset 4371

Timestamp:

2014-01-24T10:55:42+01:00 (10 years ago)

Author:

rfurner

Message:

Fix to unitialised value in fld read, see ticket 1222

File:

• branches/2013/dev_MERGE_2013/NEMOGCM/NEMO/OPA_SRC/SBC/fldread.F90 (modified) (2 diffs)

branches/2013/dev_MERGE_2013/NEMOGCM/NEMO/OPA_SRC/SBC/fldread.F90

@@ -307 +307 @@
       !!                    ***  ROUTINE fld_init  ***
       !!
-      !! ** Purpose :  - if time interpolation, read before data 
-      !!               - open current year file
+      !! ** Purpose :  - first call to fld_rec to define before values
+      !!               - if time interpolation, read before data 
       !!----------------------------------------------------------------------
       INTEGER  , INTENT(in   ) ::   kn_fsbc   ! sbc computation period (in time step) 
@@ -904 +904 @@
          IF( sdf(jf)%cltype(1:4) == 'week' .AND. sdf(jf)%ln_clim )   &
             &   CALL ctl_stop('fld_clopn: weekly file ('//TRIM(sdf(jf)%clrootname)//') needs ln_clim = .FALSE.')
+         sdf(jf)%nreclast = -1 ! Set to non zero default value to avoid errors, is updated to meaningful value during fld_clopn
       END DO