Changeset 2878 for trunk/LMDZ.MARS/libf


Ignore:
Timestamp:
Jan 25, 2023, 11:39:35 AM (22 months ago)
Author:
llange
Message:

Mars PCM 1D

Following r-2827, fixing bugs

  1. igcm_co2 is now initialized
  2. remove the abort_gcm in read_profile: The qsurf readed at this line

is not useful at it is initialized later

LL

Location:
trunk/LMDZ.MARS/libf/phymars/dyn1d
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.MARS/libf/phymars/dyn1d/read_profile_mod.F90

    r2827 r2878  
    3939
    4040  use infotrac, only: tname
    41 
     41  use tracer_mod, only: igcm_co2
    4242  implicit none
    4343!---------------------------------------------------------------------------------------------------------------------!
    … …  
    110110    if (ierr.eq.0) then
    111111      read(91,*)qsurf(iq)
    112       if (trim(name_tracer(iq)) == 'co2' .and. qsurf(iq).ne.0) then
    113         call abort_physic("read_profile","The value of co2 profile on surface must be 0. It's value must be specified in the run.def as co2ice=XX",1)
     112      if (trim(name_tracer(iq)) == 'co2') then
     113         igcm_co2 = iq
    114114      endif
    115115      do ilayer = 1, nb_layer

  • trunk/LMDZ.MARS/libf/phymars/dyn1d/testphys1d.F

    r2829 r2878  
    546546c  CO2 ice on the surface
    547547c  -------------------
    548       print *, "RVVV: igcm_co2", igcm_co2
     548
    549549      qsurf(igcm_co2)=0.E+0 ! default value for co2ice
    550550      PRINT *,'Initial CO2 ice on the surface (kg.m-2)'
Note: See TracChangeset for help on using the changeset viewer.