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

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

@@ -8 +8 @@
    USE in_out_manager
    USE agrif_oce
+   USE wrk_nemo_2
 
    IMPLICIT NONE
@@ -27 +28 @@
       !!---------------------------------------------
 #include "domzgr_substitute.h90"
-      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released
-      USE wrk_nemo, ONLY: wrk_2d_1, wrk_2d_2, wrk_2d_3
-      USE wrk_nemo, ONLY: wrk_4d_1, wrk_4d_2
       !!
       INTEGER :: ji,jj,jk,jn
@@ -41 +39 @@
 
 #if defined SPONGE
-      localviscsponge => wrk_2d_1
-      ztu             => wrk_2d_2
-      ztv             => wrk_2d_3
-      ztab            => wrk_4d_1
-      tsbdiff         => wrk_4d_2
+      CALL wrk_alloc( jpi, jpj, localviscsponge, ztu, ztv )
+      CALL wrk_alloc( jpi, jpj, jpk, jpts, ztab, tsbdiff  )
 
       timecoeff = REAL(Agrif_NbStepint(),wp)/Agrif_rhot()
@@ -152 +147 @@
       ENDDO
 
+      CALL wrk_dealloc( jpi, jpj, localviscsponge, ztu, ztv )
+      CALL wrk_dealloc( jpi, jpj, jpk, jpts, ztab, tsbdiff  )
 #endif
 
@@ -161 +158 @@
       !!---------------------------------------------
 #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_3d_1, wrk_3d_2
-      USE wrk_nemo, ONLY: wrk_3d_3, wrk_3d_4
-      USE wrk_nemo, ONLY: wrk_3d_5
       !!
       INTEGER :: ji,jj,jk
@@ -177 +169 @@
 
 #if defined SPONGE
-      localviscsponge => wrk_2d_1
-      ubdiff => wrk_3d_1 ; vbdiff => wrk_3d_2
-      rotdiff => wrk_3d_3 ; hdivdiff => wrk_3d_4
-      ztab => wrk_3d_5
+      CALL wrk_alloc( jpi, jpj, localviscsponge )
+      CALL wrk_alloc( jpi, jpj, jpk, ztab, ubdiff, vbdiff, rotdiff, hdivdiff )
 
       timecoeff = REAL(Agrif_NbStepint(),wp)/Agrif_rhot()
@@ -327 +317 @@
       END DO                                           !   End of slab
       !                                                ! ===============
+      CALL wrk_dealloc( jpi, jpj, localviscsponge )
+      CALL wrk_dealloc( jpi, jpj, jpk, ztab, ubdiff, vbdiff, rotdiff, hdivdiff )
 
 #endif