Changeset 617 for trunk/NEMO/TOP_SRC/SMS/p4zlim.F
- Timestamp:
- 2007-02-21T14:03:10+01:00 (17 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/TOP_SRC/SMS/p4zlim.F
r341 r617 126 126 & +concdfe(ji,jj,jk)) 127 127 xlimdia(ji,jj,jk)=min(xlim1,xlim2,xlim3,xlim4) 128 xlim4=trn(ji,jj,jk,jpfer)/(trn(ji,jj,jk,jpfer)+conc3)129 xlimdia2(ji,jj,jk)=min(xlim1,xlim2,xlim3,xlim4)130 128 C 131 129 END DO
Note: See TracChangeset
for help on using the changeset viewer.