Changeset 2678 for trunk/LMDZ.MARS/libf/phymars/callradite_mod.F

Timestamp:

May 17, 2022, 3:22:49 PM (3 years ago)

Author:

tpierron

Message:

Mars GCM :
Add incoming solar direct flux at surface in stats outputs for the MCD.
+ declare new variable "flux_1AU" for solar constant.
TP

File:

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

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

@@ -20 +20 @@
      &            iaer_dust_conrath,iaer_dust_doubleq,
      &            iaer_dust_submicron, iaer_h2o_ice, iaer_co2_ice,
-     &            iaer_stormdust_doubleq,iaer_topdust_doubleq
+     &            iaer_stormdust_doubleq,iaer_topdust_doubleq,flux_1AU
       use yomlw_h, only: gcp, nlaylte
       use comcstfi_h, only: g,cpp
@@ -559 +559 @@
 c       -------------------------------------------------------
 c          Mars solar constant (W m-2)
-c          1370 W.m-2 is the solar constant at 1 AU.
-           cste_mars=1370./(dist_sol*dist_sol)
+c          flux_1AU = 1370 W.m-2 is the solar constant at 1 AU.
+           cste_mars=flux_1AU/(dist_sol*dist_sol)
            zzdtsw(:,:) = 0.
            call swmain ( nd, nflev,