Changeset 1294 for trunk/NEMO/OPA_SRC/SBC/sbcssr.F90

Timestamp:

2009-02-04T17:30:59+01:00 (15 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:

• trunk/NEMO/OPA_SRC/SBC/sbcssr.F90 (modified) (2 diffs)

trunk/NEMO/OPA_SRC/SBC/sbcssr.F90

@@ -119 +119 @@
          ENDIF
          !
-         IF( nn_sssr == 1 ) THEN      ! set sf_sss structure
+         IF( nn_sssr >= 1 ) THEN      ! set sf_sss structure
             !
             ALLOCATE( sf_sss(1), STAT=ierror )
@@ -142 +142 @@
          IF( nn_sstr == 1)   CALL fld_read( kt, nn_fsbc, sf_sst )   ! Read SST data and provides it
          !                                                          ! at the current time-step
-         IF( nn_sssr == 1)   CALL fld_read( kt, nn_fsbc, sf_sss )   ! Read SSS data and provides it
+         IF( nn_sssr >= 1)   CALL fld_read( kt, nn_fsbc, sf_sss )   ! Read SSS data and provides it
          !                                                          ! at the current time-step