Changeset 3619 for trunk/LMDZ.MARS/libf/phymars/vdifc_mod.F

Timestamp:

Feb 11, 2025, 4:42:38 PM (10 days ago)

Author:

jbclement

Message:

Mars PCM:
Addition of 'zdqsdif_ssi_tot", the total flux with sub-surface water ice, in the "startfi.nc" file. Only used under paleoclimate flag.
JBC

File:

• trunk/LMDZ.MARS/libf/phymars/vdifc_mod.F (modified) (2 diffs)

trunk/LMDZ.MARS/libf/phymars/vdifc_mod.F

@@ -34 +34 @@
      &                      subslope_dist,major_slope,iflat
       use microphys_h, only: To
-      use paleoclimate_mod, only: d_coef,h2o_ice_depth,lag_layer
+      use paleoclimate_mod, only: d_coef,h2o_ice_depth,lag_layer,
+     &                            zdqsdif_ssi_tot
       use comsoil_h, only: layer, mlayer,adsorption_soil
       use vdif_cd_mod, only: vdif_cd
@@ -243 +244 @@
       REAL zdqsdif_ssi_atm_tot(ngrid,nslope)   ! SSI - atmosphere flux (kg/m^2/s^-1) summed over all subtimestep
       REAL zdqsdif_ssi_frost_tot(ngrid,nslope) ! SSI - frost flux (kg/m^2/s^-1) summed over all subtimestep
-      REAL zdqsdif_ssi_tot(ngrid,nslope)       ! Total flux of the interactions with SSI kg/m^2/s^-1)
       
       REAL :: tol_frost = 2e-3 ! tolerence for frost thicnkess (kg/m^2) to avoid numerical noise effect