Changeset 2575 for palm/trunk/SOURCE/header.f90
- Timestamp:
- Oct 24, 2017 9:57:58 AM (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/header.f90
r2550 r2575 1764 1764 ! 1765 1765 !-- Geostrophic parameters 1766 WRITE ( io, 410 ) phi, omega, f, fs1766 WRITE ( io, 410 ) latitude, longitude, omega, f, fs 1767 1767 1768 1768 ! … … 2200 2200 400 FORMAT (//' Physical quantities:'/ & 2201 2201 ' -------------------'/) 2202 410 FORMAT (' Geograph. latitude : phi = ',F4.1,' degr'/ & 2202 410 FORMAT (' Geograph. latitude : latitude = ',F4.1,' degr'/ & 2203 ' Geograph. longitude : longitude = ',F4.1,' degr'/ & 2203 2204 ' Angular velocity : omega =',E10.3,' rad/s'/ & 2204 2205 ' Coriolis parameter : f = ',F9.6,' 1/s'/ & … … 2215 2216 ' Specific heat cap. : c_p = ',F6.1,' J/(kg K)'/ & 2216 2217 ' Vapourization heat : L_v =',E9.2,' J/kg') 2217 417 FORMAT (' Geograph. longitude : lambda = ',F4.1,' degr')2218 2218 418 FORMAT (/' Day of the year at model start : day_init = ',I3 & 2219 2219 /' UTC time at model start : time_utc_init = ',F7.1' s')
Note: See TracChangeset
for help on using the changeset viewer.