New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 7910 for branches/2017/dev_r7881_no_wrk_alloc/NEMOGCM/NEMO/OPA_SRC/DOM/iscplhsb.F90 – NEMO

Ignore:
Timestamp:
2017-04-13T16:21:08+02:00 (7 years ago)
Author:
timgraham
Message:

All wrk_alloc removed

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2017/dev_r7881_no_wrk_alloc/NEMOGCM/NEMO/OPA_SRC/DOM/iscplhsb.F90

    r7646 r7910  
    2121   USE lib_mpp         ! MPP library 
    2222   USE lib_fortran     ! MPP library 
    23    USE wrk_nemo        ! Memory allocation 
    2423   USE lbclnk          ! 
    2524   USE domngb          ! 
     
    6564      !! 
    6665      REAL(wp):: zde3t, zdtem, zdsal 
    67       REAL(wp), DIMENSION(:,:), POINTER :: zdssh 
     66      REAL(wp), DIMENSION(jpi,jpj) :: zdssh 
    6867      !! 
    6968      REAL(wp), DIMENSION(:), ALLOCATABLE :: zlon, zlat 
     
    7271      INTEGER :: jpts, npts 
    7372 
    74       CALL wrk_alloc(jpi,jpj, zdssh ) 
    7573 
    7674      ! get imbalance (volume heat and salt) 
     
    289287 
    290288      ! deallocate variables 
    291       CALL wrk_dealloc(jpi,jpj, zdssh )  
    292289 
    293290   END SUBROUTINE iscpl_cons 
Note: See TracChangeset for help on using the changeset viewer.