Changeset 7680


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.

Location:
branches/UKMO/dev_r5518_optim_GO6_alloc/NEMOGCM/NEMO
Files:
6 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r5518_optim_GO6_alloc/NEMOGCM/NEMO/OPA_SRC/SOL/solpcg.F90

    r7581 r7680  
    9898      IF( nn_timing == 1 )  CALL timing_start('sol_pcg') 
    9999      ! 
    100       ALLOCATE( zgcr(jpi,jpj) ) 
     100      ALLOCATE( zgcr(1:jpi,1:jpj) ) 
    101101      ! 
    102102      ! Initialization of the algorithm with standard PCG 
  • 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) 
  • 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 
  • branches/UKMO/dev_r5518_optim_GO6_alloc/NEMOGCM/NEMO/OPA_SRC/TRA/traldf_iso.F90

    r7602 r7680  
    117117      IF( nn_timing == 1 )  CALL timing_start('tra_ldf_iso') 
    118118      ! 
    119       ALLOCATE( z2d(jpi, jpj))  
    120       ALLOCATE( zdit(jpi, jpj, jpk)) 
    121       ALLOCATE( zdjt(jpi, jpj, jpk))  
    122       ALLOCATE( ztfw(jpi, jpj, jpk))  
    123       ALLOCATE( zdkt(jpi, jpj, jpk))  
    124       ALLOCATE( zdk1t(jpi, jpj, jpk))  
    125       ALLOCATE( ztrax(jpi,jpj,jpk), ztray(jpi,jpj,jpk), ztraz(jpi,jpj,jpk) )  
    126       IF( l_trdtra .and. cdtype == 'TRA' ) ALLOCATE( ztrax_T(jpi,jpj,jpk), ztray_T(jpi,jpj,jpk), ztraz_T(jpi,jpj,jpk) )  
     119      ALLOCATE( z2d(1:jpi, 1:jpj))  
     120      ALLOCATE( zdit(1:jpi, 1:jpj, 1:jpk)) 
     121      ALLOCATE( zdjt(1:jpi, 1:jpj, 1:jpk))  
     122      ALLOCATE( ztfw(1:jpi, 1:jpj, 1:jpk))  
     123      ALLOCATE( zdkt(1:jpi, 1:jpj, 1:jpk))  
     124      ALLOCATE( zdk1t(1:jpi, 1:jpj, 1:jpk))  
     125      ALLOCATE( ztrax(1:jpi,1:jpj,1:jpk))  
     126      ALLOCATE( ztray(1:jpi,1:jpj,1:jpk)) 
     127      ALLOCATE( ztraz(1:jpi,1:jpj,1:jpk) )  
     128      IF( l_trdtra .and. cdtype == 'TRA' ) THEN 
     129         ALLOCATE( ztrax_T(1:jpi,1:jpj,1:jpk))  
     130         ALLOCATE( ztray_T(1:jpi,1:jpj,1:jpk))  
     131         ALLOCATE( ztraz_T(1:jpi,1:jpj,1:jpk))  
     132      ENDIF 
    127133      ! 
    128134 
  • branches/UKMO/dev_r5518_optim_GO6_alloc/NEMOGCM/NEMO/TOP_SRC/TRP/trcbbl.F90

    r7581 r7680  
    6464 
    6565      IF( l_trdtrc )  THEN 
    66          ALLOCATE(ztrtrd( jpi, jpj, jpk, jptra )) ! temporary save of trends 
     66         ALLOCATE(ztrtrd( 1:jpi, 1:jpj, 1:jpk, 1:jptra )) ! temporary save of trends 
    6767         ztrtrd(:,:,:,:)  = tra(:,:,:,:) 
    6868      ENDIF 
  • branches/UKMO/dev_r5518_optim_GO6_alloc/NEMOGCM/NEMO/TOP_SRC/TRP/trcldf.F90

    r7581 r7680  
    8181      ! 
    8282      IF( l_trdtrc )  THEN 
    83          ALLOCATE( ztrtrd ( jpi, jpj, jpk, jptra) ) 
     83         ALLOCATE( ztrtrd ( 1:jpi, 1:jpj, 1:jpk, 1:jptra) ) 
    8484         ztrtrd(:,:,:,:)  = tra(:,:,:,:) 
    8585      ENDIF 
Note: See TracChangeset for help on using the changeset viewer.