Changeset 15594 for NEMO/releases

Timestamp:

2021-12-13T12:05:33+01:00 (2 years ago)

Author:

cetlod

Message:

v40-HEAD : bugfix in 1D configuration, see ticket #2746

File:

• NEMO/releases/r4.0/r4.0-HEAD/src/OCE/C1D/step_c1d.F90 (modified) (2 diffs)

NEMO/releases/r4.0/r4.0-HEAD/src/OCE/C1D/step_c1d.F90

@@ -82 +82 @@
       ! diagnostics and outputs             (ua, va, ta, sa used as workspace)
       !<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
+                         CALL eos( tsb, rhd, rhop, gdept_0(:,:,:) ) ! potential density 
+                                                                    ! ( needs in diawri, diahth and for some bio models )
+
                          CALL dia_wri( kstp )       ! ocean model: outputs
                          CALL dia_hth( kstp )       ! Thermocline depth (20 degres isotherm depth)
@@ -104 +107 @@
       IF( ln_zdfosm  )  CALL tra_osm( kstp )       ! OSMOSIS non-local tracer fluxes
                         CALL tra_zdf( kstp )       ! vertical mixing
-                        CALL eos( tsn, rhd, rhop, gdept_0(:,:,:) )   ! now potential density for zdfmxl
       IF( ln_zdfnpc )   CALL tra_npc( kstp )       ! applied non penetrative convective adjustment on (t,s)
                         CALL tra_nxt( kstp )       ! tracer fields at next time step