Changeset 7910 for branches/2017/dev_r7881_no_wrk_alloc/NEMOGCM/NEMO/LIM_SRC_2/limmsh_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/limmsh_2.F90 (modified) (3 diffs)

branches/2017/dev_r7881_no_wrk_alloc/NEMOGCM/NEMO/LIM_SRC_2/limmsh_2.F90

@@ -21 +21 @@
    USE lib_mpp          ! MPP library
 #if defined key_lim2_vp
-   USE wrk_nemo         ! work arrays
 #endif
    USE lib_fortran    ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined)  
@@ -56 +55 @@
       REAL(wp) ::   zh1p  , zh2p      !   -      -
       REAL(wp) ::   zd2d1p, zd1d2p    !   -      -
-      REAL(wp), POINTER, DIMENSION(:,:) ::   zd2d1, zd1d2   ! 2D workspace
+      REAL(wp), DIMENSION(jpi,jpj) ::   zd2d1, zd1d2   ! 2D workspace
 #endif
       !!---------------------------------------------------------------------
 
 #if defined key_lim2_vp
-      CALL wrk_alloc( jpi, jpj, zd2d1, zd1d2 )
 #endif
 
@@ -280 +278 @@
       !
 #if defined key_lim2_vp
-      CALL wrk_dealloc( jpi, jpj, zd2d1, zd1d2 )
 #endif
       !