Changeset 1212 for trunk/MESOSCALE
- Timestamp:
- Mar 24, 2014, 9:46:50 AM (11 years ago)
- Location:
- trunk/MESOSCALE/LMD_MM_MARS
- Files:
-
- 7 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/call_meso_inifis1.inc
r1038 r1212 5 5 6 6 7 CALL inifis(ngrid mx,nlayer, &7 CALL inifis(ngrid,nlayer, & 8 8 #ifdef NEWPHYS 9 9 nq, & -
trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/call_meso_inifis2.inc
r1038 r1212 8 8 9 9 CASE(1) 10 CALL inifis(ngrid mx,nlayer, &10 CALL inifis(ngrid,nlayer, & 11 11 #ifdef NEWPHYS 12 12 nq, & … … 35 35 36 36 CASE(2) 37 CALL d2_inifis(ngrid mx,nlayer, &37 CALL d2_inifis(ngrid,nlayer, & 38 38 #ifdef NEWPHYS 39 39 nq, & -
trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/call_meso_inifis3.inc
r1038 r1212 8 8 9 9 CASE(1) 10 CALL inifis(ngrid mx,nlayer, &10 CALL inifis(ngrid,nlayer, & 11 11 #ifdef NEWPHYS 12 12 nq, & … … 34 34 35 35 CASE(2) 36 CALL d2_inifis(ngrid mx,nlayer, &36 CALL d2_inifis(ngrid,nlayer, & 37 37 #ifdef NEWPHYS 38 38 nq, & … … 60 60 61 61 CASE(3) 62 CALL d3_inifis(ngrid mx,nlayer, &62 CALL d3_inifis(ngrid,nlayer, & 63 63 #ifdef NEWPHYS 64 64 nq, & -
trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/call_meso_inifis4.inc
r1038 r1212 8 8 9 9 CASE(1) 10 CALL inifis(ngrid mx,nlayer, &10 CALL inifis(ngrid,nlayer, & 11 11 #ifdef NEWPHYS 12 12 nq, & … … 34 34 35 35 CASE(2) 36 CALL d2_inifis(ngrid mx,nlayer, &36 CALL d2_inifis(ngrid,nlayer, & 37 37 #ifdef NEWPHYS 38 38 nq, & … … 60 60 61 61 CASE(3) 62 CALL d3_inifis(ngrid mx,nlayer, &62 CALL d3_inifis(ngrid,nlayer, & 63 63 #ifdef NEWPHYS 64 64 nq, & … … 86 86 87 87 CASE(4) 88 CALL d4_inifis(ngrid mx,nlayer, &88 CALL d4_inifis(ngrid,nlayer, & 89 89 #ifdef NEWPHYS 90 90 nq, & -
trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/call_meso_inifis5.inc
r1095 r1212 8 8 9 9 CASE(1) 10 CALL inifis(ngrid mx,nlayer, &10 CALL inifis(ngrid,nlayer, & 11 11 #ifdef NEWPHYS 12 12 nq, & … … 34 34 35 35 CASE(2) 36 CALL d2_inifis(ngrid mx,nlayer, &36 CALL d2_inifis(ngrid,nlayer, & 37 37 #ifdef NEWPHYS 38 38 nq, & … … 60 60 61 61 CASE(3) 62 CALL d3_inifis(ngrid mx,nlayer, &62 CALL d3_inifis(ngrid,nlayer, & 63 63 #ifdef NEWPHYS 64 64 nq, & … … 86 86 87 87 CASE(4) 88 CALL d4_inifis(ngrid mx,nlayer, &88 CALL d4_inifis(ngrid,nlayer, & 89 89 #ifdef NEWPHYS 90 90 nq, & … … 112 112 113 113 CASE(5) 114 CALL d5_inifis(ngrid mx,nlayer, &114 CALL d5_inifis(ngrid,nlayer, & 115 115 #ifdef NEWPHYS 116 116 nq, & -
trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/phys/module_lmd_driver.F
r1128 r1212 388 388 wappel_phys = RADT 389 389 ptimestep = dt*wappel_phys ! physical timestep (s) 390 ngrid=(ipe-ips+1)*(jpe-jps+1) ! size of the horizontal grid : ngridmx = wiim * wjjm390 ngrid=(ipe-ips+1)*(jpe-jps+1) ! size of the horizontal grid 391 391 nlayer = kpe-kps+1 ! number of vertical layers: nlayermx 392 392 nsoil = NUM_SOIL_LAYERS ! number of soil layers: nsoilmx -
trunk/MESOSCALE/LMD_MM_MARS/makemeso
r1060 r1212 134 134 echo Grid points in longitude ? ; read lon 135 135 echo Grid points in latitude ? ; read lat 136 # ngrid: now dynamically set in newphys 03/2014 137 if [[ "${phys}" == "newphys_" ]] 138 then 139 lon=999 140 lat=999 141 numproc=999 142 fi 136 143 echo Number of vertical levels ? ; read level 137 144 fi … … 174 181 else 175 182 echo Number of tracers ? ; read tra 176 # tracers: no dynamically set in newphys 09/2013183 # tracers: now dynamically set in newphys 09/2013 177 184 if [[ "${phys}" == "newphys_" ]] 178 185 then … … 243 250 #ln -sf meso_callkeys_newphys.h meso_callkeys.h 244 251 cd Registry ; Registry.bash ; cd .. 252 253 # remove files adapted to parallel GCM and useless for mesoscale 254 cd mars_lmd 255 cd libf/phymars 256 \rm tabfi* soil_settings* phyetat0* phyredem* iostart* writediagfi* mkstat* writediagsoil* eofdump* wstats* inistats* mod_* 257 mv ../dyn3d/control_mod.F90 . 258 cd ../.. 259 cd .. 260 245 261 else 246 262 if [[ "${config}" == "les" ]] … … 594 610 cd mars_lmd/ 595 611 612 if [[ "${phys}" == "newphys_" ]] 613 then 614 divx=1 615 divy=1 616 else 596 617 # required size 597 618 #---------------- … … 611 632 *) echo not yet supported ; exit ;; 612 633 esac 634 fi 613 635 physx=$(expr ${lon} - 1) 614 636 restex=$(expr ${physx} \% ${divx}) … … 629 651 if [[ "${phys}" == "newphys_" ]] 630 652 then 631 soilsize=18 ## nouvelle physique 653 soilsize=18 ## nouvelle physique. ne sert a rien ici. voir comsoil. 632 654 else 633 655 soilsize=10
Note: See TracChangeset
for help on using the changeset viewer.