Changeset 12740 for NEMO/trunk/src/OCE/C1D/step_c1d.F90

Timestamp:

2020-04-12T11:03:06+02:00 (4 years ago)

Author:

smasson

Message:

trunk: update/debug of tests and C1D, see #2442

File:

• NEMO/trunk/src/OCE/C1D/step_c1d.F90 (modified) (4 diffs)

NEMO/trunk/src/OCE/C1D/step_c1d.F90

@@ -27 +27 @@
    PRIVATE
 
-   PUBLIC stp_c1d      ! called by opa.F90
+   PUBLIC stp_c1d      ! called by nemogcm.F90
 
    !!----------------------------------------------------------------------
@@ -88 +88 @@
       !<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                          CALL dia_wri( kstp, Nnn )  ! ocean model: outputs
-      IF( lk_diahth  )   CALL dia_hth( kstp, Nnn )  ! Thermocline depth (20°C)
+                         CALL dia_hth( kstp, Nnn )  ! Thermocline depth (20°C)
 
 
@@ -111 +111 @@
                         CALL eos( ts(:,:,:,:,Nnn), rhd, rhop, gdept_0(:,:,:) )  ! now potential density for zdfmxl
       IF( ln_zdfnpc )   CALL tra_npc( kstp,      Nnn, Nrhs, ts, Naa   )         ! applied non penetrative convective adjustment on (t,s)
-                        CALL tra_atf( kstp, Nbb, Nnn, Nrhs,     Naa, ts   )     ! time filtering of "now" tracer fields
-
-
+                        CALL tra_atf( kstp, Nbb, Nnn, Naa, ts )                 ! time filtering of "now" tracer arrays
 
       !>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
@@ -139 +137 @@
       ! Control and restarts
       !<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
-                             CALL stp_ctl( kstp, Nnn, indic )
+                             CALL stp_ctl( kstp, Nbb, Nnn, indic )
       IF( kstp == nit000 )   CALL iom_close( numror )          ! close input  ocean restart file
       IF( lrst_oce       )   CALL rst_write( kstp, Nbb, Nnn )  ! write output ocean restart file