Changeset 4371


Ignore:
Timestamp:
2014-01-24T10:55:42+01:00 (7 years ago)
Author:
rfurner
Message:

Fix to unitialised value in fld read, see ticket 1222

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2013/dev_MERGE_2013/NEMOGCM/NEMO/OPA_SRC/SBC/fldread.F90

    r4245 r4371  
    307307      !!                    ***  ROUTINE fld_init  *** 
    308308      !! 
    309       !! ** Purpose :  - if time interpolation, read before data  
    310       !!               - open current year file 
     309      !! ** Purpose :  - first call to fld_rec to define before values 
     310      !!               - if time interpolation, read before data  
    311311      !!---------------------------------------------------------------------- 
    312312      INTEGER  , INTENT(in   ) ::   kn_fsbc   ! sbc computation period (in time step)  
     
    904904         IF( sdf(jf)%cltype(1:4) == 'week' .AND. sdf(jf)%ln_clim )   & 
    905905            &   CALL ctl_stop('fld_clopn: weekly file ('//TRIM(sdf(jf)%clrootname)//') needs ln_clim = .FALSE.') 
     906         sdf(jf)%nreclast = -1 ! Set to non zero default value to avoid errors, is updated to meaningful value during fld_clopn 
    906907      END DO 
    907908 
Note: See TracChangeset for help on using the changeset viewer.