Changeset 8373 for branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/limrst.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/limrst.F90 (modified) (5 diffs)

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

@@ -106 +106 @@
       CHARACTER(len=25) ::   znam
       CHARACTER(len=2)  ::   zchar, zchar1
-      REAL(wp), POINTER, DIMENSION(:,:) :: z2d
-      !!----------------------------------------------------------------------
-
-      CALL wrk_alloc( jpi, jpj, z2d )
+      REAL(wp), DIMENSION(jpi,jpj) :: z2d
+      !!----------------------------------------------------------------------
 
       iter = kt + nn_fsbc - 1   ! ice restarts are written at kt == nitrst - nn_fsbc + 1
@@ -355 +353 @@
       ENDIF
       !
-      CALL wrk_dealloc( jpi, jpj, z2d )
       !
    END SUBROUTINE lim_rst_write
@@ -366 +363 @@
       !! ** purpose  :   read of sea-ice variable restart in a netcdf file
       !!----------------------------------------------------------------------
-      INTEGER :: ji, jj, jk, jl
-      REAL(wp) ::   zfice, ziter
-      REAL(wp), POINTER, DIMENSION(:,:) ::   z2d
+      INTEGER  :: ji, jj, jk, jl
+      REAL(wp) :: zfice, ziter
+      REAL(wp), DIMENSION(jpi,jpj) ::   z2d
       CHARACTER(len=25) ::   znam
       CHARACTER(len=2)  ::   zchar, zchar1
@@ -374 +371 @@
       LOGICAL           ::   llok
       !!----------------------------------------------------------------------
-
-      CALL wrk_alloc( jpi, jpj, z2d )
 
       IF(lwp) THEN
@@ -638 +633 @@
       !CALL iom_close( numrir ) !clem: closed in icestp.F90
       !
-      CALL wrk_dealloc( jpi, jpj, z2d )
-      !
    END SUBROUTINE lim_rst_read