Ignore:
Timestamp:
Mar 25, 2026, 11:19:02 AM (2 weeks ago)
Author:
jbclement
Message:

PEM:

  • Fix outputs "diagevo.nc" for 3D data.
  • Fix sign in computing exchanges due to adsorption/ice table and in balancing H2O flux from/into atmosphere.
  • Few cleanings.

JBC

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.COMMON/libf/evolution/stopping_crit.F90

    r4110 r4152  
    450450        S_atm_2_h2o = S_atm_2_h2o + delta_h2o_ads(i)*cell_area(i)
    451451    else
    452         S_h2o_2_atm = S_h2o_2_atm + delta_h2o_ads(i)*cell_area(i)
     452        S_h2o_2_atm = S_h2o_2_atm - delta_h2o_ads(i)*cell_area(i)
    453453    end if
    454454    if (delta_icetable(i) > 0._dp) then
    455455        S_atm_2_h2o = S_atm_2_h2o + delta_icetable(i)*cell_area(i)
    456456    else
    457         S_h2o_2_atm = S_h2o_2_atm + delta_icetable(i)*cell_area(i)
     457        S_h2o_2_atm = S_h2o_2_atm - delta_icetable(i)*cell_area(i)
    458458    end if
    459459    do islope = 1,nslope
Note: See TracChangeset for help on using the changeset viewer.