Changeset 4371
- Timestamp:
- 2014-01-24T10:55:42+01:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2013/dev_MERGE_2013/NEMOGCM/NEMO/OPA_SRC/SBC/fldread.F90
r4245 r4371 307 307 !! *** ROUTINE fld_init *** 308 308 !! 309 !! ** Purpose : - if time interpolation, read before data310 !! - open current year file309 !! ** Purpose : - first call to fld_rec to define before values 310 !! - if time interpolation, read before data 311 311 !!---------------------------------------------------------------------- 312 312 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 ) & 905 905 & 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 906 907 END DO 907 908
Note: See TracChangeset
for help on using the changeset viewer.