Changeset 2606 for branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/TOP_SRC/TRP/trcdmp.F90

Timestamp:

2011-02-22T18:14:24+01:00 (13 years ago)

Author:

trackstand2

Message:

Module arrays made allocatable

File:

• branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/TOP_SRC/TRP/trcdmp.F90 (modified) (3 diffs)

branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/TOP_SRC/TRP/trcdmp.F90

@@ -29 +29 @@
    PRIVATE
 
-   PUBLIC trc_dmp      ! routine called by step.F90
+   PUBLIC trc_dmp            ! routine called by step.F90
+   PUBLIC trc_dmp_alloc      ! routine called by nemogcm.F90
 
    LOGICAL , PUBLIC, PARAMETER ::   lk_trcdmp = .TRUE.   !: internal damping flag
@@ -40 +41 @@
    INTEGER  ::   nn_file_tr =    2   ! = 1 create a damping.coeff NetCDF file 
 
-   REAL(wp), DIMENSION(jpi,jpj,jpk) ::   restotr   ! restoring coeff. on tracers (s-1)
+   REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:,:) ::   restotr   ! restoring coeff. on tracers (s-1)
 
    !! * Substitutions
@@ -51 +52 @@
 
 CONTAINS
+
+   FUNCTION trc_dmp_alloc()
+      !!----------------------------------------------------------------------
+      !!                   ***  ROUTINE trc_dmp_alloc  ***
+      !!----------------------------------------------------------------------
+      INTEGER :: trc_dmp_alloc
+      !!----------------------------------------------------------------------
+
+      ALLOCATE(restotr(jpi,jpj,jpk), Stat=trc_dmp_alloc)
+
+      IF(trc_dmp_alloc /= 0)THEN
+         CALL ctl_warn('trc_dmp_alloc : failed to allocate array.')
+      END IF
+
+   END FUNCTION trc_dmp_alloc
+
 
    SUBROUTINE trc_dmp( kt )