Changeset 4678 for LMDZ6/trunk/libf/phylmd/lmdz_thermcell_plume_6A.F90

Timestamp:

Sep 8, 2023, 1:55:07 AM (8 months ago)

Author:

fhourdin

Message:

Petits nettoyages sur les thermiques

File:

• LMDZ6/trunk/libf/phylmd/lmdz_thermcell_plume_6A.F90 (modified) (1 diff)

LMDZ6/trunk/libf/phylmd/lmdz_thermcell_plume_6A.F90

@@ -734 +734 @@
       REAL ztv(ngrid,nlay)
       REAL zthl(ngrid,nlay)
-      REAL po(ngrid,nlay)
+      REAL, INTENT(IN) :: po(ngrid,nlay)
       REAL zl(ngrid,nlay)
       REAL rhobarz(ngrid,nlay)