Changeset 7680 for branches/UKMO/dev_r5518_optim_GO6_alloc/NEMOGCM/NEMO/OPA_SRC/TRA/traadv.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/traadv.F90 (modified) (2 diffs)

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

@@ -86 +86 @@
       IF( nn_timing == 1 )  CALL timing_start('tra_adv')
       !
-      ALLOCATE(zun(jpi, jpj, jpk))
-      ALLOCATE(zvn(jpi, jpj, jpk))
-      ALLOCATE(zwn(jpi, jpj, jpk))
+      ALLOCATE(zun(1:jpi, 1:jpj, 1:jpk))
+      ALLOCATE(zvn(1:jpi, 1:jpj, 1:jpk))
+      ALLOCATE(zwn(1:jpi, 1:jpj, 1:jpk))
       !                                          ! set time step
       IF( neuler == 0 .AND. kt == nit000 ) THEN     ! at nit000
@@ -126 +126 @@
       !
       IF( l_trdtra )   THEN                    !* Save ta and sa trends
-         ALLOCATE(ztrdt( jpi, jpj, jpk) )
-         ALLOCATE(ztrds( jpi, jpj, jpk) )
+         ALLOCATE(ztrdt( 1:jpi, 1:jpj, 1:jpk) )
+         ALLOCATE(ztrds( 1:jpi, 1:jpj, 1:jpk) )
          ztrdt(:,:,:) = tsa(:,:,:,jp_tem)
          ztrds(:,:,:) = tsa(:,:,:,jp_sal)