Changeset 3786 for LMDZ6/trunk/libf/phylmd/Dust/read_dust.F

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/read_dust.F (modified) (2 diffs)

LMDZ6/trunk/libf/phylmd/Dust/read_dust.F

@@ -14 +14 @@
       real dust_ec_glo(klon_glo)
 c
-      real dust_nc(iip1,jjp1)
+c as      real dust_nc(iip1,jjp1)
       real dust_nc_glo(nbp_lon+1,nbp_lat)
       real rcode
@@ -59 +59 @@
 c--upside down + physical grid
 c
-c--OB=change jjp1 to 1 here
+c--OB=change jjp1 to 1 here ; 
+c----AS: OB's change is needed if lats N to S (90 to -90) in dust.nc
 !      dust_ec(1)=MAX(dust_nc(1,jjp1),0.0)
-      dust_ec(1)=MAX(dust_nc(1,nbp_lat),0.0)
+      dust_ec_glo(1)=MAX(dust_nc_glo(1,nbp_lat),0.0)
       ig=2
 !      DO j=2,jjm