Changeset 7367 for branches/UKMO/CO5_package_branch/NEMOGCM/NEMO/OPA_SRC/TRA/traadv_eiv.F90

Timestamp:

2016-11-29T11:52:31+01:00 (7 years ago)

Author:

deazer

Message:

Contains merged code for CO5 reference.

File:

• branches/UKMO/CO5_package_branch/NEMOGCM/NEMO/OPA_SRC/TRA/traadv_eiv.F90 (modified) (3 diffs)

branches/UKMO/CO5_package_branch/NEMOGCM/NEMO/OPA_SRC/TRA/traadv_eiv.F90

@@ -79 +79 @@
 # endif  
       REAL(wp), POINTER, DIMENSION(:,:) :: zu_eiv, zv_eiv, zw_eiv, z2d
+      REAL(wp), POINTER, DIMENSION(:,:,:) :: uslp, vslp, wslpi, wslpj
       !!----------------------------------------------------------------------
       !
@@ -88 +89 @@
       CALL wrk_alloc( jpi, jpj, zu_eiv, zv_eiv, zw_eiv )
 # endif
+      CALL wrk_alloc( jpi, jpj, jpk, uslp, vslp, wslpi, wslpj )
+
+      IF ( ln_traldf_iso ) THEN  
+         uslp  = uslp_iso  
+         vslp  = vslp_iso  
+         wslpi = wslpi_iso  
+         wslpj = wslpj_iso  
+      ELSEIF ( ln_traldf_hor ) THEN  
+         uslp  = uslp_hor  
+         vslp  = vslp_hor  
+         wslpi = wslpi_hor  
+         wslpj = wslpj_hor  
+      ENDIF  
 
       IF( kt == kit000 )  THEN
@@ -194 +208 @@
       CALL wrk_dealloc( jpi, jpj, zu_eiv, zv_eiv, zw_eiv )
 # endif
+      CALL wrk_dealloc( jpi, jpj, jpk, uslp, vslp, wslpi, wslpj )
       !
       IF( nn_timing == 1 )  CALL timing_stop( 'tra_adv_eiv')