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

Timestamp:

2011-03-30T17:58:35+02:00 (13 years ago)

Author:

rblod

Message:

First attempt to put dynamic allocation on the trunk

File:

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

trunk/NEMOGCM/NEMO/NST_SRC/agrif_top_interp.F90

@@ -6 +6 @@
    USE sol_oce
    USE agrif_oce
+   USE agrif_top_sponge
    USE trc
+   USE lib_mpp
 
    IMPLICIT NONE
@@ -13 +15 @@
    PUBLIC Agrif_trc
 
-   !!----------------------------------------------------------------------
+#  include "domzgr_substitute.h90"  
+#  include "vectopt_loop_substitute.h90"
+  !!----------------------------------------------------------------------
    !! NEMO/NST 3.3 , NEMO Consortium (2010)
    !! $Id$
@@ -25 +29 @@
       !!   *** ROUTINE Agrif_trc ***
       !!---------------------------------------------
-#  include "domzgr_substitute.h90"  
-#  include "vectopt_loop_substitute.h90"
+      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released
+      USE wrk_nemo, ONLY: wrk_4d_1
       
       INTEGER :: ji,jj,jk,jn
@@ -32 +36 @@
       REAL(wp) :: alpha1, alpha2, alpha3, alpha4
       REAL(wp) :: alpha5, alpha6, alpha7
-      REAL(wp), DIMENSION(jpi,jpj,jpk,jptra) :: ztra
-      
+      REAL(wp), POINTER, DIMENSION(:,:,:,:) :: ztra
+           
       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)
 
       Agrif_SpecialValue=0.
@@ -40 +50 @@
       ztra = 0.e0
 
-      CALL Agrif_Bc_variable(ztra,trn)
+      CALL Agrif_Bc_variable(ztra,trn_id, procname = interptrn )
       Agrif_UseSpecialValue = .FALSE.
 
@@ -131 +141 @@
       ENDIF
 
+      IF( wrk_not_released(4, 1) ) THEN
+         CALL ctl_stop('Agrif_trc : failed to release workspace arrays.')
+         RETURN
+      ENDIF
+
    END SUBROUTINE Agrif_trc