- 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_3/limthd_ent.F90
r5134 r7910 29 29 USE in_out_manager ! I/O manager 30 30 USE lib_mpp ! MPP library 31 USE wrk_nemo ! work arrays32 31 USE lib_fortran ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined) 33 32 … … 76 75 INTEGER :: jk0, jk1 ! old/new layer indices 77 76 ! 78 REAL(wp), POINTER, DIMENSION(:,:) :: zqh_cum0, zh_cum0 ! old cumulative enthlapies and layers interfaces79 REAL(wp), POINTER, DIMENSION(:,:) :: zqh_cum1, zh_cum1 ! new cumulative enthlapies and layers interfaces80 REAL(wp), POINTER, DIMENSION(:) :: zhnew ! new layers thicknesses77 REAL(wp), DIMENSION(jpij,0:nlay_i+2) :: zqh_cum0, zh_cum0 ! old cumulative enthlapies and layers interfaces 78 REAL(wp), DIMENSION(jpij,0:nlay_i) :: zqh_cum1, zh_cum1 ! new cumulative enthlapies and layers interfaces 79 REAL(wp), DIMENSION(jpij) :: zhnew ! new layers thicknesses 81 80 !!------------------------------------------------------------------- 82 81 83 CALL wrk_alloc( jpij, nlay_i+3, zqh_cum0, zh_cum0, kjstart = 0 )84 CALL wrk_alloc( jpij, nlay_i+1, zqh_cum1, zh_cum1, kjstart = 0 )85 CALL wrk_alloc( jpij, zhnew )86 82 87 83 !-------------------------------------------------------------------------- … … 146 142 147 143 ! 148 CALL wrk_dealloc( jpij, nlay_i+3, zqh_cum0, zh_cum0, kjstart = 0 )149 CALL wrk_dealloc( jpij, nlay_i+1, zqh_cum1, zh_cum1, kjstart = 0 )150 CALL wrk_dealloc( jpij, zhnew )151 144 ! 152 145 END SUBROUTINE lim_thd_ent
Note: See TracChangeset
for help on using the changeset viewer.