Changeset 6150 for TOOLS/CMIP6_FORCING
- Timestamp:
- 05/26/22 20:21:20 (2 years ago)
- Location:
- TOOLS/CMIP6_FORCING/AER_OPTICS
- Files:
-
- 5 edited
Legend:
- Unmodified
- Added
- Removed
-
TOOLS/CMIP6_FORCING/AER_OPTICS/mie_6bands_bc_v4.f
r3385 r6150 145 145 c 146 146 OPEN (unit=14, file='SEXT_bc_soluble_6bands.txt') 147 OPEN (unit=15, file=' G_bc_soluble_6bands.txt')148 OPEN (unit=16, file=' SSA_bc_soluble_6bands.txt')147 OPEN (unit=15, file='SSA_bc_soluble_6bands.txt') 148 OPEN (unit=16, file='G_bc_soluble_6bands.txt') 149 149 c 150 150 OPEN (unit=24, file='SEXT_bc_insoluble_6bands.txt') 151 OPEN (unit=25, file=' G_bc_insoluble_6bands.txt')152 OPEN (unit=26, file=' SSA_bc_insoluble_6bands.txt')151 OPEN (unit=25, file='SSA_bc_insoluble_6bands.txt') 152 OPEN (unit=26, file='G_bc_insoluble_6bands.txt') 153 153 c 154 154 OPEN (unit=34, file='SEXT_bc_soluble_5wave.txt') … … 409 409 WRITE(15,*) ' ! '//chmode(mode) 410 410 DO k=1, NbandSW 411 WRITE(15,951) (ss_ g(k,IRH),IRH=1,rh_int)411 WRITE(15,951) (ss_w(k,IRH),IRH=1,rh_int) 412 412 ENDDO 413 413 WRITE(16,*) ' ! '//chmode(mode) 414 414 DO k=1, NbandSW 415 WRITE(16,951) (ss_ w(k,IRH),IRH=1,rh_int)415 WRITE(16,951) (ss_g(k,IRH),IRH=1,rh_int) 416 416 ENDDO 417 417 c -
TOOLS/CMIP6_FORCING/AER_OPTICS/mie_6bands_nitrate_v4.f
r3385 r6150 145 145 c 146 146 OPEN (unit=14, file='SEXT_nitrate_soluble_6bands.txt') 147 OPEN (unit=15, file=' G_nitrate_soluble_6bands.txt')148 OPEN (unit=16, file=' SSA_nitrate_soluble_6bands.txt')147 OPEN (unit=15, file='SSA_nitrate_soluble_6bands.txt') 148 OPEN (unit=16, file='G_nitrate_soluble_6bands.txt') 149 149 c 150 150 OPEN (unit=34, file='SEXT_nitrate_soluble_5wave.txt') … … 154 154 c 155 155 OPEN (unit=24, file='SEXT_nitrate_insoluble_6bands.txt') 156 OPEN (unit=25, file=' G_nitrate_insoluble_6bands.txt')157 OPEN (unit=26, file=' SSA_nitrate_insoluble_6bands.txt')156 OPEN (unit=25, file='SSA_nitrate_insoluble_6bands.txt') 157 OPEN (unit=26, file='G_nitrate_insoluble_6bands.txt') 158 158 c 159 159 c--initializing wavelengths … … 410 410 WRITE(15,*) ' ! '//chmode(mode) 411 411 DO k=1, NbandSW 412 WRITE(15,951) (ss_ g(k,IRH),IRH=1,rh_int)412 WRITE(15,951) (ss_w(k,IRH),IRH=1,rh_int) 413 413 ENDDO 414 414 WRITE(16,*) ' ! '//chmode(mode) 415 415 DO k=1, NbandSW 416 WRITE(16,951) (ss_ w(k,IRH),IRH=1,rh_int)416 WRITE(16,951) (ss_g(k,IRH),IRH=1,rh_int) 417 417 ENDDO 418 418 c … … 434 434 WRITE(24,953) (ss_a(k,1),k=1,NbandSW) 435 435 WRITE(25,*) ' ! Nitrate insoluble' 436 WRITE(25,953) (ss_ g(k,1),k=1,NbandSW)436 WRITE(25,953) (ss_w(k,1),k=1,NbandSW) 437 437 WRITE(26,*) ' ! Nitrate insoluble' 438 WRITE(26,953) (ss_ w(k,1),k=1,NbandSW)438 WRITE(26,953) (ss_g(k,1),k=1,NbandSW) 439 439 c 440 440 WRITE(35,*) ' ! extinction Nitrate insoluble' -
TOOLS/CMIP6_FORCING/AER_OPTICS/mie_6bands_pom_v4.f
r3385 r6150 143 143 c 144 144 OPEN (unit=14, file='SEXT_pom_soluble_6bands.txt') 145 OPEN (unit=15, file=' G_pom_soluble_6bands.txt')146 OPEN (unit=16, file=' SSA_pom_soluble_6bands.txt')145 OPEN (unit=15, file='SSA_pom_soluble_6bands.txt') 146 OPEN (unit=16, file='G_pom_soluble_6bands.txt') 147 147 c 148 148 OPEN (unit=24, file='SEXT_pom_insoluble_6bands.txt') 149 OPEN (unit=25, file=' G_pom_insoluble_6bands.txt')150 OPEN (unit=26, file=' SSA_pom_insoluble_6bands.txt')149 OPEN (unit=25, file='SSA_pom_insoluble_6bands.txt') 150 OPEN (unit=26, file='G_pom_insoluble_6bands.txt') 151 151 c 152 152 OPEN (unit=34, file='SEXT_pom_soluble_5wave.txt') … … 407 407 WRITE(15,*) ' ! '//chmode(mode) 408 408 DO k=1, NbandSW 409 WRITE(15,951) (ss_ g(k,IRH),IRH=1,rh_int)409 WRITE(15,951) (ss_w(k,IRH),IRH=1,rh_int) 410 410 ENDDO 411 411 WRITE(16,*) ' ! '//chmode(mode) 412 412 DO k=1, NbandSW 413 WRITE(16,951) (ss_ w(k,IRH),IRH=1,rh_int)413 WRITE(16,951) (ss_g(k,IRH),IRH=1,rh_int) 414 414 ENDDO 415 415 c -
TOOLS/CMIP6_FORCING/AER_OPTICS/mie_6bands_seasalt_v4.f
r3385 r6150 149 149 c 150 150 OPEN (unit=14, file='SEXT_seasalt_6bands.txt') 151 OPEN (unit=15, file=' G_seasalt_6bands.txt')152 OPEN (unit=16, file=' SSA_seasalt_6bands.txt')151 OPEN (unit=15, file='SSA_seasalt_6bands.txt') 152 OPEN (unit=16, file='G_seasalt_6bands.txt') 153 153 OPEN (unit=24, file='SEXT_seasalt_5wave.txt') 154 154 OPEN (unit=25, file='SABS_seasalt_5wave.txt') … … 408 408 WRITE(15,*) ' ! '//chmode(mode) 409 409 DO k=1, NbandSW 410 WRITE(15,951) (ss_ g(k,IRH),IRH=1,rh_int)410 WRITE(15,951) (ss_w(k,IRH),IRH=1,rh_int) 411 411 ENDDO 412 412 WRITE(16,*) ' ! '//chmode(mode) 413 413 DO k=1, NbandSW 414 WRITE(16,951) (ss_ w(k,IRH),IRH=1,rh_int)414 WRITE(16,951) (ss_g(k,IRH),IRH=1,rh_int) 415 415 ENDDO 416 416 c -
TOOLS/CMIP6_FORCING/AER_OPTICS/mie_6bands_sulfate.f
r3385 r6150 150 150 c 151 151 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') 154 154 OPEN (unit=17, file='QEXT_sulfate_6bands.txt') 155 155 … … 518 518 WRITE(15,*) ' ! '//chmode(mode) 519 519 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) 521 521 ENDDO 522 522 WRITE(16,*) ' ! '//chmode(mode) 523 523 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) 525 525 ENDDO 526 526 DO k=1, NbandSW
Note: See TracChangeset
for help on using the changeset viewer.