Changeset 11467 for NEMO/branches/UKMO/dev_r10037_GPU/src/OCE/ZDF/zdfmxl.F90

Timestamp:

2019-08-22T11:49:08+02:00 (5 years ago)

Author:

andmirek

Message:

Ticket #2197 allocate arrays at the beggining of the run

File:

• NEMO/branches/UKMO/dev_r10037_GPU/src/OCE/ZDF/zdfmxl.F90 (modified) (4 diffs)

NEMO/branches/UKMO/dev_r10037_GPU/src/OCE/ZDF/zdfmxl.F90

@@ -86 +86 @@
       !! ** Action  :   nmln, hmld, hmlp, hmlpt
       !!----------------------------------------------------------------------
+      USE scoce, ONLY : imld => iscr2D1
       INTEGER, INTENT(in) ::   kt   ! ocean time-step index
       !
@@ -91 +92 @@
       INTEGER  ::   iikn, iiki, ikt ! local integer
       REAL(wp) ::   zN2_c           ! local scalar
-      INTEGER, DIMENSION(jpi,jpj) ::   imld   ! 2D workspace
       !!----------------------------------------------------------------------
       !
@@ -177 +177 @@
       ! 
       !!----------------------------------------------------------------------------------- 
-
+      USE scoce, ONLY : ikmt => iscr2D1,   &    ! number of active tracer levels
+                       ik_ref => iscr2D2, &    ! index of reference level
+                       ik_iso => iscr2D3, &    ! index of last uniform temp level
+                       zT => scr1,        &    ! Temperature or density      
+                       ppzdep => scr2D1,  &    ! depth for use in calculating d(rho)
+                       zT_ref => scr2D2,  &    ! reference temperature
+                       zdTdz => scr2,     &    ! gradient of zT
+                       zmoddT => scr3,    &    ! Absolute temperature difference
+                       zdelta_T => scr2D3,&    ! difference critereon
+                       zRHO1 => scr2D4,   &    ! Densities
+                       zRHO2 => scr2D5         ! Densities
       TYPE(MXL_ZINT), INTENT(in)  :: sf
 
@@ -188 +198 @@
       ! Local variables
       REAL(wp), PARAMETER :: zepsilon = 1.e-30          ! local small value
-      INTEGER, DIMENSION(jpi,jpj) :: ikmt          ! number of active tracer levels 
-      INTEGER, DIMENSION(jpi,jpj) :: ik_ref        ! index of reference level 
-      INTEGER, DIMENSION(jpi,jpj) :: ik_iso        ! index of last uniform temp level 
-      REAL, DIMENSION(jpi,jpj,jpk)  :: zT            ! Temperature or density 
-      REAL, DIMENSION(jpi,jpj)    :: ppzdep        ! depth for use in calculating d(rho) 
-      REAL, DIMENSION(jpi,jpj)    :: zT_ref        ! reference temperature 
       REAL    :: zT_b                                   ! base temperature 
-      REAL, DIMENSION(jpi,jpj,jpk)  :: zdTdz         ! gradient of zT 
-      REAL, DIMENSION(jpi,jpj,jpk)  :: zmoddT        ! Absolute temperature difference 
       REAL    :: zdz                                    ! depth difference 
       REAL    :: zdT                                    ! temperature difference 
-      REAL, DIMENSION(jpi,jpj)    :: zdelta_T      ! difference critereon 
-      REAL, DIMENSION(jpi,jpj)    :: zRHO1, zRHO2  ! Densities 
       INTEGER :: ji, jj, jk                             ! loop counter