New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 3662 for branches/2012/dev_r3604_LEGI8_TAM/NEMOGCM/NEMO/OPATAM_SRC/TAM/trj_tam.F90 – NEMO

Ignore:
Timestamp:
2012-11-26T14:57:51+01:00 (11 years ago)
Author:
pabouttier
Message:

Multiple allocation of the same variables in tam_trj.F90 - See Ticket #1024

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2012/dev_r3604_LEGI8_TAM/NEMOGCM/NEMO/OPATAM_SRC/TAM/trj_tam.F90

    r3611 r3662  
    219219            CALL iom_open( cl_dirtrj, inumtrj1 ) 
    220220            if ( inumtrj1 == -1)  CALL ctl_stop( 'No tam_trajectory cl_amstrj found' ) 
    221  
    222             ALLOCATE( & 
    223                & empr1(jpi,jpj),  & 
    224                & empsr1(jpi,jpj), & 
    225                & empr2(jpi,jpj),  & 
    226                & empsr2(jpi,jpj), & 
    227                & bfruar1(jpi,jpj),& 
    228                & bfrvar1(jpi,jpj),& 
    229                & bfruar2(jpi,jpj),& 
    230                & bfrvar2(jpi,jpj) & 
    231                & ) 
    232  
    233             ALLOCATE( & 
    234                & unr1(jpi,jpj,jpk),     & 
    235                & vnr1(jpi,jpj,jpk),     & 
    236                & tnr1(jpi,jpj,jpk),     & 
    237                & snr1(jpi,jpj,jpk),     & 
    238                & avmur1(jpi,jpj,jpk),   & 
    239                & avmvr1(jpi,jpj,jpk),   & 
    240                & avtr1(jpi,jpj,jpk),    & 
    241                & etot3r1(jpi,jpj,jpk),  & 
    242                & unr2(jpi,jpj,jpk),     & 
    243                & vnr2(jpi,jpj,jpk),     & 
    244                & tnr2(jpi,jpj,jpk),     & 
    245                & snr2(jpi,jpj,jpk),     & 
    246                & avmur2(jpi,jpj,jpk),   & 
    247                & avmvr2(jpi,jpj,jpk),   & 
    248                & avtr2(jpi,jpj,jpk),    & 
    249                & etot3r2(jpi,jpj,jpk)   & 
    250                & ) 
     221            IF ( .NOT. ln_mem ) THEN 
     222               ALLOCATE( & 
     223                  & empr1(jpi,jpj),  & 
     224                  & empsr1(jpi,jpj), & 
     225                  & empr2(jpi,jpj),  & 
     226                  & empsr2(jpi,jpj), & 
     227                  & bfruar1(jpi,jpj),& 
     228                  & bfrvar1(jpi,jpj),& 
     229                  & bfruar2(jpi,jpj),& 
     230                  & bfrvar2(jpi,jpj) & 
     231                  & ) 
     232 
     233               ALLOCATE( & 
     234                  & unr1(jpi,jpj,jpk),     & 
     235                  & vnr1(jpi,jpj,jpk),     & 
     236                  & tnr1(jpi,jpj,jpk),     & 
     237                  & snr1(jpi,jpj,jpk),     & 
     238                  & avmur1(jpi,jpj,jpk),   & 
     239                  & avmvr1(jpi,jpj,jpk),   & 
     240                  & avtr1(jpi,jpj,jpk),    & 
     241                  & etot3r1(jpi,jpj,jpk),  & 
     242                  & unr2(jpi,jpj,jpk),     & 
     243                  & vnr2(jpi,jpj,jpk),     & 
     244                  & tnr2(jpi,jpj,jpk),     & 
     245                  & snr2(jpi,jpj,jpk),     & 
     246                  & avmur2(jpi,jpj,jpk),   & 
     247                  & avmvr2(jpi,jpj,jpk),   & 
     248                  & avtr2(jpi,jpj,jpk),    & 
     249                  & etot3r2(jpi,jpj,jpk)   & 
     250                  & ) 
    251251#if defined key_traldf_eiv 
    252252#if defined key_traldf_c3d 
    253253#elif defined key_traldf_c2d 
    254             ALLOCATE( & 
    255                & aeiur1(jpi,jpj), & 
    256                & aeivr1(jpi,jpj), & 
    257                & aeiwr1(jpi,jpj), & 
    258                & aeiur2(jpi,jpj), & 
    259                & aeivr2(jpi,jpj), & 
    260                & aeiwr2(jpi,jpj)  & 
    261                & ) 
     254               ALLOCATE( & 
     255                  & aeiur1(jpi,jpj), & 
     256                  & aeivr1(jpi,jpj), & 
     257                  & aeiwr1(jpi,jpj), & 
     258                  & aeiur2(jpi,jpj), & 
     259                  & aeivr2(jpi,jpj), & 
     260                  & aeiwr2(jpi,jpj)  & 
     261                  & ) 
    262262#elif defined key_traldf_c1d 
    263263#endif 
     
    265265 
    266266#if defined key_ldfslp 
    267             ALLOCATE( & 
    268                & uslpr1(jpi,jpj,jpk),   & 
    269                & vslpr1(jpi,jpj,jpk),   & 
    270                & wslpir1(jpi,jpj,jpk),  & 
    271                & wslpjr1(jpi,jpj,jpk),  & 
    272                & uslpr2(jpi,jpj,jpk),   & 
    273                & vslpr2(jpi,jpj,jpk),   & 
    274                & wslpir2(jpi,jpj,jpk),  & 
    275                & wslpjr2(jpi,jpj,jpk)   & 
    276                & ) 
     267               ALLOCATE( & 
     268                  & uslpr1(jpi,jpj,jpk),   & 
     269                  & vslpr1(jpi,jpj,jpk),   & 
     270                  & wslpir1(jpi,jpj,jpk),  & 
     271                  & wslpjr1(jpi,jpj,jpk),  & 
     272                  & uslpr2(jpi,jpj,jpk),   & 
     273                  & vslpr2(jpi,jpj,jpk),   & 
     274                  & wslpir2(jpi,jpj,jpk),  & 
     275                  & wslpjr2(jpi,jpj,jpk)   & 
     276                  & ) 
    277277#endif 
    278278 
    279279#if defined key_zdfddm 
    280             ALLOCATE( & 
    281                & avsr1(jpi,jpj,jpk),    & 
    282                & avsr2(jpi,jpj,jpk)     & 
    283                & ) 
     280               ALLOCATE( & 
     281                  & avsr1(jpi,jpj,jpk),    & 
     282                  & avsr2(jpi,jpj,jpk)     & 
     283                  & ) 
    284284#endif 
    285285 
    286286#if defined key_tradmp 
    287             ALLOCATE( & 
    288                & hmlp1(jpi,jpj),    & 
    289                & hmlp2(jpi,jpj)     & 
    290                & ) 
    291 #endif 
    292        ln_mem = .TRUE. 
    293  
     287               ALLOCATE( & 
     288                  & hmlp1(jpi,jpj),    & 
     289                  & hmlp2(jpi,jpj)     & 
     290                  & ) 
     291#endif 
     292               ln_mem = .TRUE. 
     293            ENDIF 
    294294         ENDIF 
    295295 
Note: See TracChangeset for help on using the changeset viewer.