Changeset 705 for trunk/LMDZ.MARS/libf/phymars/callkeys.h

Timestamp:

Jun 14, 2012, 4:14:11 PM (12 years ago)

Author:

emillour

Message:

Mars GCM:

• Added possibility to run with a varying EUV cycle following real one. The flag solvarmod=1 triggers this behaviour, with companion flag solvaryear=## , where ## is the Mars Year (from 23 to 30). Setting solvarmod=0 reverts to 'old' behaviour, where there is a constant EUV forcing throughout the run, set by the "solarcondate" flag.
• Needs corresponding input data files ("param_v6" subdirectory of "EUV" subdirectory in "datadir").
• Added files jthermcalc_e107.F and param_read_e107.F in "aeronomars", modified files euvheat.F90, hrtherm.F, chemthermos.F90, param_v4.h and param_read.F in "aeronomars" and files inifis.F, physiq.F and callkeys.h in "phymars".

FGG

File:

• trunk/LMDZ.MARS/libf/phymars/callkeys.h (modified) (2 diffs)

trunk/LMDZ.MARS/libf/phymars/callkeys.h

@@ -16 +16 @@
      
       COMMON/callkeys_i/iradia,iaervar,iddist,ilwd,ilwb,ilwn,ncouche    &
-     &   ,dustbin,nltemodel,nircorr
+     &   ,dustbin,nltemodel,nircorr,solvarmod,solvaryear
      
       COMMON/callkeys_r/topdustref,solarcondate,semi,alphan,euveff,     &
@@ -47 +47 @@
       integer ilwn
       integer ncouche
+      integer solvarmod   ! model for solar EUV variation
+      integer solvaryear  ! mars year for realisticly varying solar EUV 
 
       logical rayleigh