Changeset 1647 for trunk/LMDZ.TITAN/libf/phytitan/aerosol_mod.F90

Timestamp:

Jan 11, 2017, 3:33:51 PM (8 years ago)

Author:

jvatant

Message:

+ Major clean of the new LMDZ.TITAN from too-generic options and routines (water, co2, ocean, surface type ...)
+ From this revision LMDZ.TITAN begins to be really separated from LMDZ.GENERIC
+ Partial desactivation of aerosols, only the dummy case is still enabled to keep the code running ( new aerosol routines to come in followings commits )

JVO

File:

• trunk/LMDZ.TITAN/libf/phytitan/aerosol_mod.F90 (modified) (1 diff)

trunk/LMDZ.TITAN/libf/phytitan/aerosol_mod.F90

@@ -8 +8 @@
 !                 corresponding aerosol was not activated in callphys.def
 !                 -- otherwise a value is given in iniaerosol
-      integer :: iaero_co2 = 0 
-      integer :: iaero_h2o = 0
-      integer :: iaero_dust = 0
-      integer :: iaero_h2so4 = 0
       logical :: noaero = .false.
 
 ! two-layer simple aerosol model
       integer :: iaero_back2lay = 0
-!$OMP THREADPRIVATE(iaero_co2,iaero_h2o,iaero_dust,iaero_h2so4,noaero,iaero_back2lay)
+!$OMP THREADPRIVATE(noaero,iaero_back2lay)
       
 !==================================================================