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

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

@@ -55 +55 @@
       REAL(wp) ::  z2da, z2db, ztmp, zrho1, zrho2, zmiss_val
       REAL(wp) ::  zs12, zshear
-      REAL(wp), POINTER, DIMENSION(:,:,:) ::  zswi2, zmiss2
-      REAL(wp), POINTER, DIMENSION(:,:)   ::  z2d, zswi, zmiss !  2D workspace
-      REAL(wp), POINTER, DIMENSION(:,:)   ::  zfb              ! ice freeboard
-      REAL(wp), POINTER, DIMENSION(:,:)   ::  zamask, zamask15 ! 15% concentration mask
-      REAL(wp), POINTER, DIMENSION(:,:)   ::  zsig1, zsig2, zsig3
+      REAL(wp), DIMENSION(jpi,jpj,jpl) ::  zswi2, zmiss2
+      REAL(wp), DIMENSION(jpi,jpj)   ::  z2d, zswi, zmiss !  2D workspace
+      REAL(wp), DIMENSION(jpi,jpj)   ::  zfb              ! ice freeboard
+      REAL(wp), DIMENSION(jpi,jpj)   ::  zamask, zamask15 ! 15% concentration mask
+      REAL(wp), DIMENSION(jpi,jpj)   ::  zsig1, zsig2, zsig3
 
       ! Global ice diagnostics (SIMIP)
@@ -72 +72 @@
 
       IF( nn_timing == 1 )  CALL timing_start('limwri')
-
-      CALL wrk_alloc( jpi,jpj, jpl, zswi2, zmiss2 )
-      CALL wrk_alloc( jpi,jpj     , z2d, zswi, zmiss )
-      CALL wrk_alloc( jpi,jpj     , zfb, zamask, zamask15 )
-      CALL wrk_alloc( jpi,jpj     , zsig1, zsig2, zsig3 )
 
       !----------------------------------------
@@ -428 +423 @@
       !     not yet implemented
       
-      CALL wrk_dealloc( jpi, jpj, jpl, zswi2, zmiss2 )
-      CALL wrk_dealloc( jpi, jpj     , z2d, zswi, zmiss )
-      CALL wrk_dealloc( jpi, jpj     , zfb, zamask, zamask15 )
-      CALL wrk_dealloc( jpi, jpj     , zsig1, zsig2, zsig3 )
-
       IF( nn_timing == 1 )  CALL timing_stop('limwri')