Changeset 2825 for trunk/LMDZ.MARS/libf


Ignore:
Timestamp:
Nov 23, 2022, 10:48:05 AM (2 years ago)
Author:
romain.vande
Message:

Mars GCM:
Correct initialisation and outputting of variable to run the pcm and newstart in debug mode.
In topmons, zlaywmax=-1 by default, only positive values are correct.
RV

Location:
trunk/LMDZ.MARS/libf
Files:
3 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.MARS/libf/dynphy_lonlat/phymars/newstart.F

    r2673 r2825  
    360360      day_step=180 !?! Note: day_step is a common in "control.h"
    361361      CALL defrun_new( 99, .TRUE. )
     362      dtvr    = daysec/REAL(day_step)
    362363      CALL iniconst
    363364      CALL inigeom

  • trunk/LMDZ.MARS/libf/phymars/physiq_mod.F

    r2823 r2825  
    28352835     $               noms(iq) .ne. "ccn_number" .and.
    28362836     $               noms(iq) .ne. "ccnco2_mass" .and.
    2837      $               noms(iq) .ne. "ccnco2_number") then
     2837     $               noms(iq) .ne. "ccnco2_number" .and.
     2838     $               noms(iq) .ne. "stormdust_mass" .and.
     2839     $               noms(iq) .ne. "stormdust_number" .and.
     2840     $               noms(iq) .ne. "topdust_mass" .and.
     2841     $               noms(iq) .ne. "topdust_number") then
    28382842
    28392843!                   volume mixing ratio

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

    r2685 r2825  
    256256      masse_pbl(:)=0.
    257257      detrain_rate(:,:) = 0.
     258      zlaywmax(:)=-1.
    258259
    259260      !! Update the initial temperature
Note: See TracChangeset for help on using the changeset viewer.