Ignore:
Timestamp:
2017-02-14T13:06:22+01:00 (4 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:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r5518_optim_GO6_alloc/NEMOGCM/NEMO/OPA_SRC/TRA/traadv.F90

    r7581 r7680  
    8686      IF( nn_timing == 1 )  CALL timing_start('tra_adv') 
    8787      ! 
    88       ALLOCATE(zun(jpi, jpj, jpk)) 
    89       ALLOCATE(zvn(jpi, jpj, jpk)) 
    90       ALLOCATE(zwn(jpi, jpj, jpk)) 
     88      ALLOCATE(zun(1:jpi, 1:jpj, 1:jpk)) 
     89      ALLOCATE(zvn(1:jpi, 1:jpj, 1:jpk)) 
     90      ALLOCATE(zwn(1:jpi, 1:jpj, 1:jpk)) 
    9191      !                                          ! set time step 
    9292      IF( neuler == 0 .AND. kt == nit000 ) THEN     ! at nit000 
     
    126126      ! 
    127127      IF( l_trdtra )   THEN                    !* Save ta and sa trends 
    128          ALLOCATE(ztrdt( jpi, jpj, jpk) ) 
    129          ALLOCATE(ztrds( jpi, jpj, jpk) ) 
     128         ALLOCATE(ztrdt( 1:jpi, 1:jpj, 1:jpk) ) 
     129         ALLOCATE(ztrds( 1:jpi, 1:jpj, 1:jpk) ) 
    130130         ztrdt(:,:,:) = tsa(:,:,:,jp_tem) 
    131131         ztrds(:,:,:) = tsa(:,:,:,jp_sal) 
Note: See TracChangeset for help on using the changeset viewer.