Changeset 2464 for trunk/LMDZ.VENUS/libf/phyvenus/cloudvenus

Timestamp:

Feb 22, 2021, 4:43:11 PM (4 years ago)

Author:

slebonnois

Message:

SL: major update related to extension to 250 km. New EUV heating as used in Martian GCM, debug of a few routines, adding He, clean up, updating mmean regularly, modification of the order of processes, add the possibility to use Hedin composition in rad transfer

File:

• trunk/LMDZ.VENUS/libf/phyvenus/cloudvenus/new_cloud_sedim.F (modified) (1 diff)

trunk/LMDZ.VENUS/libf/phyvenus/cloudvenus/new_cloud_sedim.F

@@ -96 +96 @@
      $            + d_tr_chem(:,:,i_h2so4liq)*ptimestep
 
-      wgt_SA(:,:) = wh2so4(:,:)
+      wgt_SA(:,1:n_lev) = wh2so4(:,:)
 
 c     Init F_sed