Changeset 179 for trunk/MESOSCALE/LMD_MM_MARS
- Timestamp:
- Jun 29, 2011, 11:16:56 AM (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/phys/module_lmd_driver.F
r170 r179 843 843 IF ( (i == ips) .AND. (j == jps) ) PRINT *,'** Mars ** IDEALIZED SIMULATION isoil and dsoil standard' 844 844 isoil_val(k) = inertiedat_val 845 dsoil_val(k) = sqrt(887.75/3.14)*((2.**(k-0.5))-1.) * inertiedat_val / wvolcapa 845 ! dsoil_val(k) = sqrt(887.75/3.14)*((2.**(k-0.5))-1.) * inertiedat_val / wvolcapa ! old setting 846 dsoil_val(k) = 2.E-4 * (2.**(k-0.5-1.)) ! new gcm settings 846 847 IF ( (i == ips) .AND. (j == jps) ) PRINT *,'** Mars ** ISOIL DSOIL are ',isoil_val(k), dsoil_val(k) 847 848 #endif
Note: See TracChangeset
for help on using the changeset viewer.