Changeset 14143 for NEMO/trunk/src/SWE
- Timestamp:
- 2020-12-09T22:26:04+01:00 (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/SWE/stprk3.F90
r14137 r14143 347 347 !<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 348 348 349 IF( ln_diacfl ) CALL dia_cfl ( kstp, Nnn ) ! Courant number diagnostics350 CALL dia_wri ( kstp, Nnn ) ! ocean model: outputs349 IF( ln_diacfl ) CALL dia_cfl ( kstp, Nnn ) ! Courant number diagnostics 350 CALL dia_wri ( kstp, Nnn ) ! ocean model: outputs 351 351 ! 352 352 IF( lrst_oce ) CALL rst_write ( kstp, Nbb, Nnn ) ! write output ocean restart file … … 355 355 ! Control 356 356 !<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 357 CALL stp_ctl_SWE ( kstp , Nnn )357 CALL stp_ctl_SWE ( kstp , Nnn ) 358 358 359 359 IF( kstp == nit000 ) THEN ! 1st time step only
Note: See TracChangeset
for help on using the changeset viewer.