Changeset 7995 for branches/2017/dev_r7881_no_wrk_alloc
- Timestamp:
- 2017-05-04T16:47:44+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_dif.F90
r7956 r7995 142 142 REAL(wp), DIMENSION(jpij,0:nlay_s) :: ztsb ! Temporary temperature in the snow 143 143 REAL(wp), DIMENSION(jpij,0:nlay_s) :: z_s ! Vertical cotes of the layers in the snow 144 REAL(wp), DIMENSION(jpij, 0:nlay_i+3) :: zindterm ! 'Ind'ependent term145 REAL(wp), DIMENSION(jpij, 0:nlay_i+3) :: zindtbis ! Temporary 'ind'ependent term146 REAL(wp), DIMENSION(jpij, 0:nlay_i+3) :: zdiagbis ! Temporary 'dia'gonal term147 REAL(wp), DIMENSION(jpij, 0:nlay_i+3,3) :: ztrid ! Tridiagonal system terms144 REAL(wp), DIMENSION(jpij,nlay_i+3) :: zindterm ! 'Ind'ependent term 145 REAL(wp), DIMENSION(jpij,nlay_i+3) :: zindtbis ! Temporary 'ind'ependent term 146 REAL(wp), DIMENSION(jpij,nlay_i+3) :: zdiagbis ! Temporary 'dia'gonal term 147 REAL(wp), DIMENSION(jpij,nlay_i+3,3) :: ztrid ! Tridiagonal system terms 148 148 149 149 ! diag errors on heat
Note: See TracChangeset
for help on using the changeset viewer.