Changeset 3200 for branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/LIM_SRC_2/limwri_dimg_2.h90

Timestamp:

2011-12-07T16:00:49+01:00 (12 years ago)

Author:

cbricaud

Message:

bugs corections for compilation witk key_dimgout

File:

• branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/LIM_SRC_2/limwri_dimg_2.h90 (modified) (2 diffs)

branches/2011/dev_NEMO_MERGE_2011/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')
+    ENDIF
 
     IF( kt == nit000 ) THEN