Changeset 9125 for branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_cice.F90

Timestamp:

2017-12-19T09:47:17+01:00 (7 years ago)

Author:

timgraham

Message:

Removed wrk_arrays from whole code. No change in SETTE results from this.

File:

• branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_cice.F90 (modified) (7 diffs)

branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_cice.F90

@@ -18 +18 @@
    USE lib_mpp         ! distributed memory computing library
    USE lbclnk          ! ocean lateral boundary conditions (or mpp link)
-   USE wrk_nemo        ! work arrays
    USE daymod          ! calendar
    USE fldread         ! read input fields
@@ -155 +154 @@
       !!---------------------------------------------------------------------
       INTEGER, INTENT( in  ) ::   ksbc                ! surface forcing type
-      REAL(wp), DIMENSION(:,:), POINTER :: ztmp1, ztmp2
+      REAL(wp), DIMENSION(jpi,jpj) :: ztmp1, ztmp2
       REAL(wp) ::   zcoefu, zcoefv, zcoeff            ! local scalar
       INTEGER  ::   ji, jj, jl, jk                    ! dummy loop indices
       !!---------------------------------------------------------------------
-      !
-      CALL wrk_alloc( jpi,jpj, ztmp1, ztmp2 )
       !
       IF(lwp) WRITE(numout,*)'cice_sbc_init'
@@ -272 +269 @@
       ENDIF
       !
-      CALL wrk_dealloc( jpi,jpj, ztmp1, ztmp2 )
-      !
    END SUBROUTINE cice_sbc_init
 
@@ -286 +281 @@
       !
       INTEGER  ::   ji, jj, jl                   ! dummy loop indices      
-      REAL(wp), DIMENSION(:,:), POINTER :: ztmp, zpice
-      REAL(wp), DIMENSION(:,:,:), POINTER :: ztmpn
+      REAL(wp), DIMENSION(jpi,jpj) :: ztmp, zpice
+      REAL(wp), DIMENSION(jpi,jpj,ncat) :: ztmpn
       REAL(wp) ::   zintb, zintn  ! dummy argument
       !!---------------------------------------------------------------------
       !
-      CALL wrk_alloc( jpi,jpj, ztmp, zpice )
-      CALL wrk_alloc( jpi,jpj,ncat, ztmpn )
-
       IF( kt == nit000 )  THEN
          IF(lwp) WRITE(numout,*)'cice_sbc_in'
@@ -492 +484 @@
       END DO
       CALL nemo2cice(ztmp,ss_tlty,'F', -1. )
-
-      CALL wrk_dealloc( jpi,jpj, ztmp, zpice )
-      CALL wrk_dealloc( jpi,jpj,ncat, ztmpn )
       !
    END SUBROUTINE cice_sbc_in
@@ -508 +497 @@
       
       INTEGER  ::   ji, jj, jl                 ! dummy loop indices
-      REAL(wp), DIMENSION(:,:), POINTER :: ztmp1, ztmp2
-      !!---------------------------------------------------------------------
-      !
-      CALL wrk_alloc( jpi,jpj, ztmp1, ztmp2 )
-      
+      REAL(wp), DIMENSION(jpi,jpj) :: ztmp1, ztmp2
+      !!---------------------------------------------------------------------
+      !
       IF( kt == nit000 )  THEN
          IF(lwp) WRITE(numout,*)'cice_sbc_out'
@@ -660 +647 @@
       snwice_mass_b(:,:) = snwice_mass(:,:)
       snwice_fmass (:,:) = ( snwice_mass(:,:) - snwice_mass_b(:,:) ) / dt
-
-! Release work space
-
-      CALL wrk_dealloc( jpi,jpj, ztmp1, ztmp2 )
       !
    END SUBROUTINE cice_sbc_out