New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 14143 for NEMO/trunk/src/SWE – NEMO

Changeset 14143 for NEMO/trunk/src/SWE


Ignore:
Timestamp:
2020-12-09T22:26:04+01:00 (3 years ago)
Author:
techene
Message:

#2385 add key_linssh equivalent to ln_linssh using domzr_substitute

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/trunk/src/SWE/stprk3.F90

    r14137 r14143  
    347347      !<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 
    348348       
    349       IF( ln_diacfl  )   CALL dia_cfl   ( kstp,      Nnn )      ! Courant number diagnostics 
    350                          CALL dia_wri   ( kstp,      Nnn )      ! ocean model: outputs 
     349      IF( ln_diacfl  )   CALL dia_cfl      ( kstp,      Nnn )      ! Courant number diagnostics 
     350                         CALL dia_wri      ( kstp,      Nnn )      ! ocean model: outputs 
    351351      ! 
    352352      IF( lrst_oce   )   CALL rst_write    ( kstp, Nbb, Nnn )   ! write output ocean restart file 
     
    355355      ! Control 
    356356      !<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 
    357                          CALL stp_ctl_SWE  ( kstp, Nnn ) 
     357                         CALL stp_ctl_SWE  ( kstp     , Nnn ) 
    358358 
    359359      IF( kstp == nit000 ) THEN                          ! 1st time step only 
Note: See TracChangeset for help on using the changeset viewer.