Changeset 4402 for LMDZ6/trunk/libf/phylmdiso

Timestamp:

Jan 28, 2023, 6:56:52 AM (2 years ago)

Author:

crisi

Message:

encore une correction dans phyiso_etat0 de isotopes_routines_mod.F90

File:

• LMDZ6/trunk/libf/phylmdiso/isotopes_routines_mod.F90 (modified) (2 diffs)

LMDZ6/trunk/libf/phylmdiso/isotopes_routines_mod.F90

@@ -16567 +16567 @@
       found = phyetat0iso_srf3(fxtevap,     "XTEVAP", "evaporation",  0.)
       found = phyetat0iso_get2(xtrain_fall, "xtrain_f", "xrain fall", 0.)
-      found = phyetat0iso_get2(xsnow_fall, "xtsnow_f", "xsnow fall", 0.)
+      found = phyetat0iso_get2(xtsnow_fall, "xtsnow_f", "xsnow fall", 0.)
       found = phyetat0iso_get3(xt_ancien,   "XTANCIEN",  "QANCIEN",   0.)
       found = phyetat0iso_get3(xtl_ancien,  "XTLANCIEN", "QLANCIEN",  0.)
@@ -16628 +16628 @@
          IF(index_zone(ixt) == izone_init) THEN
             DO i = 1, klon
-               fxtevap(ixt,i,1:nsrf) = fxtevap(iiso,i,1:nsrf)
+               fxtevap(ixt,i,1:nbsrf) = fxtevap(iiso,i,1:nbsrf)
                xtsnow_fall(ixt,i) = xtsnow_fall(iiso,i)
                xtrain_fall(ixt,i) = xtrain_fall(iiso,i)