Changeset 1111 for trunk/NEMO/OPA_SRC/step.F90

Timestamp:

2008-06-13T16:35:46+02:00 (16 years ago)

Author:

ctlod

Message:

trunk: remove a small bug related to the non-penetrative convective adjustment scheme, see ticket: #203

File:

• trunk/NEMO/OPA_SRC/step.F90 (modified) (1 diff)

trunk/NEMO/OPA_SRC/step.F90

@@ -276 +276 @@
       IF(.NOT. Agrif_Root()) CALL Agrif_Sponge_tra          ! tracers sponge
 #endif
-                             CALL tra_zdf    ( kstp )       ! vertical mixing
-                             CALL tra_nxt( kstp )           ! tracer fields at next time step
-      IF( ln_zdfnpc      )   CALL tra_npc( kstp )           ! update the new (t,s) fields by non
-      !                                                     ! penetrative convective adjustment
+                             CALL tra_zdf    ( kstp )       ! vertical mixing and after tracer fields
+      IF( ln_zdfnpc      )   CALL tra_npc    ( kstp )       ! update after fields by non-penetrative convection
+                             CALL tra_nxt    ( kstp )       ! tracer fields at next time step
 
       IF( ln_dynhpg_imp  ) THEN                             ! semi-implicit hpg