Changeset 3145 for branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/LIM_SRC_2/limmsh_2.F90

Timestamp:

2011-11-17T16:53:24+01:00 (13 years ago)

Author:

smasson

Message:

dev_NEMO_MERGE_2011: new dynamical allocation in LIM2

File:

• branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/LIM_SRC_2/limmsh_2.F90 (modified) (4 diffs)

branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/LIM_SRC_2/limmsh_2.F90

@@ -20 +20 @@
    USE in_out_manager
    USE lib_mpp          ! MPP library
+#if defined key_lim2_vp
+   USE wrk_nemo_2       ! work arrays
+#endif
 
    IMPLICIT NONE
@@ -46 +49 @@
       !! ** Refer.  : Deleersnijder et al. Ocean Modelling 100, 7-10 
       !!--------------------------------------------------------------------- 
-      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released
-      USE wrk_nemo, ONLY: zd2d1 => wrk_2d_1, zd1d2 => wrk_2d_2
       INTEGER :: ji, jj      ! dummy loop indices
       REAL(wp) ::   zusden   ! local scalars
@@ -54 +55 @@
       REAL(wp) ::   zh1p  , zh2p      !   -      -
       REAL(wp) ::   zd2d1p, zd1d2p    !   -      -
+      REAL(wp), POINTER, DIMENSION(:,:) ::   zd2d1, zd1d2   ! 2D workspace
 #endif
       !!---------------------------------------------------------------------
 
-      IF( wrk_in_use(2, 1,2) ) THEN
-         CALL ctl_stop('lim_msh_2 : requested workspace arrays unavailable')   ;   RETURN
-      ENDIF
+#if defined key_lim2_vp
+      CALL wrk_alloc( jpi, jpj, zd2d1, zd1d2 )
+#endif
 
       IF(lwp) THEN
@@ -281 +283 @@
       area(:,:) = e1t(:,:) * e2t(:,:)
       !
-      IF( wrk_not_released(2, 1,2) )   CALL ctl_stop('lim_msh_2 : failed to release workspace arrays')
+#if defined key_lim2_vp
+      CALL wrk_dealloc( jpi, jpj, zd2d1, zd1d2 )
+#endif
       !
    END SUBROUTINE lim_msh_2