Changeset 5202 for LMDZ6/branches/cirrus/libf/phylmdiso/isotrac_routines_mod.F90

Timestamp:

Sep 20, 2024, 12:32:04 PM (7 weeks ago)

Author:

Laurent Fairhead

Message:

Updating cirrus branch to trunk revision 5171

Location:

LMDZ6/branches/cirrus

Files:

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

LMDZ6/branches/cirrus/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