Changeset 11467 for NEMO/branches/UKMO/dev_r10037_GPU/src/OCE/DIA

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/DIA/diahsb.F90 (modified) (2 diffs)

NEMO/branches/UKMO/dev_r10037_GPU/src/OCE/DIA/diahsb.F90

@@ -69 +69 @@
       !!
       !!---------------------------------------------------------------------------
+      USE scoce, ONLY : z2d0 => scr2D1, z2d1 => scr2D2, zwrk => scr1
       INTEGER, INTENT(in) ::   kt   ! ocean time-step index
       !
@@ -81 +82 @@
       REAL(wp)   ::   z_wn_trd_t , z_wn_trd_s     !    -     -
       REAL(wp)   ::   z_ssh_hc , z_ssh_sc         !    -     -
-      REAL(wp), DIMENSION(jpi,jpj)       ::   z2d0, z2d1   ! 2D workspace
-      REAL(wp), DIMENSION(jpi,jpj,jpkm1) ::   zwrk         ! 3D workspace
       !!---------------------------------------------------------------------------
       IF( ln_timing )   CALL timing_start('dia_hsb')