- Timestamp:
- 2013-11-20T17:28:04+01:00 (10 years ago)
- Location:
- branches/2013/dev_MERGE_2013/NEMOGCM/NEMO/TOP_SRC/PISCES/SED
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2013/dev_MERGE_2013/NEMOGCM/NEMO/TOP_SRC/PISCES/SED/sed.F90
r3443 r4292 19 19 USE dom_oce , ONLY : glamt => glamt !: longitude of t-point (degre) 20 20 USE dom_oce , ONLY : gphit => gphit !: latitude of t-point (degre) 21 USE dom_oce , ONLY : e3t_ 0 => e3t_0!: reference depth of t-points (m)21 USE dom_oce , ONLY : e3t_1d => e3t_1d !: reference depth of t-points (m) 22 22 USE dom_oce , ONLY : mbkt => mbkt !: vertical index of the bottom last T- ocean level 23 23 USE dom_oce , ONLY : tmask => tmask !: land/ocean mask at t-points -
branches/2013/dev_MERGE_2013/NEMOGCM/NEMO/TOP_SRC/PISCES/SED/sedini.F90
r3443 r4292 142 142 DO ji = 1, jpi 143 143 ikt = mbkt(ji,jj) 144 IF( tmask(ji,jj,ikt) == 1 ) epkbot(ji,jj) = e3t_ 0(ikt)144 IF( tmask(ji,jj,ikt) == 1 ) epkbot(ji,jj) = e3t_1d(ikt) 145 145 ENDDO 146 146 ENDDO
Note: See TracChangeset
for help on using the changeset viewer.