Changeset 771 for branches/dev_001_GM/NEMO/TOP_SRC/trcrst.F90
- Timestamp:
- 2007-12-17T11:51:41+01:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/dev_001_GM/NEMO/TOP_SRC/trcrst.F90
r768 r771 261 261 & + 0.5e-3 * ( 1.- tmask(ji,jj,jk) ) 262 262 bicarb = 2.* trn(ji,jj,jk,jpdic) - caralk 263 hi(ji,jj,jk) = ( ak23(ji,jj,jk) * bicarb / co3 ) * tmask(ji,jj,jk) 263 hi(ji,jj,jk) = ( ak23(ji,jj,jk) * bicarb / co3 ) * tmask(ji,jj,jk) & 264 264 & + 1.0e-9 * ( 1.- tmask(ji,jj,jk) ) 265 265 END DO
Note: See TracChangeset
for help on using the changeset viewer.