- Timestamp:
- 2016-10-13T11:08:38+02:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2016/dev_r6999_CONFIGMAN_1/NEMOGCM/TOOLS/SIREN/src/phycst.f90
r6393 r7025 49 49 REAL(dp), PARAMETER :: dp_siday = dp_day / ( 1._wp + dp_day / dp_siyea ) 50 50 51 REAL(dp), PARAMETER :: dp_delta=1.e- 651 REAL(dp), PARAMETER :: dp_delta=1.e-5 52 52 REAL(dp), PARAMETER :: dp_omega= 2._dp * dp_pi / dp_siday 53 53 END MODULE phycst
Note: See TracChangeset
for help on using the changeset viewer.