Changeset 2715 for trunk/NEMOGCM/NEMO/OPA_SRC/OBC/obcini.F90

Timestamp:

2011-03-30T17:58:35+02:00 (13 years ago)

Author:

rblod

Message:

First attempt to put dynamic allocation on the trunk

File:

• trunk/NEMOGCM/NEMO/OPA_SRC/OBC/obcini.F90 (modified) (3 diffs)

trunk/NEMOGCM/NEMO/OPA_SRC/OBC/obcini.F90

@@ -18 +18 @@
    USE lbclnk          ! ocean lateral boundary conditions (or mpp link)
    USE phycst          ! physical constants
-   USE obc_oce         ! ocean open boundary conditions
-   USE lib_mpp         ! for mpp_sum
+   USE obc_oce         ! open boundary condition: ocean
+   USE obcdta          ! open boundary condition: data
    USE in_out_manager  ! I/O units
+   USE lib_mpp         ! MPP library
    USE dynspg_oce      ! flag lk_dynspg_flt
 
@@ -33 +34 @@
    !! NEMO/OPA 3.3 , NEMO Consortium (2010)
    !! $Id$ 
-   !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt)
+   !! Software governed by the CeCILL licence     (NEMOGCM/NEMO_CeCILL.txt)
    !!----------------------------------------------------------------------
-
 CONTAINS
    
@@ -81 +81 @@
       rdpnob   = rn_dpnob
       volemp   = rn_volemp
-      
-
+
+      !                              ! allocate obc arrays
+      IF( obc_oce_alloc() /= 0 )   CALL ctl_stop( 'STOP', 'obc_init : unable to allocate obc_oce arrays' )
+      IF( obc_dta_alloc() /= 0 )   CALL ctl_stop( 'STOP', 'obc_init : unable to allocate obc_dta arrays' )
 
       ! By security we set rdpxin and rdpxob respectively to 1. and 15. if the corresponding OBC is not activated