Changeset 4899 for LMDZ6/trunk/libf/phylmdiso

Timestamp:

Apr 12, 2024, 3:51:18 PM (8 months ago)

Author:

Laurent Fairhead

Message:

Follow-up to revision r4889

File:

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

LMDZ6/trunk/libf/phylmdiso/phys_local_var_mod.F90

@@ -950 +950 @@
       ALLOCATE(JrNt(klon))
       ALLOCATE(dthmin(klon), evap(klon), snowerosion(klon), fder(klon), plcl(klon), plfc(klon))
-      ALLOCATE(prw(klon), prlw(klon), prsw(klon), prbsw(klon), zustar(klon), zu10m(klon), zv10m(klon), rh2m(klon))
+      ALLOCATE(prw(klon), prlw(klon), prsw(klon), prbsw(klon), water_budget(klon), zustar(klon), zu10m(klon), zv10m(klon), rh2m(klon))
       ALLOCATE(s_lcl(klon))
       ALLOCATE(s_pblh(klon), s_pblt(klon), s_therm(klon))
@@ -1339 +1339 @@
       DEALLOCATE(JrNt)
       DEALLOCATE(dthmin, evap, snowerosion, fder, plcl, plfc)
-      DEALLOCATE(prw, prlw, prsw, prbsw, zustar, zu10m, zv10m, rh2m, s_lcl)
+      DEALLOCATE(prw, prlw, prsw, prbsw, water_budget, zustar, zu10m, zv10m, rh2m, s_lcl)
       DEALLOCATE(s_pblh, s_pblt, s_therm)
 !