Changeset 282 for trunk/NEMO/OPA_SRC

Timestamp:

2005-09-22T12:23:03+02:00 (19 years ago)

Author:

opalod

Message:

nemo_v1_compil_002 : CT : move the zwn(:,:,:) array declaration which depends on the cpp key key_trabbl_adv

File:

• trunk/NEMO/OPA_SRC/TRA/traadv_tvd.F90 (modified) (2 diffs)

trunk/NEMO/OPA_SRC/TRA/traadv_tvd.F90

@@ -68 +68 @@
       !!----------------------------------------------------------------------
       !! * Modules used
+      USE trdmod_oce         , ztay => tladj,  &  ! use tladj latter
+         &                     zsay => sladj,  &  ! use sladj latter
+         &                     ztaz => tladi,  &  ! use ua as workspace
+         &                     zsaz => sladi      ! use ua as workspace
 #if defined key_trabbl_adv
       USE oce                , zun => ua,  &  ! use ua as workspace
          &                     zvn => va      ! use va as workspace
+
       REAL(wp), DIMENSION(jpi,jpj,jpk) :: zwn
 #else
@@ -77 +82 @@
                                zwn => wn      !             zwn == wn
 #endif
-      USE trdmod_oce         , ztay => tladj,  &  ! use tladj latter
-         &                     zsay => sladj,  &  ! use sladj latter
-         &                     ztaz => tladi,  &  ! use ua as workspace
-         &                     zsaz => sladi      ! use ua as workspace
 
       !! * Arguments