Changeset 1196 for trunk/NEMO/OPA_SRC/SBC/sbcssm.F90
- Timestamp:
- 2008-09-19T09:07:00+02:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/SBC/sbcssm.F90
r1156 r1196 73 73 ! 74 74 IF( ln_rstart .AND. iom_varid( numror, 'nn_fsbc' ) > 0 ) THEN 75 CALL iom_get( numror , 'nn_fsbc', zf_sbc ) ! sbc frequency of previous run76 CALL iom_get( numror, jpdom_ local, 'ssu_m' , ssu_m ) ! sea surface mean velocity (T-point)77 CALL iom_get( numror, jpdom_ local, 'ssv_m' , ssv_m ) ! " " velocity (V-point)78 CALL iom_get( numror, jpdom_ local, 'sst_m' , sst_m ) ! " " temperature (T-point)79 CALL iom_get( numror, jpdom_ local, 'sss_m' , sss_m ) ! " " salinity (T-point)75 CALL iom_get( numror , 'nn_fsbc', zf_sbc ) ! sbc frequency of previous run 76 CALL iom_get( numror, jpdom_autoglo, 'ssu_m' , ssu_m ) ! sea surface mean velocity (T-point) 77 CALL iom_get( numror, jpdom_autoglo, 'ssv_m' , ssv_m ) ! " " velocity (V-point) 78 CALL iom_get( numror, jpdom_autoglo, 'sst_m' , sst_m ) ! " " temperature (T-point) 79 CALL iom_get( numror, jpdom_autoglo, 'sss_m' , sss_m ) ! " " salinity (T-point) 80 80 ! 81 81 IF( zf_sbc /= REAL( nn_fsbc, wp ) ) THEN ! nn_fsbc has changed between 2 runs
Note: See TracChangeset
for help on using the changeset viewer.