Changeset 3585 for trunk/LMDZ.PLUTO/libf/phypluto/ch4cloud.F90

Timestamp:

Jan 20, 2025, 10:17:54 AM (12 days ago)

Author:

debatzbr

Message:

Connecting microphysics to radiative transfer + miscellaneous cleans

File:

• trunk/LMDZ.PLUTO/libf/phypluto/ch4cloud.F90 (modified) (2 diffs)

trunk/LMDZ.PLUTO/libf/phypluto/ch4cloud.F90

@@ -1 @@
-       SUBROUTINE ch4cloud(ngrid,nlay,naersize, ptimestep,  &
+       SUBROUTINE ch4cloud(ngrid,nlay,ptimestep,  &
                      pplev,pplay,pdpsrf,pzlev,pzlay,pt,pdt, &
                      pq,pdq,pdqcloud,pdqscloud,pdtcloud,  &
@@ -47 +47 @@
       real pq(ngrid,nlay,nq)     ! traceur (kg/kg)
       real pdq(ngrid,nlay,nq)    ! tendance avant condensation  (kg/kg.s-1)
-      integer naersize   ! nombre de traceurs radiativement actifs (=naerkind)
       integer nq         ! nombre de traceurs