Changeset 3246 for trunk

Timestamp:

Feb 29, 2024, 4:05:51 PM (9 months ago)

Author:

llange

Message:

Mars PCM
Cleaning a small mistake introduced in the last copy (wrong copy past)
LL

File:

• trunk/LMDZ.MARS/libf/phymars/soilwater.F90 (modified) (1 diff)

trunk/LMDZ.MARS/libf/phymars/soilwater.F90

@@ -404 +404 @@
 !                              elseif (choice_ads.eq.2) then  ! par rapport \E0 valeur experimentale de reference
 !                                    !                                         Kd(ig, ik) = Kd_ref * exp(-enthalpy_ads / 8.314 *
-!                                    !     &           SSI_1D/ice_lat55_fb/                              (1. / ptsoil(ig, nsoil - 4) - 1. / Tref))
+!                                    !     &                                       (1. / ptsoil(ig, nsoil - 4) - 1. / Tref))
 !                                    !                                         Ka(ig, ik) = rho_soil(ig, ik) * Ka_ref *
 !                                    !     &                                         sqrt(ptsoil(ig, nsoil - 4) / Tref) / nref!