Changeset 457 for trunk/NEMO/OPA_SRC/TRA/trasbc.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/trasbc.F90 (modified) (4 diffs)

trunk/NEMO/OPA_SRC/TRA/trasbc.F90

@@ -4 +4 @@
    !! Ocean active tracers:  surface boundary condition
    !!==============================================================================
-
+   !! History :
+   !!   8.2  !  98-10  (G. Madec, G. Roullet, M. Imbard)  Original code
+   !!   8.2  !  01-02  (D. Ludicone)  sea ice and free surface
+   !!   8.5  !  02-06  (G. Madec)  F90: Free form and module
+   !!   9.0  !  04-08  (C. Talandier) New trends organization
    !!----------------------------------------------------------------------
    !!   tra_sbc      : update the tracer trend at ocean surface
@@ -75 +79 @@
       !!              - save the trend it in ttrd ('key_trdtra')
       !!
-      !! History :
-      !!   8.2  !  98-10  (G. Madec, G. Roullet, M. Imbard)  Original code
-      !!   8.2  !  01-02  (D. Ludicone)  sea ice and free surface
-      !!   8.5  !  02-06  (G. Madec)  F90: Free form and module
-      !!   9.0  !  04-08  (C. Talandier) New trends organization
       !!----------------------------------------------------------------------
       !! * Modules used     
@@ -101 +100 @@
       ! 0. initialization
       zsrau = 1. / rauw
-#if ! defined key_s_coord
-      zse3t = 1. / fse3t(1,1,1)
+#if defined key_zco
+      zse3t = 1. / e3t_0(1)
 #endif
 
@@ -116 +115 @@
       DO jj = 2, jpj
          DO ji = fs_2, fs_jpim1   ! vector opt.
-#if defined key_s_coord
+#if ! defined key_zco
             zse3t = 1. / fse3t(ji,jj,1)
 #endif