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 2636 for branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/LIM_SRC_2/limrhg_2.F90 – NEMO

Ignore:
Timestamp:
2011-03-01T20:04:06+01:00 (13 years ago)
Author:
gm
Message:

dynamic mem: #785 ; move ctl_stop & warn in lib_mpp to avoid a circular dependency + ctl_stop improvment

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/LIM_SRC_2/limrhg_2.F90

    r2633 r2636  
    5757CONTAINS 
    5858 
    59    FUNCTION lim_rhg_alloc_2() 
     59   INTEGER FUNCTION lim_rhg_alloc_2() 
    6060      !!------------------------------------------------------------------- 
    6161      !!               ***  FUNCTION lim_rhg_alloc_2  *** 
    6262      !!------------------------------------------------------------------- 
    63       INTEGER :: lim_rhg_alloc_2 
    64       !!------------------------------------------------------------------- 
    65  
    66       ALLOCATE(zu0(jpi,0:jpj+1),      zv0(jpi,0:jpj+1),     & 
    67                zu_n(jpi,0:jpj+1),     zv_n(jpi,0:jpj+1),    & 
    68                zu_a(jpi,0:jpj+1),     zv_a(jpi,0:jpj+1),    & 
    69                zviszeta(jpi,0:jpj+1), zviseta(jpi,0:jpj+1), & 
    70                zzfrld(jpi,0:jpj+1),   zztms(jpi,0:jpj+1),   & 
    71                zi1(jpi,0:jpj+1),      zi2(jpi,0:jpj+1),     & 
    72                zmasst(jpi,0:jpj+1),   zpresh(jpi,0:jpj+1),  & 
    73                Stat=lim_rhg_alloc_2) 
    74  
    75       IF(lim_rhg_alloc_2 /= 0)THEN 
    76          CALL ctl_warn('lim_rhg_alloc_2 : failed to allocate arrays.') 
    77       END IF 
    78  
     63      ALLOCATE( zu0(jpi,0:jpj+1),      zv0(jpi,0:jpj+1),     & 
     64         &      zu_n(jpi,0:jpj+1),     zv_n(jpi,0:jpj+1),    & 
     65         &      zu_a(jpi,0:jpj+1),     zv_a(jpi,0:jpj+1),    & 
     66         &      zviszeta(jpi,0:jpj+1), zviseta(jpi,0:jpj+1), & 
     67         &      zzfrld(jpi,0:jpj+1),   zztms(jpi,0:jpj+1),   & 
     68         &      zi1(jpi,0:jpj+1),      zi2(jpi,0:jpj+1),     & 
     69         &      zmasst(jpi,0:jpj+1),   zpresh(jpi,0:jpj+1),  & 
     70         &      Stat=lim_rhg_alloc_2) 
     71         ! 
     72      IF( lim_rhg_alloc_2 /= 0 )   CALL ctl_warn('lim_rhg_alloc_2 : failed to allocate arrays') 
     73      ! 
    7974   END FUNCTION lim_rhg_alloc_2 
    8075 
Note: See TracChangeset for help on using the changeset viewer.