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

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

trunk/NEMOGCM/NEMO/LIM_SRC_2/limwri_dimg_2.h90

@@ -18 +18 @@
     INTEGER, INTENT(in) ::   kt     ! number of iteration
 
-    REAL(wp),DIMENSION(1) ::   zdept
+    INTEGER , SAVE ::   nmoyice   !: counter for averaging
+    INTEGER , SAVE ::   nwf       !: number of fields to write on disk
+    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) :: &
-         zsto, zsec, zjulian,zout, &
-         zindh,zinda,zindb,  &
-         ztmu
-    REAL(wp), DIMENSION(jpi,jpj,jpnoumax) :: &
-         zcmo
-    REAL(wp), DIMENSION(jpi,jpj) ::  &
-         zfield
-    INTEGER, SAVE :: nmoyice, &  !: counter for averaging
-         &             nwf         !: number of fields to write on disk
-    INTEGER, SAVE,DIMENSION (:), ALLOCATABLE  :: nsubindex   !: subindex to be saved
-    ! according to namelist
+    INTEGER ::  ji, jj, jf, ii   ! dummy loop indices and array index
+    INTEGER :: iyear, iday, imon ! 
+    CHARACTER(LEN=80) :: clname, cltext, clmode
+    REAL(wp), DIMENSION(1) ::   zdept
+    REAL(wp) ::   zsto, zsec, zjulian,zout
+    REAL(wp) ::   zindh,zinda,zindb, ztmu
+    REAL(wp), DIMENSION(jpi,jpj,jpnoumax) ::   zcmo   !ARPDBGWORK
+    REAL(wp), DIMENSION(jpi,jpj)          ::   zfield
 
-    REAL(wp), SAVE, DIMENSION(jpi,jpj,jpnoumax) :: rcmoy
 #if ! defined key_diainstant
     LOGICAL, PARAMETER :: ll_dia_inst=.false.      ! local logical variable 
@@ -39 +38 @@
     LOGICAL, PARAMETER :: ll_dia_inst=.true.
 #endif
-    INTEGER ::  ji, jj, jf, ii   ! dummy loop indices and array index
-    INTEGER :: iyear, iday, imon ! 
+    !!-------------------------------------------------------------------
 
-    CHARACTER(LEN=80) :: clname, cltext, clmode
-
-
-    INTEGER , SAVE ::      &
-         nice, nhorid, ndim, niter, ndepid
-    INTEGER , DIMENSION( jpij ) , SAVE ::  &
-         ndex51  
-    !!-------------------------------------------------------------------
-    IF ( kt == nit000 ) THEN 
-
+    IF( kt == nit000 ) THEN 
+       !
        CALL lim_wri_init_2 
 
@@ -57 +47 @@
        ii  = 0
 
-       IF (lwp ) THEN
+       IF(lwp ) THEN
           WRITE(numout,*) 'lim_wri_2 : Write ice outputs in dimg'
           WRITE(numout,*) '~~~~~~~~'