Changeset 1294


Ignore:
Timestamp:
2009-02-04T17:30:59+01:00 (12 years ago)
Author:
ctlod
Message:

need to read namelist and data to be able to perform sss restoring when nn_sssr=2, see ticket: #323

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMO/OPA_SRC/SBC/sbcssr.F90

    r1275 r1294  
    119119         ENDIF 
    120120         ! 
    121          IF( nn_sssr == 1 ) THEN      ! set sf_sss structure 
     121         IF( nn_sssr >= 1 ) THEN      ! set sf_sss structure 
    122122            ! 
    123123            ALLOCATE( sf_sss(1), STAT=ierror ) 
     
    142142         IF( nn_sstr == 1)   CALL fld_read( kt, nn_fsbc, sf_sst )   ! Read SST data and provides it 
    143143         !                                                          ! at the current time-step 
    144          IF( nn_sssr == 1)   CALL fld_read( kt, nn_fsbc, sf_sss )   ! Read SSS data and provides it 
     144         IF( nn_sssr >= 1)   CALL fld_read( kt, nn_fsbc, sf_sss )   ! Read SSS data and provides it 
    145145         !                                                          ! at the current time-step 
    146146  
Note: See TracChangeset for help on using the changeset viewer.