Changeset 7680 for branches/UKMO/dev_r5518_optim_GO6_alloc/NEMOGCM/NEMO/OPA_SRC/TRA/traadv_tvd.F90

Timestamp:

2017-02-14T13:06:22+01:00 (7 years ago)

Author:

frrh

Message:

Update all modified (and some existing) ALLOCATE statements to
use explicit range in dimensioning starting from 1, for
consistency and avoidance of doubt over dimensioning.

File:

• branches/UKMO/dev_r5518_optim_GO6_alloc/NEMOGCM/NEMO/OPA_SRC/TRA/traadv_tvd.F90 (modified) (3 diffs)

branches/UKMO/dev_r5518_optim_GO6_alloc/NEMOGCM/NEMO/OPA_SRC/TRA/traadv_tvd.F90

@@ -369 +369 @@
       IF( nn_timing == 1 )  CALL timing_start('tra_adv_tvd_zts')
       !
-      ALLOCATE(zwx_sav(jpi, jpj))
-      ALLOCATE(zwy_sav(jpi, jpj))
-      ALLOCATE(zwi(jpi, jpj, jpk))
-      ALLOCATE(zwz(jpi, jpj, jpk))        
-      ALLOCATE(zhdiv(jpi, jpj, jpk))       
-      ALLOCATE(zwz_sav(jpi, jpj, jpk))       
-      ALLOCATE(zwzts(jpi, jpj, jpk)) 
-      ALLOCATE(ztrs(jpi, jpj, jpk, kjpt+1))
+      ALLOCATE(zwx_sav(1:jpi, 1:jpj))
+      ALLOCATE(zwy_sav(1:jpi, 1:jpj))
+      ALLOCATE(zwi(1:jpi, 1:jpj, 1:jpk))
+      ALLOCATE(zwz(1:jpi, 1:jpj, 1:jpk))        
+      ALLOCATE(zhdiv(1:jpi, 1:jpj, 1:jpk))       
+      ALLOCATE(zwz_sav(1:jpi, 1:jpj, 1:jpk))       
+      ALLOCATE(zwzts(1:jpi, 1:jpj, 1:jpk)) 
+      ALLOCATE(ztrs(1:jpi, 1:jpj, 1:jpk, 1:kjpt+1))
       !
       IF( kt == kit000 )  THEN
@@ -388 +388 @@
       !
       IF( l_trd )  THEN
-         ALLOCATE(ztrdx(jpi, jpj, jpk))       
-         ALLOCATE(ztrdy(jpi, jpj, jpk))       
-         ALLOCATE(ztrdz(jpi, jpj, jpk))       
+         ALLOCATE(ztrdx(1:jpi, 1:jpj, 1:jpk))       
+         ALLOCATE(ztrdy(1:jpi, 1:jpj, 1:jpk))       
+         ALLOCATE(ztrdz(1:jpi, 1:jpj, 1:jpk))       
          ztrdx(:,:,:) = 0._wp  ;    ztrdy(:,:,:) = 0._wp  ;   ztrdz(:,:,:) = 0._wp
       ENDIF
       !
       IF( cdtype == 'TRA' .AND. ln_diaptr ) THEN  
-         ALLOCATE(zptry(jpi, jpj, jpk))       
+         ALLOCATE(zptry(1:jpi, 1:jpj, 1:jpk))       
          zptry(:,:,:) = 0._wp
       ENDIF
@@ -665 +665 @@
       IF( nn_timing == 1 )  CALL timing_start('nonosc')
       !
-      ALLOCATE(zbetup(jpi, jpj, jpk))
-      ALLOCATE(zbetdo(jpi, jpj, jpk))
-      ALLOCATE(zbup(jpi, jpj, jpk))
-      ALLOCATE(zbdo(jpi, jpj, jpk))
+      ALLOCATE(zbetup(1:jpi, 1:jpj, 1:jpk))
+      ALLOCATE(zbetdo(1:jpi, 1:jpj, 1:jpk))
+      ALLOCATE(zbup(1:jpi, 1:jpj, 1:jpk))
+      ALLOCATE(zbdo(1:jpi, 1:jpj, 1:jpk))
       !
       zbig  = 1.e+40_wp