Changeset 3973


Ignore:
Timestamp:
Nov 21, 2025, 3:07:05 PM (4 weeks ago)
Author:
tbertrand
Message:

PLUTO PCM:
Small fix when adapting N2 ice albedo to match surface pressure in the case of Triton (convention : positive declination in 1989)
TB

Location:
trunk/LMDZ.PLUTO/libf/phypluto
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.PLUTO/libf/phypluto/inifis_mod.F90

    r3959 r3973  
    679679     call getin_p("no_ch4frost",no_ch4frost)
    680680     if (is_master)write(*,*)trim(rname)//&
    681       "no_ch4frost = ",no_ch4frost
     681      " no_ch4frost = ",no_ch4frost
    682682
    683683     if (is_master)write(*,*)trim(rname)//&

  • trunk/LMDZ.PLUTO/libf/phypluto/physiq_mod.F90

    r3971 r3973  
    944944            if (triton) then
    945945               ! 1989 declination
    946                if (declin*180./pi.gt.-46..and.declin*180./pi.lt.-45.   &
     946               if (declin*180./pi.lt.46..and.declin*180./pi.gt.45.   &
    947947            .and.zday.gt.saveday+1000.   &
    948948            .and.declin.lt.savedeclin) then
Note: See TracChangeset for help on using the changeset viewer.