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

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

@@ -15 +15 @@
    USE limistate_2 
    USE lib_mpp        ! MPP library
-   USE wrk_nemo       ! work arrays
    USE lib_fortran    ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined)  
 
@@ -80 +79 @@
          iiceform       ,   &  !  1 = ice formed   ; 0 = no ice formed
          ihemis                !  dummy indice
-      REAL(wp), POINTER, DIMENSION(:) ::   zqbgow      !  heat budget of the open water (negative)
-      REAL(wp), POINTER, DIMENSION(:) ::   zfrl_old    !  previous sea/ice fraction
-      REAL(wp), POINTER, DIMENSION(:) ::   zhice_old   !  previous ice thickness
-      REAL(wp), POINTER, DIMENSION(:) ::   zhice0      !  thickness of newly formed ice in leads
-      REAL(wp), POINTER, DIMENSION(:) ::   zfrlmin     !  minimum fraction for leads
-      REAL(wp), POINTER, DIMENSION(:) ::   zdhicbot    !  part of thickness of newly formed ice in leads which 
+      REAL(wp), DIMENSION(jpij) ::   zqbgow      !  heat budget of the open water (negative)
+      REAL(wp), DIMENSION(jpij) ::   zfrl_old    !  previous sea/ice fraction
+      REAL(wp), DIMENSION(jpij) ::   zhice_old   !  previous ice thickness
+      REAL(wp), DIMENSION(jpij) ::   zhice0      !  thickness of newly formed ice in leads
+      REAL(wp), DIMENSION(jpij) ::   zfrlmin     !  minimum fraction for leads
+      REAL(wp), DIMENSION(jpij) ::   zdhicbot    !  part of thickness of newly formed ice in leads which 
                                 !  has been already used in transport for example
       REAL(wp)  ::  &
@@ -102 +101 @@
       !!---------------------------------------------------------------------      
                
-      CALL wrk_alloc( jpij, zqbgow, zfrl_old, zhice_old, zhice0, zfrlmin, zdhicbot )
       
       !--------------------------------------------------------------
@@ -221 +219 @@
       END DO
       
-      CALL wrk_dealloc( jpij, zqbgow, zfrl_old, zhice_old, zhice0, zfrlmin, zdhicbot )
       !
    END SUBROUTINE lim_thd_lac_2