Changeset 2715 for trunk/NEMOGCM/NEMO/NST_SRC/agrif_top_update.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_update.F90 (modified) (1 diff)

trunk/NEMOGCM/NEMO/NST_SRC/agrif_top_update.F90

@@ -29 +29 @@
       !!   *** 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
+      REAL(wp), POINTER, DIMENSION(:,:,:,:) :: ztra
+
   
-      REAL(wp), DIMENSION(jpi,jpj,jpk,jptra) :: ztra
-
       IF ((Agrif_NbStepint() .NE. (Agrif_irhot()-1)).AND.(kt /= 0)) RETURN
 
 #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)
+
       Agrif_UseSpecialValueInUpdate = .TRUE.
       Agrif_SpecialValueFineGrid = 0.
  
      IF (MOD(nbcline_trc,nbclineupdate) == 0) THEN
-         CALL Agrif_Update_Variable(ztra,trn, procname=updateTRC)
+         CALL Agrif_Update_Variable(ztra,trn_id, procname=updateTRC)
       ELSE
-         CALL Agrif_Update_Variable(ztra,trn,locupdate=(/0,2/), procname=updateTRC)
+         CALL Agrif_Update_Variable(ztra,trn_id,locupdate=(/0,2/), procname=updateTRC)
       ENDIF
 
       Agrif_UseSpecialValueInUpdate = .FALSE.
       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
 #endif