Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed

  • TOOLS/CMIP6_FORCING/AER_OPTICS/mie_6bands_sulfate.f

    r3385 r6150  
    150150c 
    151151        OPEN (unit=14, file='SEXT_sulfate_6bands.txt') 
    152         OPEN (unit=15, file='G_sulfate_6bands.txt') 
    153         OPEN (unit=16, file='SSA_sulfate_6bands.txt') 
     152        OPEN (unit=15, file='SSA_sulfate_6bands.txt') 
     153        OPEN (unit=16, file='G_sulfate_6bands.txt') 
    154154        OPEN (unit=17, file='QEXT_sulfate_6bands.txt') 
    155155 
    … …  
    518518        WRITE(15,*) ' ! '//chmode(mode) 
    519519        DO k=1, NbandSW 
    520         WRITE(15,951) (ss_g(k,irh),irh=1,Nrh) 
     520        WRITE(15,951) (ss_w(k,irh),irh=1,Nrh) 
    521521        ENDDO 
    522522        WRITE(16,*) ' ! '//chmode(mode) 
    523523        DO k=1, NbandSW 
    524         WRITE(16,951) (ss_w(k,irh),irh=1,Nrh) 
     524        WRITE(16,951) (ss_g(k,irh),irh=1,Nrh) 
    525525        ENDDO 
    526526        DO k=1, NbandSW 
Note: See TracChangeset for help on using the changeset viewer.