Changeset 1209 for trunk/LMDZ.COMMON/libf/dyn3dpar
- Timestamp:
- Mar 12, 2014, 6:04:44 PM (11 years ago)
- Location:
- trunk/LMDZ.COMMON/libf/dyn3dpar
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LMDZ.COMMON/libf/dyn3dpar/comconst.h
r979 r1209 11 11 & ,dissip_fac_mid,dissip_fac_up,dissip_deltaz,dissip_hdelta & 12 12 & ,dissip_pupstart ,tau_top_bound, & 13 & daylen, year_day,molmass, ihf13 & daylen,molmass, ihf 14 14 COMMON/cpdetvenus/cpp,nu_venus,t0_venus 15 15 … … 37 37 REAL tau_top_bound 38 38 REAL daylen ! length of solar day, in 'standard' day length 39 REAL year_day ! Number of standard days in a year40 39 REAL molmass ! (g/mol) molar mass of the atmosphere 41 40 -
trunk/LMDZ.COMMON/libf/dyn3dpar/conf_planete.F90
r52 r1209 21 21 ! local: 22 22 ! ------ 23 24 real :: year_day_dyn 23 25 24 26 ! --------------------------------------------- … … 57 59 CALL getin('daylen',daylen) 58 60 ! Number of days (standard) per year: 59 year_day = 365.2560 CALL getin('year_day',year_day )61 year_day_dyn = 365.25 62 CALL getin('year_day',year_day_dyn) 61 63 ! Omega 62 64 ! omeg=2.*pi/86400. 63 omeg=2.*pi/daysec*(1./daylen+1./year_day )65 omeg=2.*pi/daysec*(1./daylen+1./year_day_dyn) 64 66 CALL getin('omeg',omeg) 65 67
Note: See TracChangeset
for help on using the changeset viewer.