Changeset 2715 for trunk/NEMOGCM/NEMO/OPA_SRC/SOL/solmat.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/SOL/solmat.F90 (modified) (2 diffs)

trunk/NEMOGCM/NEMO/OPA_SRC/SOL/solmat.F90

@@ -40 +40 @@
    !! 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
 
@@ -320 +319 @@
       !!
       INTEGER  ::   ji, jk   ! dummy loop indices
-      INTEGER  ::   iloc     ! temporary integers
-      REAL(wp), DIMENSION(1-jpr2di:jpi+jpr2di,1-jpr2dj:jpj+jpr2dj,4) ::   ztab   ! 2D workspace
-      !!----------------------------------------------------------------------
-
+      INTEGER  ::   iloc     ! local integers
+      REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:,:) ::   ztab   ! workspace allocated one for all
+      !!----------------------------------------------------------------------
+
+      IF( .NOT. ALLOCATED( ztab ) ) THEN
+         ALLOCATE( ztab(1-jpr2di:jpi+jpr2di,1-jpr2dj:jpj+jpr2dj,4), STAT=iloc )
+         IF( lk_mpp    )   CALL mpp_sum ( iloc )
+         IF( iloc /= 0 )   CALL ctl_stop('STOP', 'sol_exd: failed to allocate array')
+      ENDIF
+      
       ztab = pt3d