Changeset 6150 for TOOLS/CMIP6_FORCING/AER_OPTICS/mie_6bands_nitrate_v4.f

Timestamp:

05/26/22 20:21:20 (2 years ago)

Author:

oboucher

Message:

Correct some errors in the writing of ss_w and ss_g

File:

• TOOLS/CMIP6_FORCING/AER_OPTICS/mie_6bands_nitrate_v4.f (modified) (4 diffs)

TOOLS/CMIP6_FORCING/AER_OPTICS/mie_6bands_nitrate_v4.f

@@ -145 +145 @@
 c
        OPEN (unit=14, file='SEXT_nitrate_soluble_6bands.txt')
-       OPEN (unit=15, file='G_nitrate_soluble_6bands.txt')
-       OPEN (unit=16, file='SSA_nitrate_soluble_6bands.txt')
+       OPEN (unit=15, file='SSA_nitrate_soluble_6bands.txt')
+       OPEN (unit=16, file='G_nitrate_soluble_6bands.txt')
 c
        OPEN (unit=34, file='SEXT_nitrate_soluble_5wave.txt')
@@ -154 +154 @@
 c
        OPEN (unit=24, file='SEXT_nitrate_insoluble_6bands.txt')
-       OPEN (unit=25, file='G_nitrate_insoluble_6bands.txt')
-       OPEN (unit=26, file='SSA_nitrate_insoluble_6bands.txt')
+       OPEN (unit=25, file='SSA_nitrate_insoluble_6bands.txt')
+       OPEN (unit=26, file='G_nitrate_insoluble_6bands.txt')
 c
 c--initializing wavelengths
@@ -410 +410 @@
         WRITE(15,*) '  ! '//chmode(mode)
         DO k=1, NbandSW
-          WRITE(15,951) (ss_g(k,IRH),IRH=1,rh_int)
+          WRITE(15,951) (ss_w(k,IRH),IRH=1,rh_int)
         ENDDO
         WRITE(16,*) '  ! '//chmode(mode)
         DO k=1, NbandSW
-          WRITE(16,951) (ss_w(k,IRH),IRH=1,rh_int)
+          WRITE(16,951) (ss_g(k,IRH),IRH=1,rh_int)
         ENDDO
 c
@@ -434 +434 @@
         WRITE(24,953) (ss_a(k,1),k=1,NbandSW)
         WRITE(25,*) '  ! Nitrate insoluble'
-        WRITE(25,953) (ss_g(k,1),k=1,NbandSW)
+        WRITE(25,953) (ss_w(k,1),k=1,NbandSW)
         WRITE(26,*) '  ! Nitrate insoluble'
-        WRITE(26,953) (ss_w(k,1),k=1,NbandSW)
+        WRITE(26,953) (ss_g(k,1),k=1,NbandSW)
 c
         WRITE(35,*) '  ! extinction Nitrate insoluble'