Changeset 7910 for branches/2017/dev_r7881_no_wrk_alloc/NEMOGCM/NEMO/LIM_SRC_2/limwri_2.F90

Timestamp:

2017-04-13T16:21:08+02:00 (7 years ago)

Author:

timgraham

Message:

All wrk_alloc removed

File:

• branches/2017/dev_r7881_no_wrk_alloc/NEMOGCM/NEMO/LIM_SRC_2/limwri_2.F90 (modified) (3 diffs)

branches/2017/dev_r7881_no_wrk_alloc/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
@@ -103 +102 @@
          &          zindh, zinda, zindb, ztmu
       REAL(wp), DIMENSION(1)                ::   zdept
-      REAL(wp), POINTER, DIMENSION(:,:)     ::   zfield
-      !!-------------------------------------------------------------------
-
-      CALL wrk_alloc( jpi, jpj, zfield )
+      REAL(wp), DIMENSION(jpi,jpj)     ::   zfield
+      !!-------------------------------------------------------------------
+
                                                  !--------------------!
       IF( kt == nit000 ) THEN                    !   Initialisation   !
@@ -206 +204 @@
       IF( ( nn_fsbc * niter ) >= nitend )   CALL histclo( nice ) 
 
-      CALL wrk_dealloc( jpi, jpj, zfield )
       !
    END SUBROUTINE lim_wri_2