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 2682 for branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/BDY/bdyini.F90 – NEMO

Ignore:
Timestamp:
2011-03-10T18:22:51+01:00 (12 years ago)
Author:
trackstand2
Message:

key_bdy bug fix. Made arrays allocatable and added _alloc() routine plus call

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/BDY/bdyini.F90

    r2613 r2682  
    2121   USE obc_par         ! ocean open boundary conditions 
    2222   USE bdy_oce         ! unstructured open boundary conditions 
     23   USE bdydta, ONLY: bdy_dta_alloc ! open boundary data 
    2324   USE bdytides        ! tides at open boundaries initialization (tide_init routine) 
    2425   USE in_out_manager  ! I/O units 
     
    7576      ! 
    7677      !                                      ! allocate bdy_oce arrays 
    77       IF( bdy_oce_alloc() /= 0 )   CALL ctl_stop( 'STOP', 'bdy_init : unable to allocate arrays' ) 
     78      IF( bdy_oce_alloc() /= 0 )   CALL ctl_stop( 'STOP', 'bdy_init : unable to allocate oce arrays' ) 
     79      IF( bdy_dta_alloc() /= 0 )   CALL ctl_stop( 'STOP', 'bdy_init : unable to allocate dta arrays' ) 
    7880 
    7981      IF( jperio /= 0 )   CALL ctl_stop( 'Cyclic or symmetric,',   & 
Note: See TracChangeset for help on using the changeset viewer.