Changeset 2761 for trunk/NEMOGCM/NEMO/TOP_SRC/SED/sedini.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/sedini.F90 (modified) (4 diffs)

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

@@ -79 +79 @@
       INTEGER  :: numblt         
       INTEGER  :: nummsh   
-      REAL(wp) , DIMENSION(jpi,jpj) :: zdta
+      REAL(wp), ALLOCATABLE, DIMENSION(:,:) :: zdta
 #endif
       !!----------------------------------------------------------------------
@@ -99 +99 @@
       WRITE(numsed,*) ' sed_init : Initialization of sediment module  '
       WRITE(numsed,*) ' '
+
+      !                                ! Allocate LOBSTER arrays
+      IF( sed_alloc() /= 0 )   CALL ctl_stop( 'STOP', 'sed_ini: unable to allocate sediment model arrays' )
+
 
       ! Determination of sediments number of points and allocate global variables
@@ -118 +122 @@
     
       ! bottom layer thickness
+      ALLOCATE( zdta(jpi,jpj) )
       CALL iom_get  ( numblt, jpdom_data, 'E3TBOT', zdta(:,:) )
       epkbot(:,:) = 0.
@@ -129 +134 @@
       CALL iom_close( nummsh )  
       CALL iom_close( numblt ) 
+
+      DEALLOCATE( zdta )
 #else