Changeset 621 for trunk/NEMO
- Timestamp:
- 2007-02-22T08:58:57+01:00 (17 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/LIM_SRC/limdyn.F90
r531 r621 300 300 ENDIF 301 301 302 ! Initialization 302 303 usecc2 = 1.0 / ( ecc * ecc ) 303 304 rhoco = rau0 * cw … … 306 307 cangvg = COS( angvg ) 307 308 pstarh = pstar / 2.0 309 sdvt(:,:) = 0.e0 308 310 309 311 ! Diffusion coefficients.
Note: See TracChangeset
for help on using the changeset viewer.