Changeset 2704 for branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/TOP_SRC/prtctl_trc.F90

Timestamp:

2011-03-25T09:37:58+01:00 (13 years ago)

Author:

cetlod

Message:

Used correct working arrays in print control routines used for debugging : prtctl.F90 & prtctl_trc.F90

File:

• branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/TOP_SRC/prtctl_trc.F90 (modified) (4 diffs)

branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/TOP_SRC/prtctl_trc.F90

@@ -60 +60 @@
       !!                it must looks like: CALL prt_ctl( mask=tmask ).
       !!----------------------------------------------------------------------
-      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released
-      USE wrk_nemo, ONLY: zmask => wrk_3d_1, ztab3d => wrk_3d_2
-      !!
       REAL(wp)         , DIMENSION(:,:,:,:), INTENT(in), OPTIONAL ::   tab4d     ! 4D array
       REAL(wp)         , DIMENSION(:,:,:)  , INTENT(in), OPTIONAL ::   mask      ! 3D mask to apply to the tab4d array
@@ -70 +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
@@ -76 +74 @@
       !!----------------------------------------------------------------------
 
-      IF( wrk_in_use(3, 1,2) ) THEN
-         CALL ctl_stop('prt_ctl_trc : requested workspace arrays unavailable.')
-         RETURN
-      END IF
-
+      ALLOCATE( zmask (jpi,jpj,jpk) )
+      ALLOCATE( ztab3d(jpi,jpj,jpk) )
       !                                      ! Arrays, scalars initialization 
       overlap       = 0
@@ -156 +151 @@
       END DO
       !
-      IF( wrk_not_released(3, 1,2) ) CALL ctl_stop('prt_ctl_trc : failed to release workspace arrays.')
+      DEALLOCATE( zmask  )
+      DEALLOCATE( ztab3d )
       !
    END SUBROUTINE prt_ctl_trc