Changeset 14318 for NEMO/trunk/src/SWE
- Timestamp:
- 2021-01-20T11:49:35+01:00 (3 years ago)
- Location:
- NEMO/trunk/src/SWE
- Files:
-
- 1 added
- 3 edited
-
stp_oce.F90 (modified) (1 diff)
-
stpctl.F90 (added)
-
stpmlf.F90 (modified) (1 diff)
-
stprk3.F90 (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/SWE/stp_oce.F90
r14239 r14318 93 93 ! (dyn_asm_inc routine) 94 94 USE asmbkg ! writing out state trajectory 95 USE stpctl ! time stepping control (stp_ctl _SWEroutine)95 USE stpctl ! time stepping control (stp_ctl routine) 96 96 USE restart ! ocean restart (rst_wri routine) 97 97 USE prtctl ! Print control (prt_ctl routine) -
NEMO/trunk/src/SWE/stpmlf.F90
r14239 r14318 222 222 ! Control 223 223 !<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 224 CALL stp_ctl _SWE( kstp, Nnn )224 CALL stp_ctl ( kstp, Nnn ) 225 225 226 226 IF( kstp == nit000 ) THEN ! 1st time step only -
NEMO/trunk/src/SWE/stprk3.F90
r14239 r14318 319 319 ! Control 320 320 !<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 321 CALL stp_ctl _SWE( kstp , Nbb )321 CALL stp_ctl ( kstp , Nbb ) 322 322 323 323 IF( kstp == nit000 ) THEN ! 1st time step only
Note: See TracChangeset
for help on using the changeset viewer.
