- 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/LIM_SRC_2/limhdf_2.F90
r4990 r7910 18 18 USE lbclnk ! lateral boundary condition - MPP exchanges 19 19 USE lib_mpp ! MPP library 20 USE wrk_nemo ! work arrays21 20 USE prtctl ! Print control 22 21 USE in_out_manager ! I/O manager … … 58 57 INTEGER :: its, iter, ierr ! local integers 59 58 REAL(wp) :: zalfa, zrlxint, zconv, zeps ! local scalars 60 REAL(wp), DIMENSION( :,:), POINTER:: zrlx, zflu, zflv, zdiv0, zdiv, ztab059 REAL(wp), DIMENSION(jpi,jpj) :: zrlx, zflu, zflv, zdiv0, zdiv, ztab0 61 60 CHARACTER (len=55) :: charout 62 61 !!------------------------------------------------------------------- 63 62 64 CALL wrk_alloc( jpi, jpj, zrlx, zflu, zflv, zdiv0, zdiv, ztab0 )65 63 66 64 ! !== Initialisation ==! … … 144 142 ENDIF 145 143 ! 146 CALL wrk_dealloc( jpi, jpj, zrlx, zflu, zflv, zdiv0, zdiv, ztab0 )147 144 ! 148 145 END SUBROUTINE lim_hdf_2
Note: See TracChangeset
for help on using the changeset viewer.