Changeset 2715 for trunk/NEMOGCM/NEMO/TOP_SRC/prtctl_trc.F90

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/TOP_SRC/prtctl_trc.F90 (modified) (3 diffs)

trunk/NEMOGCM/NEMO/TOP_SRC/prtctl_trc.F90

@@ -17 +17 @@
    USE par_trc          ! TOP parameters
    USE oce_trc          ! ocean space and time domain variables
-   USE in_out_manager   ! I/O manager
-   USE lib_mpp          ! distributed memory computing
 
    IMPLICIT NONE
@@ -69 +67 @@
       INTEGER                              , INTENT(in), OPTIONAL ::   kdim      ! k- direction for 4D arrays
       !!
+      REAL(wp), DIMENSION(:,:,:), ALLOCATABLE :: zmask, ztab3d 
       INTEGER  ::   overlap, jn, js, sind, eind, kdir, j_id
       REAL(wp) ::   zsum, zvctl
-      REAL(wp), DIMENSION(jpi,jpj,jpk) ::   zmask, ztab3d
       CHARACTER (len=20), DIMENSION(jptra) ::   cl
       CHARACTER (len=10) ::   cl2
       !!----------------------------------------------------------------------
 
+      ALLOCATE( zmask (jpi,jpj,jpk) )
+      ALLOCATE( ztab3d(jpi,jpj,jpk) )
       !                                      ! Arrays, scalars initialization 
       overlap       = 0
@@ -150 +150 @@
          !
       END DO
+      !
+      DEALLOCATE( zmask  )
+      DEALLOCATE( ztab3d )
       !
    END SUBROUTINE prt_ctl_trc