Changeset 650 for trunk/NEMO
- Timestamp:
- 2007-04-18T11:23:38+02:00 (17 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/TOP_SRC/SMS/p4zflx.F
r617 r650 136 136 C 137 137 ws = vatm(ji,jj) 138 ttc = min(35.,tn(ji,jj,1)) 138 139 schmitto2 = 1953.4-128.0*ttc+3.9918*ttc**2 139 140 & -0.050091*ttc**3 … … 181 182 trc2d(ji,jj,2) = flu16*1000. 182 183 trc2d(ji,jj,3) = kgco2(ji,jj) 183 trc2d(ji,jj,4) = atcco2-h2co3(ji,jj)/(chemc(ji,jj, 1)+rtrn)184 trc2d(ji,jj,4) = atcco2-h2co3(ji,jj)/(chemc(ji,jj,3)+rtrn) 184 185 # endif 185 186 C
Note: See TracChangeset
for help on using the changeset viewer.