Changeset 7680 for branches/UKMO/dev_r5518_optim_GO6_alloc/NEMOGCM/NEMO/OPA_SRC/SOL/solpcg.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/SOL/solpcg.F90 (modified) (1 diff)

branches/UKMO/dev_r5518_optim_GO6_alloc/NEMOGCM/NEMO/OPA_SRC/SOL/solpcg.F90

@@ -98 +98 @@
       IF( nn_timing == 1 )  CALL timing_start('sol_pcg')
       !
-      ALLOCATE( zgcr(jpi,jpj) )
+      ALLOCATE( zgcr(1:jpi,1:jpj) )
       !
       ! Initialization of the algorithm with standard PCG