Changeset 2671 for trunk/LMDZ.GENERIC/libf

Timestamp:

Apr 26, 2022, 3:38:23 PM (3 years ago)

Author:

bclmd

Message:

adding tracer index when calling newsedim in callsedim.F

File:

• trunk/LMDZ.GENERIC/libf/phystd/callsedim.F (modified) (3 diffs)

trunk/LMDZ.GENERIC/libf/phystd/callsedim.F

@@ -47 +47 @@
       real,intent(out) :: pdqsed(ngrid,nlay,nq) ! tendency due to sedimentation (kg/kg.s-1)
       real,intent(out) :: pdqs_sed(ngrid,nq)    ! flux at surface (kg.m-2.s-1)
-      
+
 c   local:
 c   ------
@@ -122 +122 @@
              call newsedim(ngrid,nlay,ngrid*nlay,ptimestep,
      &            pplev,masse,epaisseur,zt,reffrad(1,1,iaero_h2o),
-     &            rho_q(iq),zqi(1,1,igcm_h2o_ice),wq)
+     &            rho_q(iq),zqi(1,1,igcm_h2o_ice),wq,iq)
 
 ! General Case
@@ -128 +128 @@
              call newsedim(ngrid,nlay,1,ptimestep,
      &            pplev,masse,epaisseur,zt,radius(iq),rho_q(iq),
-     &            zqi(1,1,iq),wq)
+     &            zqi(1,1,iq),wq,iq)
        endif