Changeset 6150 for TOOLS/CMIP6_FORCING/AER_OPTICS/mie_6bands_pom_v4.f
- Timestamp:
- 05/26/22 20:21:20 (2 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
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
Note: See TracChangeset
for help on using the changeset viewer.