Changeset 3294 for trunk/NEMOGCM/NEMO/LIM_SRC_3/limhdf.F90

Timestamp:

2012-01-28T17:44:18+01:00 (12 years ago)

Author:

rblod

Message:

Merge of 3.4beta into the trunk

File:

• trunk/NEMOGCM/NEMO/LIM_SRC_3/limhdf.F90 (modified) (4 diffs)

trunk/NEMOGCM/NEMO/LIM_SRC_3/limhdf.F90

@@ -18 +18 @@
    USE lbclnk           ! lateral boundary condition - MPP exchanges
    USE lib_mpp          ! MPP library
+   USE wrk_nemo         ! work arrays
    USE prtctl           ! Print control
    USE in_out_manager   ! I/O manager
@@ -50 +51 @@
       !! ** Action  :    update ptab with the diffusive contribution
       !!-------------------------------------------------------------------
-      USE wrk_nemo, ONLY:   wrk_in_use, wrk_not_released
-      USE wrk_nemo, ONLY:   zflu => wrk_2d_11, zdiv  => wrk_2d_13, zrlx  => wrk_2d_15 
-      USE wrk_nemo, ONLY:   zflv => wrk_2d_12, zdiv0 => wrk_2d_14, ztab0 => wrk_2d_16
-      !
       REAL(wp), DIMENSION(jpi,jpj), INTENT( inout ) ::   ptab    ! Field on which the diffusion is applied
       !
@@ -59 +56 @@
       INTEGER  ::  its, iter, ierr   ! local integers
       REAL(wp) ::   zalfa, zrlxint, zconv, zeps   ! local scalars
+      REAL(wp), POINTER, DIMENSION(:,:) ::   zrlx, zflu, zflv, zdiv0, zdiv, ztab0
       CHARACTER(lc) ::   charout   ! local character
       !!-------------------------------------------------------------------
       
-      IF( wrk_in_use(2, 11,12,13,14,15,16) ) THEN
-         CALL ctl_stop( 'lim_hdf: requested workspace arrays unavailable' )   ;   RETURN
-      ENDIF
+      CALL wrk_alloc( jpi, jpj, zrlx, zflu, zflv, zdiv0, zdiv, ztab0 )
 
       !                       !==  Initialisation  ==!
@@ -146 +142 @@
       ENDIF
       !
-      IF( wrk_not_released(2, 11,12,13,14,15,16) )   CALL ctl_stop('lim_hdf: failed to release workspace arrays')
+      CALL wrk_dealloc( jpi, jpj, zrlx, zflu, zflv, zdiv0, zdiv, ztab0 )
       !
    END SUBROUTINE lim_hdf