Changeset 2678 for trunk/LMDZ.MARS/libf/phymars/dimradmars_mod.F90

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/dimradmars_mod.F90 (modified) (1 diff)

trunk/LMDZ.MARS/libf/phymars/dimradmars_mod.F90

@@ -107 +107 @@
   integer,parameter :: nabsmx=2
   integer,parameter :: nt_pademx=19
+  
+! Solar flux constant at 1AU for slope scheme
+!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+
+  real, parameter :: flux_1AU = 1370. ! solar constant (W.m-2)
 
 !!