Changeset 13816
- Timestamp:
- 2020-11-18T18:35:27+01:00 (4 years ago)
- Location:
- NEMO/branches/2020/dev_r13648_ASINTER-04_laurent_bulk_ice
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_r13648_ASINTER-04_laurent_bulk_ice/src/OCE/C1D/step_c1d.F90
r13237 r13816 122 122 CALL dyn_atf ( kstp, Nbb, Nnn, Naa , uu, vv, e3t, e3u, e3v ) ! time filtering of "now" fields 123 123 IF(.NOT.ln_linssh)CALL ssh_atf ( kstp, Nbb, Nnn, Naa , ssh ) ! time filtering of "now" sea surface height 124 IF( kstp == nit000 .AND. ln_linssh) THEN 125 ssh(:,:,Naa) = ssh(:,:,Nnn) ! init ssh after in ln_linssh case 126 ENDIF 124 127 ! 125 128 ! Swap time levels -
NEMO/branches/2020/dev_r13648_ASINTER-04_laurent_bulk_ice/tests/STATION_ASF/MY_SRC/step_c1d.F90
r13655 r13816 7 7 !! 3.0 ! 2008-04 (G. Madec) redo the adaptation to include SBC 8 8 !! 4.1 ! 2019-08 (A. Coward, D. Storkey) rewrite in preparation for new timestepping scheme 9 !! 4.x ! 2020- 09(L. Brodeau) STATION_ASF test-case9 !! 4.x ! 2020-11 (L. Brodeau) STATION_ASF test-case 10 10 !!---------------------------------------------------------------------- 11 11 #if defined key_c1d … … 26 26 !!---------------------------------------------------------------------- 27 27 !! NEMO/OCE 4.0 , NEMO Consortium (2018) 28 !! $Id: step_c1d.F90 13 237 2020-07-03 09:12:53Z smasson $28 !! $Id: step_c1d.F90 13802 2020-11-17 09:21:55Z gsamson $ 29 29 !! Software governed by the CeCILL license (see ./LICENSE) 30 30 !!---------------------------------------------------------------------- … … 54 54 IF( kstp == nit000 ) CALL iom_init( "nemo") ! iom_put initialization (must be done after nemo_init for AGRIF+XIOS+OASIS) 55 55 IF( kstp /= nit000 ) CALL day( kstp ) ! Calendar (day was already called at nit000 in day_init) 56 CALL iom_setkt( kstp - nit000 + 1, "nemo" ) ! say to iom that we are at time step kstp56 CALL iom_setkt( kstp - nit000 + 1, "nemo" ) ! say to iom that we are at time step kstp 57 57 58 58 !>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 59 59 ! Update data, open boundaries, surface boundary condition (including sea-ice) 60 60 !<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 61 CALL sbc ( kstp, Nbb, Nnn ) ! Sea Boundary Condition (including sea-ice)62 ! #LB: ==> calls 'sbc_ssm()' ! 61 CALL sbc ( kstp, Nbb, Nnn ) ! Sea Boundary Condition (including sea-ice) 62 63 63 !>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 64 64 ! diagnostics and outputs 65 65 !<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 66 CALL dia_wri( kstp, Nnn ) ! ocean model: outputs66 CALL dia_wri( kstp, Nnn ) ! ocean model: outputs 67 67 68 68 ! Swap time levels … … 75 75 ! Control and restarts 76 76 !<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 77 CALL stp_ctl( kstp, Nnn )77 CALL stp_ctl( kstp, Nnn ) 78 78 IF( kstp == nit000 ) CALL iom_close( numror ) ! close input ocean restart file 79 79 IF( lrst_oce ) CALL rst_write( kstp, Nbb, Nnn ) ! write output ocean restart file
Note: See TracChangeset
for help on using the changeset viewer.