- Timestamp:
- 2017-04-13T16:21:08+02:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_r7881_no_wrk_alloc/NEMOGCM/NEMO/OPA_SRC/DOM/iscplhsb.F90
r7646 r7910 21 21 USE lib_mpp ! MPP library 22 22 USE lib_fortran ! MPP library 23 USE wrk_nemo ! Memory allocation24 23 USE lbclnk ! 25 24 USE domngb ! … … 65 64 !! 66 65 REAL(wp):: zde3t, zdtem, zdsal 67 REAL(wp), DIMENSION( :,:), POINTER:: zdssh66 REAL(wp), DIMENSION(jpi,jpj) :: zdssh 68 67 !! 69 68 REAL(wp), DIMENSION(:), ALLOCATABLE :: zlon, zlat … … 72 71 INTEGER :: jpts, npts 73 72 74 CALL wrk_alloc(jpi,jpj, zdssh )75 73 76 74 ! get imbalance (volume heat and salt) … … 289 287 290 288 ! deallocate variables 291 CALL wrk_dealloc(jpi,jpj, zdssh )292 289 293 290 END SUBROUTINE iscpl_cons
Note: See TracChangeset
for help on using the changeset viewer.