Changeset 3294 for trunk/NEMOGCM/NEMO/LIM_SRC_2/limwri_2.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_2/limwri_2.F90 (modified) (5 diffs)

trunk/NEMOGCM/NEMO/LIM_SRC_2/limwri_2.F90

@@ -30 +30 @@
    USE in_out_manager
    USE lib_mpp         ! MPP library
+   USE wrk_nemo        ! work arrays
    USE iom
    USE ioipsl
@@ -100 +101 @@
       !!      of a day
       !!-------------------------------------------------------------------
-      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released
-      USE wrk_nemo, ONLY: zfield => wrk_2d_1
-      !!
       INTEGER, INTENT(in) ::   kt     ! number of iteration
       !!
@@ -110 +108 @@
          &          zindh, zinda, zindb, ztmu
       REAL(wp), DIMENSION(1)                ::   zdept
-      !!-------------------------------------------------------------------
-
-      IF( wrk_in_use(2, 1) ) THEN
-         CALL ctl_stop('lim_wri_2 : requested workspace array unavailable')   ;   RETURN
-      ENDIF
+      REAL(wp), POINTER, DIMENSION(:,:)     ::   zfield
+      !!-------------------------------------------------------------------
+
+      CALL wrk_alloc( jpi, jpj, zfield )
                                                  !--------------------!
       IF( kt == nit000 ) THEN                    !   Initialisation   !
@@ -207 +204 @@
       IF( ( nn_fsbc * niter ) >= nitend )   CALL histclo( nice ) 
 
-      IF( wrk_not_released(2, 1) )   CALL ctl_stop('lim_wri_2 : failed to release workspace array.')
+      CALL wrk_dealloc( jpi, jpj, zfield )
       !
    END SUBROUTINE lim_wri_2
      
+# endif
 
    SUBROUTINE lim_wri_init_2
@@ -297 +295 @@
    END SUBROUTINE lim_wri_init_2
 
-# endif
 #endif