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

Timestamp:

2017-02-14T13:06:22+01:00 (8 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/traldf_iso.F90 (modified) (1 diff)

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

@@ -117 +117 @@
       IF( nn_timing == 1 )  CALL timing_start('tra_ldf_iso')
       !
-      ALLOCATE( z2d(jpi, jpj)) 
-      ALLOCATE( zdit(jpi, jpj, jpk))
-      ALLOCATE( zdjt(jpi, jpj, jpk)) 
-      ALLOCATE( ztfw(jpi, jpj, jpk)) 
-      ALLOCATE( zdkt(jpi, jpj, jpk)) 
-      ALLOCATE( zdk1t(jpi, jpj, jpk)) 
-      ALLOCATE( ztrax(jpi,jpj,jpk), ztray(jpi,jpj,jpk), ztraz(jpi,jpj,jpk) ) 
-      IF( l_trdtra .and. cdtype == 'TRA' ) ALLOCATE( ztrax_T(jpi,jpj,jpk), ztray_T(jpi,jpj,jpk), ztraz_T(jpi,jpj,jpk) ) 
+      ALLOCATE( z2d(1:jpi, 1:jpj)) 
+      ALLOCATE( zdit(1:jpi, 1:jpj, 1:jpk))
+      ALLOCATE( zdjt(1:jpi, 1:jpj, 1:jpk)) 
+      ALLOCATE( ztfw(1:jpi, 1:jpj, 1:jpk)) 
+      ALLOCATE( zdkt(1:jpi, 1:jpj, 1:jpk)) 
+      ALLOCATE( zdk1t(1:jpi, 1:jpj, 1:jpk)) 
+      ALLOCATE( ztrax(1:jpi,1:jpj,1:jpk)) 
+      ALLOCATE( ztray(1:jpi,1:jpj,1:jpk))
+      ALLOCATE( ztraz(1:jpi,1:jpj,1:jpk) ) 
+      IF( l_trdtra .and. cdtype == 'TRA' ) THEN
+         ALLOCATE( ztrax_T(1:jpi,1:jpj,1:jpk)) 
+         ALLOCATE( ztray_T(1:jpi,1:jpj,1:jpk)) 
+         ALLOCATE( ztraz_T(1:jpi,1:jpj,1:jpk)) 
+      ENDIF
       !