Changeset 3294 for trunk/NEMOGCM/NEMO/LIM_SRC_3/limthd.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/limthd.F90 (modified) (4 diffs)

trunk/NEMOGCM/NEMO/LIM_SRC_3/limthd.F90

@@ -36 +36 @@
    USE lbclnk          ! lateral boundary condition - MPP links
    USE lib_mpp         ! MPP library
+   USE wrk_nemo        ! work arrays
    USE in_out_manager  ! I/O manager
    USE prtctl          ! Print control
@@ -81 +82 @@
       !! ** References : H. Goosse et al. 1996, Bul. Soc. Roy. Sc. Liege, 65, 87-90
       !!---------------------------------------------------------------------
-      USE wrk_nemo, ONLY:   wrk_in_use, wrk_not_released
-      USE wrk_nemo, ONLY:   zqlbsbq => wrk_2d_1   ! 2D workspace
-      !
       INTEGER, INTENT(in) ::   kt    ! number of iteration
       !!
@@ -92 +90 @@
       REAL(wp) ::   zinda, zindb, zthsnice, zfric_u     ! local scalar
       REAL(wp) ::   zfntlat, zpareff, zareamin, zcoef   !    -         -
+      REAL(wp), POINTER, DIMENSION(:,:) ::   zqlbsbq   ! link with lead energy budget qldif
       !!-------------------------------------------------------------------
 
-      IF( wrk_in_use(2, 1) ) THEN
-         CALL ctl_stop( 'lim_thd : requested workspace arrays unavailable' )   ;   RETURN
-      ENDIF
+      CALL wrk_alloc( jpi, jpj, zqlbsbq )
    
       !------------------------------------------------------------------------------!
@@ -458 +455 @@
       ENDIF
       !
-      IF( wrk_not_released(2, 1) )   CALL ctl_stop( 'lim_thd: failed to release workspace arrays' )
+      CALL wrk_dealloc( jpi, jpj, zqlbsbq )
       !
    END SUBROUTINE lim_thd