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

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

@@ -35 +35 @@
    USE lbclnk           ! ocean lateral boundary condition - MPP exchanges
    USE lib_mpp          ! MPP library
-   USE wrk_nemo         ! work arrays
    USE in_out_manager   ! I/O manager
    USE iom              ! I/O library
@@ -111 +110 @@
       REAL(wp) ::   zemp_snw, zqhc,   zcd      !   -      -
       REAL(wp) ::   zswitch                    !   -      -
-      REAL(wp), POINTER, DIMENSION(:,:)   ::   zqnsoce       ! 2D workspace
-      REAL(wp), POINTER, DIMENSION(:,:,:) ::   zalb, zalbp   ! 2D/3D workspace
+      REAL(wp), DIMENSION(jpi,jpj)   ::   zqnsoce       ! 2D workspace
+      REAL(wp), DIMENSION(jpi,jpj,1) ::   zalb, zalbp   ! 2D/3D workspace
       !!---------------------------------------------------------------------
       !
-      CALL wrk_alloc( jpi, jpj, zqnsoce )
-      CALL wrk_alloc( jpi, jpj, 1, zalb, zalbp )
       !
       SELECT CASE( nn_ice_embd )             ! levitating or embedded sea-ice option
@@ -269 +266 @@
       ENDIF 
       !
-      CALL wrk_dealloc( jpi, jpj, zqnsoce )
-      CALL wrk_dealloc( jpi, jpj, 1, zalb, zalbp )
       !
    END SUBROUTINE lim_sbc_flx_2
@@ -308 +303 @@
       REAL(wp) ::   zfrldv, zat_v, zv_i, zvtau_ice, zv_t, zmodi   !   -      -
       REAL(wp) ::   zsang, zumt                                   !    -         -
-      REAL(wp), POINTER, DIMENSION(:,:) ::   ztio_u, ztio_v   ! ocean stress below sea-ice
+      REAL(wp), DIMENSION(jpi,jpj) ::   ztio_u, ztio_v   ! ocean stress below sea-ice
       !!---------------------------------------------------------------------
       !
-      CALL wrk_alloc( jpi, jpj, ztio_u, ztio_v )
       !
       SELECT CASE( cp_ice_msh )     
@@ -421 +415 @@
          &                       tab2d_2=vtau, clinfo2=' vtau    : '        , mask2=vmask )
       !  
-      CALL wrk_dealloc( jpi, jpj, ztio_u, ztio_v )
       !
    END SUBROUTINE lim_sbc_tau_2