Changeset 3294 for trunk/NEMOGCM/NEMO/NST_SRC/agrif_top_interp.F90

Timestamp:

2012-01-28T17:44:18+01:00 (12 years ago)

Author:

rblod

Message:

Merge of 3.4beta into the trunk

File:

• trunk/NEMOGCM/NEMO/NST_SRC/agrif_top_interp.F90 (modified) (4 diffs)

trunk/NEMOGCM/NEMO/NST_SRC/agrif_top_interp.F90

@@ -9 +9 @@
    USE trc
    USE lib_mpp
+   USE wrk_nemo  
 
    IMPLICIT NONE
@@ -29 +30 @@
       !!   *** ROUTINE Agrif_trc ***
       !!---------------------------------------------
-      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released
-      USE wrk_nemo, ONLY: wrk_4d_1
       
       INTEGER :: ji,jj,jk,jn
@@ -40 +39 @@
       IF (Agrif_Root()) RETURN
 
-      IF( wrk_in_use(4, 1) ) THEN
-         CALL ctl_stop('Agrif_trc : requested workspace arrays unavailable')
-         RETURN
-      ENDIF
-      ztra =>  wrk_4d_1(:,:,:,jptra)
+      CALL wrk_alloc( jpi, jpj, jpk, jptra, ztra )
 
       Agrif_SpecialValue=0.
@@ -141 +136 @@
       ENDIF
 
-      IF( wrk_not_released(4, 1) ) THEN
-         CALL ctl_stop('Agrif_trc : failed to release workspace arrays.')
-         RETURN
-      ENDIF
+      CALL wrk_dealloc( jpi, jpj, jpk, jptra, ztra )
 
    END SUBROUTINE Agrif_trc