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

Timestamp:

Jun 9, 2020, 11:48:45 AM (4 years ago)

Author:

jvatant

Message:

In addition to r2297, for the n-layer aerosol scheme, enables to set the particle size effective variance with aeronlay_nueff in callphys.def.
--JVO

File:

• trunk/LMDZ.GENERIC/libf/phystd/inifis_mod.F90 (modified) (2 diffs)

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

@@ -704 +704 @@
      IF(.NOT.ALLOCATED(aeronlay_sclhght))     ALLOCATE(aeronlay_sclhght(nlayaero))     
      IF(.NOT.ALLOCATED(aeronlay_size))        ALLOCATE(aeronlay_size(nlayaero))     
+     IF(.NOT.ALLOCATED(aeronlay_nueff))       ALLOCATE(aeronlay_nueff(nlayaero))     
      IF(.NOT.ALLOCATED(optprop_aeronlay_ir))  ALLOCATE(optprop_aeronlay_ir(nlayaero))     
      IF(.NOT.ALLOCATED(optprop_aeronlay_vis)) ALLOCATE(optprop_aeronlay_vis(nlayaero))     
@@ -739 +740 @@
      write(*,*)" aeronlay_sclhght = ",aeronlay_sclhght
 
-     write(*,*)"Generic n-layer aerosols: particles sizes (m)"
+     write(*,*)"Generic n-layer aerosols: particles effective radii (m)"
      aeronlay_size=1.e-6
      call getin_p("aeronlay_size",aeronlay_size)
      write(*,*)" aeronlay_size = ",aeronlay_size
+
+     write(*,*)"Generic n-layer aerosols: particles radii effective variance"
+     aeronlay_nueff=0.1
+     call getin_p("aeronlay_nueff",aeronlay_nueff)
+     write(*,*)" aeronlay_nueff = ",aeronlay_nueff
 
      write(*,*)"Generic n-layer aerosols: VIS optical properties file"