Changeset 1294 for trunk/NEMO/OPA_SRC
- Timestamp:
- 2009-02-04T17:30:59+01:00 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/SBC/sbcssr.F90
r1275 r1294 119 119 ENDIF 120 120 ! 121 IF( nn_sssr == 1 ) THEN ! set sf_sss structure121 IF( nn_sssr >= 1 ) THEN ! set sf_sss structure 122 122 ! 123 123 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 143 143 ! ! at the current time-step 144 IF( nn_sssr == 1) CALL fld_read( kt, nn_fsbc, sf_sss ) ! Read SSS data and provides it144 IF( nn_sssr >= 1) CALL fld_read( kt, nn_fsbc, sf_sss ) ! Read SSS data and provides it 145 145 ! ! at the current time-step 146 146
Note: See TracChangeset
for help on using the changeset viewer.