Changeset 457 for trunk/NEMO/OPA_SRC/TRA/tranxt.F90

Timestamp:

2006-05-10T19:01:19+02:00 (18 years ago)

Author:

opalod

Message:

nemo_v1_update_049:RB: reorganization of tracers part, remove traadv_cen2_atsk.h90 traldf_iso_zps.F90 trazdf_iso.F90 trazdf_iso_vopt.F90, change atsk routines to jki

File:

• trunk/NEMO/OPA_SRC/TRA/tranxt.F90 (modified) (3 diffs)

trunk/NEMO/OPA_SRC/TRA/tranxt.F90

@@ -4 +4 @@
    !! Ocean active tracers:  time stepping on temperature and salinity
    !!======================================================================
-   
+   !! History :
+   !!   7.0  !  91-11  (G. Madec)  Original code
+   !!        !  93-03  (M. Guyon)  symetrical conditions
+   !!        !  96-02  (G. Madec & M. Imbard)  opa release 8.0
+   !!   8.0  !  96-04  (A. Weaver)  Euler forward step
+   !!   8.2  !  99-02  (G. Madec, N. Grima)  semi-implicit pressure grad.
+   !!   8.5  !  02-08  (G. Madec)  F90: Free form and module
+   !!        !  02-11  (C. Talandier, A-M Treguier) Open boundaries
+   !!   9.0  !  06-02  (L. Debreu, C. Mazauric) Agrif implementation
    !!----------------------------------------------------------------------
    !!   tra_nxt     : time stepping on temperature and salinity
@@ -60 +68 @@
       !!              - (ta,sa) time averaged (t,s)      (ln_dynhpg_imp = T)
       !!
-      !! History :
-      !!   7.0  !  91-11  (G. Madec)  Original code
-      !!        !  93-03  (M. Guyon)  symetrical conditions
-      !!        !  96-02  (G. Madec & M. Imbard)  opa release 8.0
-      !!   8.0  !  96-04  (A. Weaver)  Euler forward step
-      !!   8.2  !  99-02  (G. Madec, N. Grima)  semi-implicit pressure grad.
-      !!   8.5  !  02-08  (G. Madec)  F90: Free form and module
-      !!        !  02-11  (C. Talandier, A-M Treguier) Open boundaries
       !!----------------------------------------------------------------------
       !! * Arguments
@@ -91 +91 @@
          ! 1. Leap-frog scheme (only in explicit case, otherwise the 
          ! -------------------  time stepping is already done in trazdf)
-         IF( l_trazdf_exp ) THEN
+         IF( ln_zdfexp ) THEN
             zfact = 2. * rdttra(jk)
             IF( neuler == 0 .AND. kt == nit000 ) zfact = rdttra(jk)