Ignore:
Timestamp:
Jan 12, 2023, 12:14:38 AM (23 months ago)
Author:
llange
Message:

PEM
H2O adsorption is now computed. Total mass of H2o adsorbded is written in the restart_PEM.
+Minor fixes and edit
LL & RV

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r2857 r2863  
    102102  enddo
    103103 
    104 
    105   real_coefficient=negative_part/pos_tend
    106   if(pos_tend.eq.0) real_coefficient = 0.
    107 
     104 
     105  if(pos_tend.eq.0) then
     106   real_coefficient = 0.
     107  else
     108   real_coefficient = negative_part/pos_tend
     109  endif
    108110  do i=1,ngrid
    109111    do islope=1, nslope
Note: See TracChangeset for help on using the changeset viewer.