Changeset 18 for trunk

Timestamp:

02/11/12 18:03:24 (12 years ago)

Author:

rblod

Message:

Correction for compatibility with the new obcdta

File:

• trunk/NEMOGCM/NEMO/OPA_SRC/OBC/obcini.F90 (modified) (1 diff)

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

@@ -84 +84 @@
       !                              ! 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' )
+      ! allocation below not needed with new obcdta
+      !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