Ignore:
Timestamp:
Apr 7, 2021, 3:16:53 PM (4 years ago)
Author:
cmathe
Message:

Mars GCM:
co2_ice as scatterer in radiative transfert. Need co2clouds and

activeco2ice .eqv. True. Files involved:

  • aeropacity_mod.F
  • callradite_mod.F
  • physiq_mod.F
  • updatereffrad_mod.F
  • suaer.F90
  • determine co2_ice density from temperature. Used in riceco2 computation.

Files involved:

  • co2cloud.F90
  • improvedco2clouds_mod.F90
  • updaterad.F90
  • updatereffrad_mod.F
  • co2condens_mod4micro.F: variable initialization
  • initracer.F: add nuiceco2_ref = 0.2
  • phyredem.F: remove co2_ice from qsurf since co2_ice => co2ice
  • watercloud_mod.F: tiny typo

CM

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.MARS/libf/phymars/phyredem.F90

    r2417 r2494  
    302302      endif ! of if (txt.eq."hdo_vap")
    303303
     304      ! co2_ice has been added to co2ice in co2condens4micro
     305      if (txt.eq."co2_ice") then
     306        write(*,*)"physdem1: skipping co2_ice tracer"
     307        cycle
     308      end if     
     309
    304310      call put_field(trim(txt),"tracer on surface",qsurf(:,iq),time)
    305311    enddo
    … …  
    317323     call put_field("dv_nonoro_gwd","Meridional wind tendency due to GW",dv_nonoro_gwd,time)
    318324  endif
     325
    319326  ! Close file
    320327  call close_restartphy
Note: See TracChangeset for help on using the changeset viewer.