Changeset 3294 for trunk/NEMOGCM/NEMO/OPA_SRC/DIA/diadimg.F90

Timestamp:

2012-01-28T17:44:18+01:00 (12 years ago)

Author:

rblod

Message:

Merge of 3.4beta into the trunk

File:

• trunk/NEMOGCM/NEMO/OPA_SRC/DIA/diadimg.F90 (modified) (2 diffs)

trunk/NEMOGCM/NEMO/OPA_SRC/DIA/diadimg.F90

@@ -10 +10 @@
    USE in_out_manager  ! I/O manager
    USE daymod          ! calendar
+   USE lib_mpp
 
    IMPLICIT NONE
@@ -40 +41 @@
       !!---------------------------------------------------------------------
       !
-      ALLOCATE( z42d(jpi,jpj), z4dep(jpk), STAT=dia_wri_dimg_alloc )
-      !
-      IF( lk_mpp                  )   CALL mpp_sum ( dia_wri_dimg_alloc )
-      IF( dia_wri_dimg_alloc /= 0 )   CALL ctl_warn('dia_wri_dimg_alloc: allocation of array failed.')
+      IF( .NOT. ALLOCATED( z42d ) )THEN
+
+         ALLOCATE( z42d(jpi,jpj), z4dep(jpk), STAT=dia_wri_dimg_alloc )
+
+         IF( lk_mpp                  )   CALL mpp_sum ( dia_wri_dimg_alloc )
+         IF( dia_wri_dimg_alloc /= 0 )   CALL ctl_warn('dia_wri_dimg_alloc: allocation of array failed.')
+
+      ELSE
+
+         dia_wri_dimg_alloc = 0
+
+      ENDIF
       !
   END FUNCTION dia_wri_dimg_alloc