Changeset 3294 for trunk/NEMOGCM/NEMO/LIM_SRC_2/limwri_dimg_2.h90

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/LIM_SRC_2/limwri_dimg_2.h90 (modified) (2 diffs)

trunk/NEMOGCM/NEMO/LIM_SRC_2/limwri_dimg_2.h90

@@ -22 +22 @@
     INTEGER , SAVE, DIMENSION(:), ALLOCATABLE  :: nsubindex   !: subindex to be saved
     INTEGER , SAVE ::   nice, nhorid, ndim, niter, ndepid
-    REAL(wp), SAVE, DIMENSION(jpi,jpj,jpnoumax) :: rcmoy
+    REAL(wp), SAVE, DIMENSION(:,:,:), ALLOCATABLE :: rcmoy
 
     INTEGER ::  ji, jj, jf, ii   ! dummy loop indices and array index
     INTEGER :: iyear, iday, imon ! 
+    INTEGER :: ialloc
     CHARACTER(LEN=80) :: clname, cltext, clmode
     REAL(wp), DIMENSION(1) ::   zdept
@@ -39 +40 @@
 #endif
     !!-------------------------------------------------------------------
+    IF( .NOT. ALLOCATED(rcmoy) )THEN
+        ALLOCATE(rcmoy(jpi,jpj,jpnoumax),  STAT=ialloc )
+       !
+       IF( lk_mpp      )   CALL mpp_sum ( ialloc  )
+       IF( ialloc /= 0 )   CALL ctl_warn('lim_wri_2 (limwri_dimg_2.h90) : failed to allocate arrays')
+       rcmoy(:,:,:) = 0._wp
+    ENDIF
 
     IF( kt == nit000 ) THEN