Changeset 260 for trunk/LMDZ.MARS/libf/phymars/vdif_cd.F
- Timestamp:
- Aug 4, 2011, 12:00:01 PM (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LMDZ.MARS/libf/phymars/vdif_cd.F
r256 r260 165 165 fh(ig)=((ric-rib(ig))/ric)**2 166 166 else 167 c For Ri>Ric, we consider Ri->Infinity => no turbulent mixing at surface 167 168 fm(ig)=0. 168 169 fh(ig)=0.
Note: See TracChangeset
for help on using the changeset viewer.