Changeset 3184 for branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/NST_SRC/agrif_top_sponge.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_sponge.F90 (modified) (4 diffs)

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

@@ -10 +10 @@
    USE trc
    USE lib_mpp
+   USE wrk_nemo_2
 
    IMPLICIT NONE
@@ -29 +30 @@
       !!---------------------------------------------
 #include "domzgr_substitute.h90"
-      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released
-      USE wrk_nemo, ONLY: wrk_2d_1
-      USE wrk_nemo, ONLY: wrk_4d_1, wrk_4d_2, wrk_4d_3, wrk_4d_4
       !! 
       INTEGER :: ji,jj,jk,jl
@@ -41 +39 @@
 
 #if defined SPONGE_TOP
-      IF( wrk_in_use(4, 1,2,3,4) .OR. wrk_in_use(2, 1) ) THEN
-         CALL ctl_stop('Agrif_Sponge_trc : requested workspace arrays unavailable')
-         RETURN
-      ENDIF
-      localviscsponge => wrk_2d_1
-      trbdiff(:,:,:,:) => wrk_4d_1(:,:,:,1:jptra)
-      ztru   (:,:,:,:) => wrk_4d_2(:,:,:,1:jptra)
-      ztrv   (:,:,:,:) => wrk_4d_3(:,:,:,1:jptra)
-      ztab   (:,:,:,:) => wrk_4d_4(:,:,:,1:jptra)
+      CALL wrk_alloc( jpi, jpj, localviscsponge )
+      CALL wrk_alloc( jpi, jpj, jpk, jptra, trbdiff, ztru, ztrv, ztab )
 
       timecoeff = REAL(Agrif_NbStepint(),wp)/Agrif_rhot()
@@ -155 +146 @@
       ENDDO
  
-      IF( wrk_not_released(4, 1,2,3,4) .OR. wrk_not_released(2, 1) ) THEN
-         CALL ctl_stop('Agrif_Sponge_trc : failed to release workspace arrays.')
-         RETURN
-      ENDIF
+      CALL wrk_dealloc( jpi, jpj, localviscsponge )
+      CALL wrk_dealloc( jpi, jpj, jpk, jptra, trbdiff, ztru, ztrv, ztab )
 
 #endif