Changeset 2309 for trunk/LMDZ.GENERIC/libf/phystd/inifis_mod.F90

Timestamp:

May 5, 2020, 4:50:30 PM (5 years ago)

Author:

jvatant

Message:

Fix a nasty copy-paste bug from r2297 in n-layer aerosol scheme
--JVO

File:

• trunk/LMDZ.GENERIC/libf/phystd/inifis_mod.F90 (modified) (1 diff)

trunk/LMDZ.GENERIC/libf/phystd/inifis_mod.F90

@@ -735 +735 @@
 
      write(*,*)"Generic n-layer aerosols: (if choice=2) Scale height / atm. scale height"
-     aeronlay_ptop=0.2
+     aeronlay_sclhght=0.2
      call getin_p("aeronlay_sclhght",aeronlay_sclhght)
      write(*,*)" aeronlay_sclhght = ",aeronlay_sclhght