Changeset 3734 for trunk/LMDZ.MARS
- Timestamp:
- Apr 22, 2025, 6:26:18 PM (2 months ago)
- Location:
- trunk/LMDZ.MARS
- Files:
-
- 4 edited
Legend:
- Unmodified
- Added
- Removed
-
TabularUnified trunk/LMDZ.MARS/changelog.txt ¶
r3733 r3734 4805 4805 == 22/04/2025 == JBC 4806 4806 Fixing a sanity check for the prescribtion of the atmospheric water profile in 1D and making comments more explicit. 4807 4808 == 22/04/2025 == JBC 4809 Addition of a warning message for the user to tell that tracers are set to 0 if no input profile is found in 1D. -
TabularUnified trunk/LMDZ.MARS/libf/phymars/dyn1d/init_testphys1d_mod.F90 ¶
r3733 r3734 817 817 endif 818 818 endif 819 print*, 'looooooooooool', q(1,1,igcm_h2o_vap)820 819 821 820 END SUBROUTINE init_testphys1d -
TabularUnified trunk/LMDZ.MARS/libf/phymars/dyn1d/read_profile_mod.F90 ¶
r3026 r3734 127 127 else 128 128 write(*,*)"File profile_"//trim(name_tracer(iq))//" not found!" 129 write(*,*)"q(traceur) and qsurf(traceur) are set to 0! Except:" 130 write(*,*)" - q(co2) = 0.95" 131 write(*,*)" - q(hdo) = q(h2o)*2*155.76e-6*5" 129 132 !---------------------------------------------------------------------------------------------------------------------! 130 133 ! 3.1.2.a. Some cases require a special initialization -
TabularUnified trunk/LMDZ.MARS/libf/phymars/dyn1d/testphys1d.F90 ¶
r3733 r3734 150 150 time,psurf,u,v,temp,ndt,ptif,pks,dttestphys,zqsat,dq,dqdyn,day0,day,gru,grv,w, & 151 151 play,plev,latitude,longitude,cell_area,atm_wat_profile,atm_wat_tau) 152 print*, 'yooooooooooooooooooo', q(1,1,igcm_h2o_vap) 152 153 153 ! Write a "startfi" file 154 154 ! ---------------------- … … 163 163 totcloudfrac,wstar,watercap,perennial_co2ice) 164 164 endif !(.not. therestartfi) 165 print*, 'yooooooooooooooooooo', q(1,1,igcm_h2o_vap)166 165 167 166 !=======================================================================
Note: See TracChangeset
for help on using the changeset viewer.