Changeset 3118

Timestamp:

2011-11-15T22:27:32+01:00 (12 years ago)

Author:

cetlod

Message:

branch dev_NEMO_MERGE_2011/NEMOGCM: minor bug corrections

Location:

branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO

Files:

• OPA_SRC/DYN/dynhpg.F90 (modified) (1 diff)
• TOP_SRC/TRP/trcldf.F90 (modified) (1 diff)

branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/DYN/dynhpg.F90

@@ -675 +675 @@
       USE oce     , ONLY:   tsa                          ! (tsa) used as 2 3D workspace
       USE wrk_nemo, ONLY:   zhpi => wrk_3d_3 
-      USE wrk_nemo, ONLY:   zu => wrk_3d_4 
-      USE wrk_nemo, ONLY:   zv => wrk_3d_5
-      USE wrk_nemo, ONLY:   sp => wrk_3d_6 
-      USE wrk_nemo, ONLY:   sp => wrk_3d_7
-      USE wrk_nemo, ONLY:   sp => wrk_3d_8
-      USE wrk_nemo, ONLY:   sp => wrk_3d_9
-      USE wrk_nemo, ONLY:   sp => wrk_3d_10
-      USE wrk_nemo, ONLY:   sp => wrk_3d_11
+      USE wrk_nemo, ONLY:   zu   => wrk_3d_4 
+      USE wrk_nemo, ONLY:   zv   => wrk_3d_5
+      USE wrk_nemo, ONLY:   fsp  => wrk_3d_6
+      USE wrk_nemo, ONLY:   xsp  => wrk_3d_7
+      USE wrk_nemo, ONLY:   asp  => wrk_3d_8
+      USE wrk_nemo, ONLY:   bsp  => wrk_3d_9
+      USE wrk_nemo, ONLY:   csp  => wrk_3d_10
+      USE wrk_nemo, ONLY:   dsp  => wrk_3d_11
       !!
       !!----------------------------------------------------------------------

branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/TOP_SRC/TRP/trcldf.F90

@@ -18 +18 @@
    USE trc             ! ocean passive tracers variables
    USE trcnam_trp      ! passive tracers transport namelist variables
+   USE ldftra_oce      ! lateral diffusion coefficient on tracers
    USE ldfslp          ! ???
    USE traldf_bilapg   ! lateral mixing            (tra_ldf_bilapg routine)