Changeset 3184 for branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/NST_SRC/agrif_top_update.F90

Timestamp:

2011-11-25T16:42:54+01:00 (12 years ago)

Author:

cetlod

Message:

New dynamic allocation in NST modules

File:

• branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/NST_SRC/agrif_top_update.F90 (modified) (4 diffs)

branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/NST_SRC/agrif_top_update.F90

@@ -9 +9 @@
    USE agrif_oce
    USE trc
+   USE wrk_nemo_2
 
    IMPLICIT NONE
@@ -29 +30 @@
       !!   *** ROUTINE Agrif_Update_Trc ***
       !!---------------------------------------------
-      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released
-      USE wrk_nemo, ONLY: wrk_4d_1
       !!
       INTEGER, INTENT(in) :: kt
@@ -39 +38 @@
 
 #if defined TWO_WAY
-      IF( wrk_in_use(4, 1) ) THEN
-         CALL ctl_stop('Agrif_Update_trc : requested workspace arrays unavailable')
-         RETURN
-      ENDIF
-      ztra =>  wrk_4d_1(:,:,:,jptra)
+      CALL wrk_alloc( jpi, jpj, jpk, jpts, ztra )
 
       Agrif_UseSpecialValueInUpdate = .TRUE.
@@ -57 +52 @@
       nbcline_trc = nbcline_trc + 1
 
-      IF( wrk_not_released(4, 1) ) THEN
-         CALL ctl_stop('Agrif_Update_trc : failed to release workspace arrays.')
-         RETURN
-      ENDIF
+      CALL wrk_dealloc( jpi, jpj, jpk, jpts, ztra )
 #endif