Changeset 4067 for trunk/LMDZ.MARS
- Timestamp:
- Feb 12, 2026, 12:20:33 PM (8 days ago)
- Location:
- trunk/LMDZ.MARS
- Files:
-
- 7 edited
-
changelog.txt (modified) (1 diff)
-
deftank/start1D.txt (modified) (1 diff)
-
libf/phymars/conf_phys.F (modified) (1 diff)
-
libf/phymars/dyn1d/init_testphys1d_mod.F90 (modified) (1 diff)
-
libf/phymars/dyn1d/testphys1d.F90 (modified) (1 diff)
-
libf/phymars/pbl_parameters_mod.F90 (modified) (1 diff)
-
libf/phymars/vdif_cd_mod.F90 (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
-
trunk/LMDZ.MARS/changelog.txt
r4066 r4067 5085 5085 == 12/02/2026 == JM 5086 5086 Raise an error if the deprecated flag 'albedo_h2o_ice' is used. 5087 5088 == 12/02/2026 == JBC 5089 Deletion of 'tsurf' in the information provided by "start1D.txt" since it is unused and unnecessary until now (see r4059). -
trunk/LMDZ.MARS/deftank/start1D.txt
r4059 r4067 1 1 ps 610.00000000000000 20.000000000000000 610.00000000000000 2 co2 0.950000000000 39175 0.95000000000039164 0.95000000000039175 0.95000000000039231 0.95000000000039309 0.95000000000039353 0.95000000000039375 0.950000000000396752 co2 0.95000000000098395 0.95000000000098384 0.95000000000098372 0.95000000000098350 0.95000000000098317 0.95000000000098250 0.95000000000098139 0.95000000000096607 3 3 h2o_ice 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 4 4 h2o_vap 1.0000000000000000E-004 1.0000000000000000E-004 1.0000000000000000E-004 1.0000000000000000E-004 1.0000000000000000E-004 1.0000000000000000E-004 1.0000000000000000E-004 1.0000000000000000E-004 5 dust_number 913125351788.64746 913125365078.18054 913125295343.43115 913124785417.02563 913122452893.30396 913114524797.47522 913094099717.80786 912625801560.152346 dust_mass 9.3724303384156145E-006 9.3724324256698849E-006 9.3724310282428060E-006 9.3724150148580197E-006 9.3723384239435314E-006 9.3720742972476765E-006 9.3713525730294407E-006 9.3562371092787578E-0067 u 7.0 198534410958411 7.0621834665631784 7.1729667254377460 7.3996797533678533 7.7683520173918144 8.2197283557876499 8.5820520428384093 9.97549691097735905 dust_number 395646896938.08582 395646897588.34167 395646880559.26398 395646763603.38641 395646233718.24774 395644438381.77985 395639879487.17493 395533221667.80347 6 dust_mass 5.0633377170513759E-007 5.0633379616440265E-007 5.0633373957613372E-007 5.0633327658808262E-007 5.0633113946082871E-007 5.0632384987902648E-007 5.0630479884082543E-007 5.0587814947827094E-007 7 u 7.0211127772694626 7.0633592953980111 7.1739232039889238 7.4001830571261955 7.7681175090195360 8.2186354583500094 8.5804249506193191 9.9753319860114722 8 8 v 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 9 teta 147.61966732092 046 168.56637639452077 168.64420969516397 168.85409996236143 169.33991992707061 170.25839106961627 171.68903267609639 173.49187212635630 186.221013303114749 teta 147.61966732092620 168.32439209589612 168.39975321402434 168.60350901845447 169.07335380926884 169.96674025364405 171.36037312305575 173.11884515476052 185.56558747665449 -
trunk/LMDZ.MARS/libf/phymars/conf_phys.F
r4066 r4067 969 969 call getin_p("albedo_h2o_cap",albedo_h2o_cap) 970 970 write(*,*) " albedo_h2o_cap = ",albedo_h2o_cap 971 write(*,*) "water fr ist albedo ?"971 write(*,*) "water frost albedo ?" 972 972 albedo_h2o_frost=0.35 973 973 call getin_p("albedo_h2o_frost",albedo_h2o_frost) -
trunk/LMDZ.MARS/libf/phymars/dyn1d/init_testphys1d_mod.F90
r4059 r4067 665 665 temp = teta(1:) 666 666 else 667 read(3,*) header, (t surf(1,j), j = 1,size(tsurf,2)), (temp(ilayer), ilayer = 1,nlayer)667 read(3,*) header, (temp(ilayer), ilayer = 1,nlayer) 668 668 close(3) 669 669 endif -
trunk/LMDZ.MARS/libf/phymars/dyn1d/testphys1d.F90
r4059 r4067 139 139 endif 140 140 endif 141 if (therestart1D .and. .not. therestartfi) error stop 'There is a "start1D.txt" but no "startfi.nc". There might be problems for the initialization (for example ''qsurf'' )!'141 if (therestart1D .and. .not. therestartfi) error stop 'There is a "start1D.txt" but no "startfi.nc". There might be problems for the initialization (for example ''qsurf'' and ''tsurf'')!' 142 142 143 143 call init_testphys1d('start1D.txt','startfi.nc',therestart1D,therestartfi,ngrid,nlayer,odpref,nq,q, & -
trunk/LMDZ.MARS/libf/phymars/pbl_parameters_mod.F90
r3726 r4067 149 149 150 150 REAL tsurf_v(ngrid) ! Virtual surface temperature, accounting for vapor flottability 151 REAL temp_v(ngrid) ! Potential virtual air temperature in the f rist layer, accounting for vapor flottability151 REAL temp_v(ngrid) ! Potential virtual air temperature in the first layer, accounting for vapor flottability 152 152 REAL mu_h2o ! Molecular mass of water vapor (kg/mol) 153 153 REAL tol_frost ! Tolerance to consider the effect of frost on the surface -
trunk/LMDZ.MARS/libf/phymars/vdif_cd_mod.F90
r3727 r4067 131 131 REAL z1,zcd0 ! Neutral roughness (m) and Cd/Ch coefficient when call richls is not called 132 132 REAL tsurf_v(ngrid,nslope) ! Virtual surface temperature, accounting for vapor flottability 133 REAL temp_v(ngrid) ! Potential virtual air temperature in the f rist layer, accounting for vapor flottability133 REAL temp_v(ngrid) ! Potential virtual air temperature in the first layer, accounting for vapor flottability 134 134 REAL mu_h2o ! Molecular mass of water vapor (kg/mol) 135 135 REAL tol_frost ! Tolerance to consider the effect of frost on the surface
Note: See TracChangeset
for help on using the changeset viewer.
