Changeset 3734 for trunk/LMDZ.MARS


Ignore:
Timestamp:
Apr 22, 2025, 6:26:18 PM (2 months ago)
Author:
jbclement
Message:

Mars PCM:
Addition of a warning message for the user to tell that tracers are set to 0 if no input profile is found in 1D.
JBC

Location:
trunk/LMDZ.MARS
Files:
4 edited

Legend:

Unmodified
Added
Removed
  • TabularUnified trunk/LMDZ.MARS/changelog.txt

    r3733 r3734  
    48054805== 22/04/2025 == JBC
    48064806Fixing a sanity check for the prescribtion of the atmospheric water profile in 1D and making comments more explicit.
     4807
     4808== 22/04/2025 == JBC
     4809Addition 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  
    817817    endif
    818818endif
    819 print*, 'looooooooooool', q(1,1,igcm_h2o_vap)
    820819
    821820END SUBROUTINE init_testphys1d
  • TabularUnified trunk/LMDZ.MARS/libf/phymars/dyn1d/read_profile_mod.F90

    r3026 r3734  
    127127    else
    128128      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"
    129132!---------------------------------------------------------------------------------------------------------------------!
    130133! 3.1.2.a. Some cases require a special initialization
  • TabularUnified trunk/LMDZ.MARS/libf/phymars/dyn1d/testphys1d.F90

    r3733 r3734  
    150150                     time,psurf,u,v,temp,ndt,ptif,pks,dttestphys,zqsat,dq,dqdyn,day0,day,gru,grv,w, &
    151151                     play,plev,latitude,longitude,cell_area,atm_wat_profile,atm_wat_tau)
    152 print*, 'yooooooooooooooooooo', q(1,1,igcm_h2o_vap)
     152
    153153! Write a "startfi" file
    154154! ----------------------
     
    163163                  totcloudfrac,wstar,watercap,perennial_co2ice)
    164164endif !(.not. therestartfi)
    165 print*, 'yooooooooooooooooooo', q(1,1,igcm_h2o_vap)
    166165
    167166!=======================================================================
Note: See TracChangeset for help on using the changeset viewer.