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

Timestamp:

Oct 6, 2014, 6:31:06 PM (10 years ago)

Author:

tnavarro

Message:

New option dustiropacity in callphys.def to change the reference IR opacity of dust + New output dsodust (density-scaled opacity). Without the use of this option, nothing changes for the uninformed user.

File:

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

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

@@ -19 +19 @@
      
       COMMON/callkeys_r/topdustref,solarcondate,semi,alphan,euveff,     &
-     &   tke_heat_flux
+     &   tke_heat_flux,dustrefir
      
       LOGICAL callrad,calldifv,calladj,callcond,callsoil,               &
@@ -28 +28 @@
      &   ,calltherm,callrichsl,callslope,tituscap,callyamada4
 
+      COMMON/aeroutput/dustiropacity
 
       logical callemis
@@ -61 +62 @@
       integer nircorr
 
+      character(len=100) dustiropacity
+      real               dustrefir 
+  
       integer swrtype ! type of short wave (solar wavelength) radiative
       ! transfer to use 1: Fouquart 2: Toon.