Changeset 2761 for trunk/NEMOGCM/NEMO/TOP_SRC/SED/sedrst.F90

Timestamp:

2011-05-03T12:49:22+02:00 (13 years ago)

Author:

cetlod

Message:

Changes in sediment model to use with dynamic memory, see ticket #821

File:

• trunk/NEMOGCM/NEMO/TOP_SRC/SED/sedrst.F90 (modified) (4 diffs)

trunk/NEMOGCM/NEMO/TOP_SRC/SED/sedrst.F90

@@ -43 +43 @@
 
       !! * local declarations
-      INTEGER :: &
-         ji, jk, jn
-      REAL(wp), DIMENSION(jpi,jpj,jpksed,jptrased) :: &
-         zdta
-
-      REAL(wp), DIMENSION(jpi,jpj,jpksed,2) :: &
-         zdta1
-
-      REAL(wp), DIMENSION(:,:), ALLOCATABLE :: &
-         zhipor
-
+      INTEGER :: ji, jk, jn 
+      REAL(wp), ALLOCATABLE, DIMENSION(:,:,:,:) :: zdta
+      REAL(wp), ALLOCATABLE, DIMENSION(:,:,:  ) :: zdta1 
+      REAL(wp), ALLOCATABLE, DIMENSION(:,:    ) :: zhipor
       REAL(wp) :: zkt
       CHARACTER(len = 20) ::   cltra
@@ -65 +58 @@
       WRITE(numsed,*) ' '
 
-      ALLOCATE( zhipor(jpoce,jpksed) ) 
+      ALLOCATE( zdta(jpi,jpj,jpksed,jptrased), zdta1(jpi,jpj,jpksed,2), zhipor(jpoce,jpksed) ) 
 
       IF ( jprstlib == jprstdimg ) THEN
@@ -144 +137 @@
       pwcp (1:jpoce,1,:) = 0.
 
+      DEALLOCATE( zdta   )
+      DEALLOCATE( zdta1  )
       DEALLOCATE( zhipor )
      
@@ -162 +157 @@
       INTEGER, INTENT(in) ::   kt       ! number of iteration
       !! * local declarations
-
-      CHARACTER (len=50) :: clname,cln
-
-      INTEGER ::  &
-         ic,jc,jn,      &
-         itime
-
-     REAL(wp) ::  &
-         zdate0
-
-     REAL(wp), DIMENSION(1) :: &
-        zinfo
-
-      CHARACTER(len = 20)  ::  cltra 
-
-      INTEGER   :: ji, jk
+      INTEGER  :: ji, jk
+      INTEGER  :: ic, jc, jn, itime 
+      REAL(wp) :: zdate0
+      REAL(wp), DIMENSION(1) ::  zinfo
+      CHARACTER(len=50) :: clname,cln
+      CHARACTER(len=20) :: cltra 
       REAL(wp), DIMENSION(:,:) , ALLOCATABLE  :: zdta   
       !! -----------------------------------------------------------------------