Changeset 3786 for LMDZ6/trunk/libf/phylmd/Dust/lsc_scav_spl.F90

Timestamp:

Nov 25, 2020, 10:29:26 AM (4 years ago)

Author:

asima

Message:

Makes LMDZ-SPLA work again.
Minimal - but not minor - modifications required by going from LMDZ5 to LMDZ6.
For the time being, SPLA input files (including correction coefficient files for aerosols emissions) are only available for the 128x88 grid zoomed on N Africa, used by Jeronimo Escribano and Binta Diallo.

File:

• LMDZ6/trunk/libf/phylmd/Dust/lsc_scav_spl.F90 (modified) (1 diff)

LMDZ6/trunk/libf/phylmd/Dust/lsc_scav_spl.F90

@@ -179 +179 @@
 
 !  pressure and size of the layer
-  DO k=klev-1, 1, -1
+  DO k=klev, 1, -1
    DO i=1, klon 
      zrho(i,k)=pplay(i,k)/t(i,k)/RD