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 – NEMO

Changeset 2592


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

Small correction for dynamic allocation in OPA_SRC

Location:
branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC
Files:
4 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 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/OBC/obc_oce.F90

    r2590 r2592  
    240240   FUNCTION obc_oce_alloc() 
    241241     IMPLICIT none 
     242 
     243     INTEGER :: obc_oce_alloc      
    242244 
    243245     ALLOCATE(                                                               & 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/OBC/obcdta.F90

    r2590 r2592  
    2929   PUBLIC obc_dta      ! routines called by step.F90 
    3030   PUBLIC obc_dta_bt   ! routines called by dynspg_ts.F90 
     31   PUBLIC obc_dta_alloc 
     32    
    3133 
    3234   !! * Shared module variables 
    … …  
    152154      IF(obc_dta_alloc == 0)THEN 
    153155         ! Initialise mask values following successful allocation 
    154          ltemsk(:)=.TRUE. 
    155          luemsk(:)=.TRUE. 
    156          lvemsk(:)=.TRUE. 
    157          ltwmsk(:)=.TRUE. 
    158          luwmsk(:)=.TRUE. 
    159          lvwmsk(:)=.TRUE. 
    160          ltnmsk(:)=.TRUE. 
    161          lunmsk(:)=.TRUE. 
    162          lvnmsk(:)=.TRUE. 
    163          ltsmsk(:)=.TRUE. 
    164          lusmsk(:)=.TRUE. 
    165          lvsmsk(:)=.TRUE. 
     156         ltemsk(:,:)=.TRUE. 
     157         luemsk(:,:)=.TRUE. 
     158         lvemsk(:,:)=.TRUE. 
     159         ltwmsk(:,:)=.TRUE. 
     160         luwmsk(:,:)=.TRUE. 
     161         lvwmsk(:,:)=.TRUE. 
     162         ltnmsk(:,:)=.TRUE. 
     163         lunmsk(:,:)=.TRUE. 
     164         lvnmsk(:,:)=.TRUE. 
     165         ltsmsk(:,:)=.TRUE. 
     166         lusmsk(:,:)=.TRUE. 
     167         lvsmsk(:,:)=.TRUE. 
    166168      END IF 
    167169 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90

    r2590 r2592  
    534534#endif 
    535535#if defined key_obc 
    536      USE obc_dta,      ONLY: obc_dta_alloc 
     536     USE obcdta,      ONLY: obc_dta_alloc 
    537537     USE obc_oce,      ONLY: obc_oce_alloc 
    538538#endif 
Note: See TracChangeset for help on using the changeset viewer.