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_tvd.F90

    r7581 r7680  
    369369      IF( nn_timing == 1 )  CALL timing_start('tra_adv_tvd_zts') 
    370370      ! 
    371       ALLOCATE(zwx_sav(jpi, jpj)) 
    372       ALLOCATE(zwy_sav(jpi, jpj)) 
    373       ALLOCATE(zwi(jpi, jpj, jpk)) 
    374       ALLOCATE(zwz(jpi, jpj, jpk))         
    375       ALLOCATE(zhdiv(jpi, jpj, jpk))        
    376       ALLOCATE(zwz_sav(jpi, jpj, jpk))        
    377       ALLOCATE(zwzts(jpi, jpj, jpk))  
    378       ALLOCATE(ztrs(jpi, jpj, jpk, kjpt+1)) 
     371      ALLOCATE(zwx_sav(1:jpi, 1:jpj)) 
     372      ALLOCATE(zwy_sav(1:jpi, 1:jpj)) 
     373      ALLOCATE(zwi(1:jpi, 1:jpj, 1:jpk)) 
     374      ALLOCATE(zwz(1:jpi, 1:jpj, 1:jpk))         
     375      ALLOCATE(zhdiv(1:jpi, 1:jpj, 1:jpk))        
     376      ALLOCATE(zwz_sav(1:jpi, 1:jpj, 1:jpk))        
     377      ALLOCATE(zwzts(1:jpi, 1:jpj, 1:jpk))  
     378      ALLOCATE(ztrs(1:jpi, 1:jpj, 1:jpk, 1:kjpt+1)) 
    379379      ! 
    380380      IF( kt == kit000 )  THEN 
     
    388388      ! 
    389389      IF( l_trd )  THEN 
    390          ALLOCATE(ztrdx(jpi, jpj, jpk))        
    391          ALLOCATE(ztrdy(jpi, jpj, jpk))        
    392          ALLOCATE(ztrdz(jpi, jpj, jpk))        
     390         ALLOCATE(ztrdx(1:jpi, 1:jpj, 1:jpk))        
     391         ALLOCATE(ztrdy(1:jpi, 1:jpj, 1:jpk))        
     392         ALLOCATE(ztrdz(1:jpi, 1:jpj, 1:jpk))        
    393393         ztrdx(:,:,:) = 0._wp  ;    ztrdy(:,:,:) = 0._wp  ;   ztrdz(:,:,:) = 0._wp 
    394394      ENDIF 
    395395      ! 
    396396      IF( cdtype == 'TRA' .AND. ln_diaptr ) THEN   
    397          ALLOCATE(zptry(jpi, jpj, jpk))        
     397         ALLOCATE(zptry(1:jpi, 1:jpj, 1:jpk))        
    398398         zptry(:,:,:) = 0._wp 
    399399      ENDIF 
     
    665665      IF( nn_timing == 1 )  CALL timing_start('nonosc') 
    666666      ! 
    667       ALLOCATE(zbetup(jpi, jpj, jpk)) 
    668       ALLOCATE(zbetdo(jpi, jpj, jpk)) 
    669       ALLOCATE(zbup(jpi, jpj, jpk)) 
    670       ALLOCATE(zbdo(jpi, jpj, jpk)) 
     667      ALLOCATE(zbetup(1:jpi, 1:jpj, 1:jpk)) 
     668      ALLOCATE(zbetdo(1:jpi, 1:jpj, 1:jpk)) 
     669      ALLOCATE(zbup(1:jpi, 1:jpj, 1:jpk)) 
     670      ALLOCATE(zbdo(1:jpi, 1:jpj, 1:jpk)) 
    671671      ! 
    672672      zbig  = 1.e+40_wp 
Note: See TracChangeset for help on using the changeset viewer.