Changeset 1647 for trunk/LMDZ.TITAN/libf/phytitan/iniaerosol.F

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/iniaerosol.F (modified) (3 diffs)

trunk/LMDZ.TITAN/libf/phytitan/iniaerosol.F

@@ -4 +4 @@
       use radinc_h, only: naerkind
       use aerosol_mod
-      use callkeys_mod, only: aeroco2,aeroh2o,dusttau,aeroh2so4,
-     &          aeroback2lay
+      use callkeys_mod, only: aeroback2lay
 
       IMPLICIT NONE
@@ -22 +21 @@
 
       ia=0
-      if (aeroco2) then
-         ia=ia+1
-         iaero_co2=ia
-      endif
-      write(*,*) '--- CO2 aerosol = ', iaero_co2
- 
-      if (aeroh2o) then
-         ia=ia+1
-         iaero_h2o=ia
-      endif
-      write(*,*) '--- H2O aerosol = ', iaero_h2o
-
-      if (dusttau.gt.0) then
-         ia=ia+1
-         iaero_dust=ia
-      endif
-      write(*,*) '--- Dust aerosol = ', iaero_dust
-
-      if (aeroh2so4) then
-         ia=ia+1
-         iaero_h2so4=ia
-      endif
-      write(*,*) '--- H2SO4 aerosol = ', iaero_h2so4
-      
+       
       if (aeroback2lay) then
          ia=ia+1
@@ -59 +35 @@
 
       if (ia.eq.0) then  !For the zero aerosol case. 
+         noaero = .true.
          ia = 1
-         noaero = .true.
-         iaero_co2=ia
       endif