Changeset 4982 for LMDZ6/trunk/libf/phylmdiso/isotrac_routines_mod.F90

Timestamp:

Jun 15, 2024, 5:17:08 PM (3 months ago)

Author:

crisi

Message:

suppress isotope_params.def + update physiq_mod + proof of concept of 3rd dimension with reevap routine

File:

• LMDZ6/trunk/libf/phylmdiso/isotrac_routines_mod.F90 (modified) (1 diff)

LMDZ6/trunk/libf/phylmdiso/isotrac_routines_mod.F90

@@ -681 +681 @@
               Eqi_prime_cas(il)=Eqi_prime(cas(il)) &
      &           *(Pxtisup(ieau,cas(il))/Pqisup(cas(il)))
-              Eqi_cas(il)=Eqi(il) &
+              Eqi_cas(il)=Eqi(cas(il)) & ! corr bug Camille 15 juin 2024
      &           *(Pxtisup(ieau,cas(il))/Pqisup(cas(il)))
             else