Changeset 2715 for trunk/NEMOGCM/NEMO/OPA_SRC/LDF/ldfeiv.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/OPA_SRC/LDF/ldfeiv.F90 (modified) (3 diffs)

trunk/NEMOGCM/NEMO/OPA_SRC/LDF/ldfeiv.F90

@@ -53 +53 @@
       !!             - wslpi, wslpj : i- and j-slopes of neutral surfaces at w-points. 
       !!----------------------------------------------------------------------
+      USE wrk_nemo, ONLY:   wrk_in_use, wrk_not_released
+      USE wrk_nemo, ONLY:   zn  => wrk_2d_1 , zah   => wrk_2d_2   ! 2D workspace
+      USE wrk_nemo, ONLY:   zhw => wrk_2d_3 , zross => wrk_2d_4
+      !
       INTEGER, INTENT(in) ::   kt   ! ocean time-step inedx
-      !!
+      !
       INTEGER  ::   ji, jj, jk   ! dummy loop indices
       REAL(wp) ::   zfw, ze3w, zn2, zf20, zaht, zaht_min      ! temporary scalars
-      REAL(wp), DIMENSION(jpi,jpj) ::   zn, zah, zhw, zross   ! 2D workspace
       !!----------------------------------------------------------------------
       
+      IF( wrk_in_use(2, 1,2,3,4) ) THEN
+         CALL ctl_stop('ldf_eiv: requested workspace arrays are unavailable.')   ;   RETURN
+      ENDIF
+
       IF( kt == nit000 ) THEN
          IF(lwp) WRITE(numout,*)
@@ -235 +242 @@
       CALL iom_put( "aht2d"    , ahtw )   ! lateral eddy diffusivity
       CALL iom_put( "aht2d_eiv", aeiw )   ! EIV lateral eddy diffusivity
+      !  
+      IF( wrk_not_released(2, 1,2,3,4) )   CALL ctl_stop('ldf_eiv: failed to release workspace arrays')
       !
    END SUBROUTINE ldf_eiv
@@ -244 +253 @@
 CONTAINS
    SUBROUTINE ldf_eiv( kt )       ! Empty routine
+      INTEGER :: kt
       WRITE(*,*) 'ldf_eiv: You should not have seen this print! error?', kt
    END SUBROUTINE ldf_eiv