Changeset 1214 for trunk/NEMO/OPA_SRC
- Timestamp:
- 2008-10-10T17:28:49+02:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/SBC/sbcssm.F90
r1196 r1214 72 72 IF(lwp) WRITE(numout,*) 'sbc_ssm : sea surface mean fields' 73 73 ! 74 IF( ln_rstart .AND. iom_varid( numror, 'nn_fsbc' ) > 0 ) THEN74 IF( ln_rstart .AND. iom_varid( numror, 'nn_fsbc', ldstop = .FALSE. ) > 0 ) THEN 75 75 CALL iom_get( numror , 'nn_fsbc', zf_sbc ) ! sbc frequency of previous run 76 76 CALL iom_get( numror, jpdom_autoglo, 'ssu_m' , ssu_m ) ! sea surface mean velocity (T-point)
Note: See TracChangeset
for help on using the changeset viewer.