Changeset 3147 for branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/TOP_SRC/PISCES/p4zlys.F90

Timestamp:

2011-11-17T17:28:03+01:00 (13 years ago)

Author:

cetlod

Message:

branch dev_NEMO_MERGE_2011:New dynamical allocation for TOP

File:

• branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/TOP_SRC/PISCES/p4zlys.F90 (modified) (4 diffs)

branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/TOP_SRC/PISCES/p4zlys.F90

@@ -24 +24 @@
    USE prtctl_trc      !  print control for debugging
    USE iom             !  I/O manager
+   USE wrk_nemo_2
 
    IMPLICIT NONE
@@ -58 +59 @@
       !! ** Method  : - ???
       !!---------------------------------------------------------------------
-      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released
-      USE wrk_nemo, ONLY: zco3 => wrk_3d_2, zcaldiss => wrk_3d_3 
       !
       INTEGER, INTENT(in) ::   kt ! ocean time step
@@ -68 +67 @@
       REAL(wp) ::   zrfact2
       CHARACTER (len=25) :: charout
+      REAL(wp), POINTER, DIMENSION(:,:,:) :: zco3, zcaldiss   
       !!---------------------------------------------------------------------
-
-      IF(  wrk_in_use(3, 2,3) ) THEN
-         CALL ctl_stop('p4z_lys: requested workspace arrays unavailable')  ;  RETURN
-      END IF
-
+      !
+      CALL wrk_alloc( jpi, jpj, jpk, zco3, zcaldiss )
+      !
       zco3    (:,:,:) = 0.
       zcaldiss(:,:,:) = 0.
@@ -163 +161 @@
       ENDIF
       !
-       IF(ln_ctl)   THEN  ! print mean trends (used for debugging)
-         WRITE(charout, FMT="('lys ')")
-         CALL prt_ctl_trc_info(charout)
-         CALL prt_ctl_trc(tab4d=tra, mask=tmask, clinfo=ctrcnm)
-       ENDIF
-
-      IF( wrk_not_released(3, 2,3) ) CALL ctl_stop('p4z_lys: failed to release workspace arrays')
+      IF(ln_ctl)   THEN  ! print mean trends (used for debugging)
+        WRITE(charout, FMT="('lys ')")
+        CALL prt_ctl_trc_info(charout)
+        CALL prt_ctl_trc(tab4d=tra, mask=tmask, clinfo=ctrcnm)
+      ENDIF
+      !
+      CALL wrk_dealloc( jpi, jpj, jpk, zco3, zcaldiss )
       !
    END SUBROUTINE p4z_lys