Changeset 2528 for trunk/NEMOGCM/NEMO/TOP_SRC/SED/sedchem.F90
- Timestamp:
- 2010-12-27T18:33:53+01:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/TOP_SRC/SED/sedchem.F90
- Property svn:keywords set to Id
r1250 r2528 216 216 DO jj = 1,jpj 217 217 DO ji = 1, jpi 218 ikt = MAX( mbathy(ji,jj)-1, 1 )218 ikt = mbkt(ji,jj) 219 219 IF ( tmask(ji,jj,ikt) == 1 ) THEN 220 220 zchem_data(ji,jj,1) = ak13 (ji,jj,ikt)
Note: See TracChangeset
for help on using the changeset viewer.