Changeset 13149 for NEMO/branches/UKMO/NEMO_4.0_mirror_SI3_GPU/src/OCE/TRA/traldf_iso.F90

Timestamp:

2020-06-24T09:03:45+02:00 (4 years ago)

Author:

andmirek

Message:

Ticket #2482: Dissable restart and use allocatable arrays

File:

• NEMO/branches/UKMO/NEMO_4.0_mirror_SI3_GPU/src/OCE/TRA/traldf_iso.F90 (modified) (3 diffs)

NEMO/branches/UKMO/NEMO_4.0_mirror_SI3_GPU/src/OCE/TRA/traldf_iso.F90

@@ -38 +38 @@
    LOGICAL  ::   l_ptr   ! flag to compute poleward transport
    LOGICAL  ::   l_hst   ! flag to compute heat transport
+   REAL(wp), DIMENSION(:, :)   , ALLOCATABLE ::   zdkt, zdk1t, z2d
+   REAL(wp), DIMENSION(:, :, :), ALLOCATABLE ::   zdit, zdjt, zftu, zftv, ztfw
 
    !! * Substitutions
@@ -109 +111 @@
       REAL(wp) ::  zmskv, zahv_w, zabe2, zcof2, zcoef4   !   -      -
       REAL(wp) ::  zcoef0, ze3w_2, zsign, z2dt, z1_2dt   !   -      -
-      REAL(wp), DIMENSION(jpi,jpj)     ::   zdkt, zdk1t, z2d
-      REAL(wp), DIMENSION(jpi,jpj,jpk) ::   zdit, zdjt, zftu, zftv, ztfw 
+!      REAL(wp), DIMENSION(jpi,jpj)     ::   zdkt, zdk1t, z2d
+!      REAL(wp), DIMENSION(jpi,jpj,jpk) ::   zdit, zdjt, zftu, zftv, ztfw 
       !!----------------------------------------------------------------------
       !
@@ -120 +122 @@
          akz     (:,:,:) = 0._wp      
          ah_wslp2(:,:,:) = 0._wp
+         ALLOCATE(zdit(jpi,jpj,jpk), zdjt(jpi,jpj,jpk), zftu(jpi,jpj,jpk), zftv(jpi,jpj,jpk), ztfw(jpi,jpj,jpk))
+         ALLOCATE(zdkt(jpi,jpj), zdk1t(jpi,jpj), z2d(jpi,jpj))
       ENDIF
       !