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

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

@@ -43 +43 @@
    USE in_out_manager ! I/O manager
    USE lib_mpp        ! MPP library
-   USE wrk_nemo       ! work arrays
    USE lib_fortran    ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined)  
 
@@ -289 +288 @@
       REAL(wp) ::   zfac0, zfac1, zsal
       REAL(wp) ::   zswi0, zswi01, zargtemp , zs_zero   
-      REAL(wp), POINTER, DIMENSION(:,:,:) ::   z_slope_s, zalpha
+      REAL(wp), DIMENSION(jpi,jpj,jpl) ::   z_slope_s, zalpha
       REAL(wp), PARAMETER :: zsi0 = 3.5_wp
       REAL(wp), PARAMETER :: zsi1 = 4.5_wp
       !!------------------------------------------------------------------
 
-      CALL wrk_alloc( jpi, jpj, jpl, z_slope_s, zalpha )
 
       !---------------------------------------
@@ -378 +376 @@
       ENDIF ! nn_icesal
       !
-      CALL wrk_dealloc( jpi, jpj, jpl, z_slope_s, zalpha )
       !
    END SUBROUTINE lim_var_salprof
@@ -434 +431 @@
       REAL(wp) ::   zalpha, zswi0, zswi01, zs_zero              !   -      -
       !
-      REAL(wp), POINTER, DIMENSION(:) ::   z_slope_s
+      REAL(wp), DIMENSION(jpij) ::   z_slope_s
       REAL(wp), PARAMETER :: zsi0 = 3.5_wp
       REAL(wp), PARAMETER :: zsi1 = 4.5_wp
       !!---------------------------------------------------------------------
 
-      CALL wrk_alloc( jpij, z_slope_s )
 
       !---------------------------------------
@@ -503 +499 @@
       ENDIF
       !
-      CALL wrk_dealloc( jpij, z_slope_s )
       !
    END SUBROUTINE lim_var_salprof1d
@@ -639 +634 @@
       REAL(wp), DIMENSION(:),   INTENT(in)    ::   zhti, zhts, zai    ! input ice/snow variables
       REAL(wp), DIMENSION(:,:), INTENT(inout) ::   zht_i, zht_s, za_i ! output ice/snow variables
-      INTEGER , POINTER, DIMENSION(:)         ::   itest
+      INTEGER , DIMENSION(4)         ::   itest
  
-      CALL wrk_alloc( 4, itest )
       !--------------------------------------------------------------------
       ! initialisation of variables
@@ -765 +759 @@
       ENDDO
 
-      CALL wrk_dealloc( 4, itest )
       !
     END SUBROUTINE lim_var_itd