Changeset 315 for trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/dyn_em
- Timestamp:
- Oct 10, 2011, 11:01:05 PM (14 years ago)
- Location:
- trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/dyn_em
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/dyn_em/module_initialize_real.F
r76 r315 289 289 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 290 290 #ifdef NEWPHYS 291 292 grid%mars_z0(i,j) = 0. 293 grid%mars_z0(i,j) = grid%em_z0_gc(i,j)*0.01 !! in cm in surface.nc but in m in physiq.F 294 !IF (config_flags%init_Z0 .ne. 0.) THEN 295 ! grid%z0 = grid%z0*0. + config_flags%init_Z0 296 !ENDIF 297 291 298 ! here, that bit is necessary for new soil model ! 292 299 IF (config_flags%init_TI .ne. 0.) THEN -
trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/dyn_em/solve_em.F
r196 r315 866 866 & ,MARS_ISOIL=grid%mars_isoil & 867 867 & ,MARS_DSOIL=grid%mars_dsoil & 868 & ,MARS_Z0=grid%mars_z0 & 869 & ,CST_Z0=config_flags%init_Z0 & 868 870 #endif 869 871 & ,MARS_GW=grid%mars_gw &
Note: See TracChangeset
for help on using the changeset viewer.