Changeset 8373 for branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/limvar.F90

Timestamp:

2017-07-25T19:44:54+02:00 (7 years ago)

Author:

clem

Message:

remove most of wrk_alloc

File:

• branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/limvar.F90 (modified) (6 diffs)

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

@@ -302 +302 @@
       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 )
 
       !---------------------------------------
@@ -391 +389 @@
       ENDIF ! nn_icesal
       !
-      CALL wrk_dealloc( jpi, jpj, jpl, z_slope_s, zalpha )
-      !
    END SUBROUTINE lim_var_salprof
 
@@ -444 +440 @@
       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 )
 
       !---------------------------------------
@@ -511 +505 @@
       ENDIF
       !
-      CALL wrk_dealloc( jpij, z_slope_s )
-      !
    END SUBROUTINE lim_var_salprof1d
 
@@ -652 +644 @@
       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
@@ -777 +768 @@
          ENDDO
       ENDDO
-
-      CALL wrk_dealloc( 4, itest )
       !
     END SUBROUTINE lim_var_itd