Changeset 1175 for trunk/LMDZ.GENERIC/libf

Timestamp:

Feb 3, 2014, 9:46:58 AM (11 years ago)

Author:

sglmd

Message:

Clean an unwanted addition (nh3 cloud) in the previous commit

Location:

trunk/LMDZ.GENERIC/libf/phystd

Files:

• callkeys.h (modified) (2 diffs)
• inifis.F (modified) (1 diff)

trunk/LMDZ.GENERIC/libf/phystd/callkeys.h

@@ -30 +30 @@
      &   , tracer, mass_redistrib, varactive, varfixed, satval          &
      &   , sedimentation,water,watercond,waterrain                      &
-     &   , aeroco2,aeroh2o,aeroh2so4,aeroback2lay, aeronh3              &
+     &   , aeroco2,aeroh2o,aeroh2so4,aeroback2lay                       &
      &   , aerofixco2,aerofixh2o                                        &
      &   , hydrology, sourceevol, icetstep, albedosnow                  &
@@ -69 +69 @@
       logical water,watercond,waterrain
       logical aeroco2,aeroh2o,aeroh2so4,aeroback2lay
-      logical aerofixco2,aerofixh2o, aeronh3
+      logical aerofixco2,aerofixh2o
       logical hydrology
       logical sourceevol

trunk/LMDZ.GENERIC/libf/phystd/inifis.F

@@ -453 +453 @@
          call getin("aeroback2lay",aeroback2lay)
          write(*,*)" aeroback2lay = ",aeroback2lay
-
-         write(*,*)"Radiatively active ammonia cloud?"
-         aeronh3=.false.     ! default value
-         call getin("aeronh3",aeronh3)
-         write(*,*)" aeronh3 = ",aeronh3
 
          write(*,*)"TWOLAY AEROSOL: total optical depth ",