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

branches/2017/dev_r7881_no_wrk_alloc/NEMOGCM/NEMO/LIM_SRC_3/limthd_da.F90

@@ -17 +17 @@
    USE ice                    ! LIM variables
    USE lib_mpp                ! MPP library
-   USE wrk_nemo               ! work arrays
    USE lib_fortran            ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined)  
 
@@ -104 +103 @@
       REAL(wp), PARAMETER ::   zm2   = 1.36_wp
       !
-      REAL(wp), POINTER, DIMENSION(:,:) ::   zda_tot
+      REAL(wp), DIMENSION(jpi,jpj) ::   zda_tot
       !!---------------------------------------------------------------------
-      CALL wrk_alloc( jpi,jpj, zda_tot )
 
       !------------------------------------------------------------!
@@ -168 +166 @@
       WHERE( a_i == 0._wp ) ht_i = 0._wp
       !
-      CALL wrk_dealloc( jpi,jpj, zda_tot )
       !
    END SUBROUTINE lim_thd_da