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 2592 for branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/DYN – NEMO

Ignore:
Timestamp:
2011-02-18T16:02:22+01:00 (13 years ago)
Author:
rblod
Message:

Small correction for dynamic allocation in OPA_SRC

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/DYN/divcur.F90

    r2590 r2592  
    4040   ! These workspace arrays are not replaced by wrk_nemo because they  
    4141   ! have extents greater than (jpi,jpj) 
    42    REAL(wp), DIMENSION(:,:) ::   zwu   ! workspace 
    43    REAL(wp), DIMENSION(:,:) ::   zwv   ! workspace 
     42   REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:) ::   zwu   ! workspace 
     43   REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:) ::   zwv   ! workspace 
    4444 
    4545   !! * Substitutions 
Note: See TracChangeset for help on using the changeset viewer.