Changeset 674 for trunk/MESOSCALE/LMD_MM_MARS/SRC/LES/modif_mars
- Timestamp:
- May 25, 2012, 8:06:39 PM (13 years ago)
- Location:
- trunk/MESOSCALE/LMD_MM_MARS/SRC/LES/modif_mars
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/MESOSCALE/LMD_MM_MARS/SRC/LES/modif_mars/Registry.EM
r390 r674 224 224 state real mars_cice ij misc 1 - i012rd "MARS_CICE" "co2 ice" "kg" 225 225 state real mars_wice ij misc 1 - i012rd "MARS_WICE" "h2o ice" "kg/m2" 226 state real mars_tsoil ilj misc 1 - i012rd "MARS_TSOIL" "soil temperatures" "K" 226 state real mars_tsurf ij misc 1 - i012rd "MARS_TSURF" "surface temperature" "K" 227 state real mars_fluxrad ij misc 1 - i012rd "MARS_FLUXRAD" "net rad flux at surf" "W.m-2" 228 state real mars_wstar ij misc 1 - i012rd "MARS_WSTAR" "free convection velocity" "m.s-1" 229 state real mars_tsoil ilj misc 1 - i012rd "MARS_TSOIL" "soil temperatures" "K" 230 state real mars_q2 ikj misc 1 Z i012rd "MARS_Q2" "turbulent kinetic energy" "kg.m-3" 227 231 state real mars_isoil ilj misc 1 - i012rd "MARS_ISOIL" "soil thermal inertia" "tiu" 228 232 state real mars_dsoil ilj misc 1 - i012rd "MARS_DSOIL" "soil depths" "m" -
trunk/MESOSCALE/LMD_MM_MARS/SRC/LES/modif_mars/module_first_rk_step_part1.F
r390 r674 622 622 & ,MARS_WICE=grid%mars_wice & 623 623 & ,MARS_TSOIL=grid%mars_tsoil & 624 & ,MARS_Q2=grid%mars_q2 & 625 & ,MARS_FLUXRAD=grid%mars_fluxrad & 626 & ,MARS_WSTAR=grid%mars_wstar & 627 & ,MARS_TSURF=grid%mars_tsurf & 624 628 #ifdef NEWPHYS 625 629 & ,MARS_ISOIL=grid%mars_isoil & … … 652 656 #include "module_lmd_driver_output4.inc" 653 657 #endif 654 & ,SLPX=grid%slpx,SLPY=grid%slpy )658 & ,SLPX=grid%slpx,SLPY=grid%slpy,RESTART=config_flags%restart) 655 659 ENDIF 656 660 !!!!!!!!!!!!!!!!!!!!!!! -
trunk/MESOSCALE/LMD_MM_MARS/SRC/LES/modif_mars/module_initialize_les.F
r126 r674 340 340 grid%mars_cice(i,j)=0. 341 341 grid%mars_wice(i,j)=0. 342 !! >> Used for restarts only: 343 grid%mars_q2(i,:,j)=0. 344 grid%mars_fluxrad(i,j)=0. 345 grid%mars_wstar(i,j)=0. 346 grid%mars_tsurf(i,j)=0. 347 !! << 342 348 grid%slpx(i,j) = 0. 343 349 grid%slpy(i,j) = 0.
Note: See TracChangeset
for help on using the changeset viewer.