Changeset 7506 for branches/ORCHIDEE_2_2


Ignore:
Timestamp:
2022-03-03T14:47:10+01:00 (3 years ago)
Author:
josefine.ghattas
Message:

Correction on so_capa_ice. See ticket #809

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/ORCHIDEE_2_2/ORCHIDEE/src_sechiba/thermosoil.f90

    r7337 r7506  
    488488 
    489489    ! Calculate so_capa_ice 
    490     so_capa_ice(:) = so_capa_dry + mcs(:)*capa_ice*rho_ice  
     490    so_capa_ice(:) = capa_ice*rho_ice  
    491491    IF (printlev>=2) WRITE(numout,*) 'Calculation of so_capa_ice(:)=', so_capa_ice(:),' and capa_ice=',capa_ice 
    492492     
Note: See TracChangeset for help on using the changeset viewer.