Changeset 7910 for branches/2017/dev_r7881_no_wrk_alloc/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_lim_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/OPA_SRC/SBC/sbcice_lim_2.F90 (modified) (4 diffs)

branches/2017/dev_r7881_no_wrk_alloc/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_lim_2.F90

@@ -43 +43 @@
    USE lbclnk           ! lateral boundary condition - MPP link
    USE lib_mpp          ! MPP library
-   USE wrk_nemo         ! work arrays
    USE iom              ! I/O manager library
    USE in_out_manager   ! I/O manager
@@ -94 +93 @@
       !!
       INTEGER  ::   ji, jj   ! dummy loop indices
-      REAL(wp), DIMENSION(:,:,:), POINTER :: zalb_os   ! ice albedo under overcast sky
-      REAL(wp), DIMENSION(:,:,:), POINTER :: zalb_cs   ! ice albedo under clear sky
-      REAL(wp), DIMENSION(:,:,:), POINTER :: zalb_ice  ! mean ice albedo
-      REAL(wp), DIMENSION(:,:,:), POINTER :: zsist     ! ice surface temperature (K)
-      REAL(wp), DIMENSION(:,:  ), POINTER :: zutau_ice, zvtau_ice 
+      REAL(wp), DIMENSION(jpi,jpj,1) :: zalb_os   ! ice albedo under overcast sky
+      REAL(wp), DIMENSION(jpi,jpj,1) :: zalb_cs   ! ice albedo under clear sky
+      REAL(wp), DIMENSION(jpi,jpj,1) :: zalb_ice  ! mean ice albedo
+      REAL(wp), DIMENSION(jpi,jpj,1) :: zsist     ! ice surface temperature (K)
+      REAL(wp), DIMENSION(jpi,jpj) :: zutau_ice, zvtau_ice 
       !!----------------------------------------------------------------------
 
@@ -121 +120 @@
 # endif
 
-         CALL wrk_alloc( jpi,jpj  , zutau_ice, zvtau_ice)
-         CALL wrk_alloc( jpi,jpj,1, zalb_os, zalb_cs, zalb_ice, zsist )
 
          !  Bulk Formulea !
@@ -245 +242 @@
 # endif
          !
-         CALL wrk_dealloc( jpi,jpj  , zutau_ice, zvtau_ice)
-         CALL wrk_dealloc( jpi,jpj,1, zalb_os, zalb_cs, zalb_ice, zsist )
          !
       ENDIF                                    ! End sea-ice time step only