Juan 19/04/2018: add ECRAD modification & new ecrad-1.0.1_mnh directory
authorJuan Escobar <escj@aero.obs-mip.fr>
Thu, 19 Apr 2018 14:18:29 +0000 (16:18 +0200)
committerJuan Escobar <escj@aero.obs-mip.fr>
Thu, 19 Apr 2018 14:18:29 +0000 (16:18 +0200)
197 files changed:
MY_RUN/KTEST/004_Reunion/003_mesonh/EXSEG1.nam.src [moved from MY_RUN/KTEST/004_Reunion/003_mesonh/EXSEG1.nam with 93% similarity]
MY_RUN/KTEST/004_Reunion/003_mesonh/run_mesonh_xyz
MY_RUN/KTEST/007_16janvier/008_run2/EXSEG1.nam.src
MY_RUN/KTEST/007_16janvier/008_run2/EXSEG2.nam.src
MY_RUN/KTEST/007_16janvier/008_run2/run_mesonh_xyz
MY_RUN/KTEST/007_16janvier/009_diag/run_diag_xyz
bin/spll
conf/profile_mesonh.ihm
src/LIB/RAD/ECMWF_RAD/lwc.f90
src/LIB/RAD/ECMWF_RAD/lwu.f90
src/LIB/RAD/ECMWF_RAD/olwc.f90
src/LIB/RAD/ECMWF_RAD/olwu.f90
src/LIB/RAD/ECMWF_RAD/olwv.f90
src/LIB/RAD/ECMWF_RAD/oparrrtm.f90 [moved from src/LIB/RAD/ECMWF_RAD/parrrtm.f90 with 98% similarity]
src/LIB/RAD/ECMWF_RAD/orrtm_cmbgb1.f90 [moved from src/LIB/RAD/ECMWF_RAD/rrtm_cmbgb1.f90 with 85% similarity]
src/LIB/RAD/ECMWF_RAD/orrtm_cmbgb10.f90 [moved from src/LIB/RAD/ECMWF_RAD/rrtm_cmbgb10.f90 with 80% similarity]
src/LIB/RAD/ECMWF_RAD/orrtm_cmbgb11.f90 [moved from src/LIB/RAD/ECMWF_RAD/rrtm_cmbgb11.f90 with 82% similarity]
src/LIB/RAD/ECMWF_RAD/orrtm_cmbgb12.f90 [moved from src/LIB/RAD/ECMWF_RAD/rrtm_cmbgb12.f90 with 82% similarity]
src/LIB/RAD/ECMWF_RAD/orrtm_cmbgb13.f90 [moved from src/LIB/RAD/ECMWF_RAD/rrtm_cmbgb13.f90 with 82% similarity]
src/LIB/RAD/ECMWF_RAD/orrtm_cmbgb14.f90 [moved from src/LIB/RAD/ECMWF_RAD/rrtm_cmbgb14.f90 with 82% similarity]
src/LIB/RAD/ECMWF_RAD/orrtm_cmbgb15.f90 [moved from src/LIB/RAD/ECMWF_RAD/rrtm_cmbgb15.f90 with 82% similarity]
src/LIB/RAD/ECMWF_RAD/orrtm_cmbgb16.f90 [moved from src/LIB/RAD/ECMWF_RAD/rrtm_cmbgb16.f90 with 82% similarity]
src/LIB/RAD/ECMWF_RAD/orrtm_cmbgb2.f90 [moved from src/LIB/RAD/ECMWF_RAD/rrtm_cmbgb2.f90 with 85% similarity]
src/LIB/RAD/ECMWF_RAD/orrtm_cmbgb3.f90 [moved from src/LIB/RAD/ECMWF_RAD/rrtm_cmbgb3.f90 with 87% similarity]
src/LIB/RAD/ECMWF_RAD/orrtm_cmbgb4.f90 [moved from src/LIB/RAD/ECMWF_RAD/rrtm_cmbgb4.f90 with 85% similarity]
src/LIB/RAD/ECMWF_RAD/orrtm_cmbgb5.f90 [moved from src/LIB/RAD/ECMWF_RAD/rrtm_cmbgb5.f90 with 87% similarity]
src/LIB/RAD/ECMWF_RAD/orrtm_cmbgb6.f90 [moved from src/LIB/RAD/ECMWF_RAD/rrtm_cmbgb6.f90 with 83% similarity]
src/LIB/RAD/ECMWF_RAD/orrtm_cmbgb7.f90 [moved from src/LIB/RAD/ECMWF_RAD/rrtm_cmbgb7.f90 with 85% similarity]
src/LIB/RAD/ECMWF_RAD/orrtm_cmbgb8.f90 [moved from src/LIB/RAD/ECMWF_RAD/rrtm_cmbgb8.f90 with 86% similarity]
src/LIB/RAD/ECMWF_RAD/orrtm_cmbgb9.f90 [moved from src/LIB/RAD/ECMWF_RAD/rrtm_cmbgb9.f90 with 86% similarity]
src/LIB/RAD/ECMWF_RAD/orrtm_ecrt_140gp.f90 [moved from src/LIB/RAD/ECMWF_RAD/rrtm_ecrt_140gp.f90 with 97% similarity]
src/LIB/RAD/ECMWF_RAD/orrtm_gasabs1a_140gp.f90 [moved from src/LIB/RAD/ECMWF_RAD/rrtm_gasabs1a_140gp.f90 with 78% similarity]
src/LIB/RAD/ECMWF_RAD/orrtm_init_140gp.f90 [moved from src/LIB/RAD/ECMWF_RAD/rrtm_init_140gp.f90 with 67% similarity]
src/LIB/RAD/ECMWF_RAD/orrtm_kgb1.f90 [moved from src/LIB/RAD/ECMWF_RAD/rrtm_kgb1.f90 with 99% similarity]
src/LIB/RAD/ECMWF_RAD/orrtm_kgb10.f90 [moved from src/LIB/RAD/ECMWF_RAD/rrtm_kgb10.f90 with 99% similarity]
src/LIB/RAD/ECMWF_RAD/orrtm_kgb11.f90 [moved from src/LIB/RAD/ECMWF_RAD/rrtm_kgb11.f90 with 99% similarity]
src/LIB/RAD/ECMWF_RAD/orrtm_kgb12.f90 [moved from src/LIB/RAD/ECMWF_RAD/rrtm_kgb12.f90 with 99% similarity]
src/LIB/RAD/ECMWF_RAD/orrtm_kgb13.f90 [moved from src/LIB/RAD/ECMWF_RAD/rrtm_kgb13.f90 with 99% similarity]
src/LIB/RAD/ECMWF_RAD/orrtm_kgb14.f90 [moved from src/LIB/RAD/ECMWF_RAD/rrtm_kgb14.f90 with 99% similarity]
src/LIB/RAD/ECMWF_RAD/orrtm_kgb15.f90 [moved from src/LIB/RAD/ECMWF_RAD/rrtm_kgb15.f90 with 99% similarity]
src/LIB/RAD/ECMWF_RAD/orrtm_kgb16.f90 [moved from src/LIB/RAD/ECMWF_RAD/rrtm_kgb16.f90 with 99% similarity]
src/LIB/RAD/ECMWF_RAD/orrtm_kgb2.f90 [moved from src/LIB/RAD/ECMWF_RAD/rrtm_kgb2.f90 with 99% similarity]
src/LIB/RAD/ECMWF_RAD/orrtm_kgb3.f90 [moved from src/LIB/RAD/ECMWF_RAD/rrtm_kgb3.f90 with 83% similarity]
src/LIB/RAD/ECMWF_RAD/orrtm_kgb4.f90 [moved from src/LIB/RAD/ECMWF_RAD/rrtm_kgb4.f90 with 83% similarity]
src/LIB/RAD/ECMWF_RAD/orrtm_kgb5.f90 [moved from src/LIB/RAD/ECMWF_RAD/rrtm_kgb5.f90 with 84% similarity]
src/LIB/RAD/ECMWF_RAD/orrtm_kgb6.f90 [moved from src/LIB/RAD/ECMWF_RAD/rrtm_kgb6.f90 with 99% similarity]
src/LIB/RAD/ECMWF_RAD/orrtm_kgb7.f90 [moved from src/LIB/RAD/ECMWF_RAD/rrtm_kgb7.f90 with 99% similarity]
src/LIB/RAD/ECMWF_RAD/orrtm_kgb8.f90 [moved from src/LIB/RAD/ECMWF_RAD/rrtm_kgb8.f90 with 99% similarity]
src/LIB/RAD/ECMWF_RAD/orrtm_kgb9.f90 [moved from src/LIB/RAD/ECMWF_RAD/rrtm_kgb9.f90 with 99% similarity]
src/LIB/RAD/ECMWF_RAD/orrtm_setcoef_140gp.f90 [moved from src/LIB/RAD/ECMWF_RAD/rrtm_setcoef_140gp.f90 with 97% similarity]
src/LIB/RAD/ECMWF_RAD/orrtm_taumol1.f90 [moved from src/LIB/RAD/ECMWF_RAD/rrtm_taumol1.f90 with 98% similarity]
src/LIB/RAD/ECMWF_RAD/orrtm_taumol10.f90 [moved from src/LIB/RAD/ECMWF_RAD/rrtm_taumol10.f90 with 90% similarity]
src/LIB/RAD/ECMWF_RAD/orrtm_taumol11.f90 [moved from src/LIB/RAD/ECMWF_RAD/rrtm_taumol11.f90 with 92% similarity]
src/LIB/RAD/ECMWF_RAD/orrtm_taumol12.f90 [moved from src/LIB/RAD/ECMWF_RAD/rrtm_taumol12.f90 with 94% similarity]
src/LIB/RAD/ECMWF_RAD/orrtm_taumol13.f90 [moved from src/LIB/RAD/ECMWF_RAD/rrtm_taumol13.f90 with 94% similarity]
src/LIB/RAD/ECMWF_RAD/orrtm_taumol14.f90 [moved from src/LIB/RAD/ECMWF_RAD/rrtm_taumol14.f90 with 93% similarity]
src/LIB/RAD/ECMWF_RAD/orrtm_taumol15.f90 [moved from src/LIB/RAD/ECMWF_RAD/rrtm_taumol15.f90 with 95% similarity]
src/LIB/RAD/ECMWF_RAD/orrtm_taumol16.f90 [moved from src/LIB/RAD/ECMWF_RAD/rrtm_taumol16.f90 with 95% similarity]
src/LIB/RAD/ECMWF_RAD/orrtm_taumol2.f90 [moved from src/LIB/RAD/ECMWF_RAD/rrtm_taumol2.f90 with 94% similarity]
src/LIB/RAD/ECMWF_RAD/orrtm_taumol3.f90 [moved from src/LIB/RAD/ECMWF_RAD/rrtm_taumol3.f90 with 96% similarity]
src/LIB/RAD/ECMWF_RAD/orrtm_taumol4.f90 [moved from src/LIB/RAD/ECMWF_RAD/rrtm_taumol4.f90 with 96% similarity]
src/LIB/RAD/ECMWF_RAD/orrtm_taumol5.f90 [moved from src/LIB/RAD/ECMWF_RAD/rrtm_taumol5.f90 with 95% similarity]
src/LIB/RAD/ECMWF_RAD/orrtm_taumol6.f90 [moved from src/LIB/RAD/ECMWF_RAD/rrtm_taumol6.f90 with 92% similarity]
src/LIB/RAD/ECMWF_RAD/orrtm_taumol7.f90 [moved from src/LIB/RAD/ECMWF_RAD/rrtm_taumol7.f90 with 94% similarity]
src/LIB/RAD/ECMWF_RAD/orrtm_taumol8.f90 [moved from src/LIB/RAD/ECMWF_RAD/rrtm_taumol8.f90 with 94% similarity]
src/LIB/RAD/ECMWF_RAD/orrtm_taumol9.f90 [moved from src/LIB/RAD/ECMWF_RAD/rrtm_taumol9.f90 with 96% similarity]
src/LIB/RAD/ECMWF_RAD/osurdi.f90 [moved from src/LIB/RAD/ECMWF_RAD/surdi.f90 with 97% similarity]
src/LIB/RAD/ECMWF_RAD/osurrtab.f90 [moved from src/LIB/RAD/ECMWF_RAD/surrtab.f90 with 92% similarity]
src/LIB/RAD/ECMWF_RAD/osurrtftr.f90 [moved from src/LIB/RAD/ECMWF_RAD/surrtftr.f90 with 97% similarity]
src/LIB/RAD/ECMWF_RAD/osurrtpk.f90 [moved from src/LIB/RAD/ECMWF_RAD/surrtpk.f90 with 99% similarity]
src/LIB/RAD/ECMWF_RAD/osurrtrf.f90 [moved from src/LIB/RAD/ECMWF_RAD/surrtrf.f90 with 97% similarity]
src/LIB/RAD/ECMWF_RAD/oyoerad.f90 [moved from src/LIB/RAD/ECMWF_RAD/yoerad.f90 with 99% similarity]
src/LIB/RAD/ECMWF_RAD/oyoerdi.f90 [moved from src/LIB/RAD/ECMWF_RAD/yoerdi.f90 with 98% similarity]
src/LIB/RAD/ECMWF_RAD/oyoerrta1.f90 [moved from src/LIB/RAD/ECMWF_RAD/yoerrta1.f90 with 97% similarity]
src/LIB/RAD/ECMWF_RAD/oyoerrta10.f90 [moved from src/LIB/RAD/ECMWF_RAD/yoerrta10.f90 with 97% similarity]
src/LIB/RAD/ECMWF_RAD/oyoerrta11.f90 [moved from src/LIB/RAD/ECMWF_RAD/yoerrta11.f90 with 97% similarity]
src/LIB/RAD/ECMWF_RAD/oyoerrta12.f90 [moved from src/LIB/RAD/ECMWF_RAD/yoerrta12.f90 with 97% similarity]
src/LIB/RAD/ECMWF_RAD/oyoerrta13.f90 [moved from src/LIB/RAD/ECMWF_RAD/yoerrta13.f90 with 96% similarity]
src/LIB/RAD/ECMWF_RAD/oyoerrta14.f90 [moved from src/LIB/RAD/ECMWF_RAD/yoerrta14.f90 with 97% similarity]
src/LIB/RAD/ECMWF_RAD/oyoerrta15.f90 [moved from src/LIB/RAD/ECMWF_RAD/yoerrta15.f90 with 96% similarity]
src/LIB/RAD/ECMWF_RAD/oyoerrta16.f90 [moved from src/LIB/RAD/ECMWF_RAD/yoerrta16.f90 with 96% similarity]
src/LIB/RAD/ECMWF_RAD/oyoerrta2.f90 [moved from src/LIB/RAD/ECMWF_RAD/yoerrta2.f90 with 97% similarity]
src/LIB/RAD/ECMWF_RAD/oyoerrta3.f90 [moved from src/LIB/RAD/ECMWF_RAD/yoerrta3.f90 with 97% similarity]
src/LIB/RAD/ECMWF_RAD/oyoerrta4.f90 [moved from src/LIB/RAD/ECMWF_RAD/yoerrta4.f90 with 97% similarity]
src/LIB/RAD/ECMWF_RAD/oyoerrta5.f90 [moved from src/LIB/RAD/ECMWF_RAD/yoerrta5.f90 with 97% similarity]
src/LIB/RAD/ECMWF_RAD/oyoerrta6.f90 [moved from src/LIB/RAD/ECMWF_RAD/yoerrta6.f90 with 97% similarity]
src/LIB/RAD/ECMWF_RAD/oyoerrta7.f90 [moved from src/LIB/RAD/ECMWF_RAD/yoerrta7.f90 with 97% similarity]
src/LIB/RAD/ECMWF_RAD/oyoerrta8.f90 [moved from src/LIB/RAD/ECMWF_RAD/yoerrta8.f90 with 98% similarity]
src/LIB/RAD/ECMWF_RAD/oyoerrta9.f90 [moved from src/LIB/RAD/ECMWF_RAD/yoerrta9.f90 with 97% similarity]
src/LIB/RAD/ECMWF_RAD/oyoerrtab.f90 [moved from src/LIB/RAD/ECMWF_RAD/yoerrtab.f90 with 96% similarity]
src/LIB/RAD/ECMWF_RAD/oyoerrtbg2.f90 [moved from src/LIB/RAD/ECMWF_RAD/yoerrtbg2.f90 with 94% similarity]
src/LIB/RAD/ECMWF_RAD/oyoerrtftr.f90 [moved from src/LIB/RAD/ECMWF_RAD/yoerrtftr.f90 with 95% similarity]
src/LIB/RAD/ECMWF_RAD/oyoerrto1.f90 [moved from src/LIB/RAD/ECMWF_RAD/yoerrto1.f90 with 97% similarity]
src/LIB/RAD/ECMWF_RAD/oyoerrto10.f90 [moved from src/LIB/RAD/ECMWF_RAD/yoerrto10.f90 with 96% similarity]
src/LIB/RAD/ECMWF_RAD/oyoerrto11.f90 [moved from src/LIB/RAD/ECMWF_RAD/yoerrto11.f90 with 96% similarity]
src/LIB/RAD/ECMWF_RAD/oyoerrto12.f90 [moved from src/LIB/RAD/ECMWF_RAD/yoerrto12.f90 with 96% similarity]
src/LIB/RAD/ECMWF_RAD/oyoerrto13.f90 [moved from src/LIB/RAD/ECMWF_RAD/yoerrto13.f90 with 96% similarity]
src/LIB/RAD/ECMWF_RAD/oyoerrto14.f90 [moved from src/LIB/RAD/ECMWF_RAD/yoerrto14.f90 with 96% similarity]
src/LIB/RAD/ECMWF_RAD/oyoerrto15.f90 [moved from src/LIB/RAD/ECMWF_RAD/yoerrto15.f90 with 96% similarity]
src/LIB/RAD/ECMWF_RAD/oyoerrto16.f90 [moved from src/LIB/RAD/ECMWF_RAD/yoerrto16.f90 with 96% similarity]
src/LIB/RAD/ECMWF_RAD/oyoerrto2.f90 [moved from src/LIB/RAD/ECMWF_RAD/yoerrto2.f90 with 97% similarity]
src/LIB/RAD/ECMWF_RAD/oyoerrto3.f90 [moved from src/LIB/RAD/ECMWF_RAD/yoerrto3.f90 with 97% similarity]
src/LIB/RAD/ECMWF_RAD/oyoerrto4.f90 [moved from src/LIB/RAD/ECMWF_RAD/yoerrto4.f90 with 97% similarity]
src/LIB/RAD/ECMWF_RAD/oyoerrto5.f90 [moved from src/LIB/RAD/ECMWF_RAD/yoerrto5.f90 with 97% similarity]
src/LIB/RAD/ECMWF_RAD/oyoerrto6.f90 [moved from src/LIB/RAD/ECMWF_RAD/yoerrto6.f90 with 97% similarity]
src/LIB/RAD/ECMWF_RAD/oyoerrto7.f90 [moved from src/LIB/RAD/ECMWF_RAD/yoerrto7.f90 with 97% similarity]
src/LIB/RAD/ECMWF_RAD/oyoerrto8.f90 [moved from src/LIB/RAD/ECMWF_RAD/yoerrto8.f90 with 97% similarity]
src/LIB/RAD/ECMWF_RAD/oyoerrto9.f90 [moved from src/LIB/RAD/ECMWF_RAD/yoerrto9.f90 with 97% similarity]
src/LIB/RAD/ECMWF_RAD/oyoerrtrf.f90 [moved from src/LIB/RAD/ECMWF_RAD/yoerrtrf.f90 with 96% similarity]
src/LIB/RAD/ECMWF_RAD/oyoerrtrwt.f90 [moved from src/LIB/RAD/ECMWF_RAD/yoerrtrwt.f90 with 95% similarity]
src/LIB/RAD/ECMWF_RAD/oyoerrtwn.f90 [moved from src/LIB/RAD/ECMWF_RAD/yoerrtwn.f90 with 97% similarity]
src/LIB/RAD/ECMWF_RAD/oyoesw.f90 [moved from src/LIB/RAD/ECMWF_RAD/yoesw.f90 with 99% similarity]
src/LIB/RAD/ECMWF_RAD/oyomcst.f90 [moved from src/LIB/RAD/ECMWF_RAD/yomcst.f90 with 97% similarity]
src/LIB/RAD/ECMWF_RAD/oyomlun.f90 [moved from src/LIB/RAD/ECMWF_RAD/yomlun.f90 with 99% similarity]
src/LIB/RAD/ECMWF_RAD/oyomrip.f90 [moved from src/LIB/RAD/ECMWF_RAD/yomrip.f90 with 98% similarity]
src/LIB/RAD/ECMWF_RAD/rad1Driv_MACLATMOSPH_60LEVELS_ICRCCM3.f90
src/LIB/RAD/ECMWF_RAD/radaca.f90
src/LIB/RAD/ECMWF_RAD/radlsw.f90
src/LIB/RAD/ECMWF_RAD/radozc.f90
src/LIB/RAD/ECMWF_RAD/rrtm_kgb3_a.f90
src/LIB/RAD/ECMWF_RAD/rrtm_kgb3_b.f90
src/LIB/RAD/ECMWF_RAD/rrtm_kgb3_c.f90
src/LIB/RAD/ECMWF_RAD/rrtm_kgb4_a.f90
src/LIB/RAD/ECMWF_RAD/rrtm_kgb4_b.f90
src/LIB/RAD/ECMWF_RAD/rrtm_kgb4_c.f90
src/LIB/RAD/ECMWF_RAD/rrtm_kgb5_a.f90
src/LIB/RAD/ECMWF_RAD/rrtm_kgb5_b.f90
src/LIB/RAD/ECMWF_RAD/rrtm_kgb5_c.f90
src/LIB/RAD/ECMWF_RAD/rrtm_rrtm_140gp.f90
src/LIB/RAD/ECMWF_RAD/rrtm_rtrn1a_140gp.f90
src/LIB/RAD/ECMWF_RAD/satur.f90
src/LIB/RAD/ECMWF_RAD/suaerl.f90
src/LIB/RAD/ECMWF_RAD/suaersn.f90
src/LIB/RAD/ECMWF_RAD/sucldp.f90
src/LIB/RAD/ECMWF_RAD/suclopn.f90
src/LIB/RAD/ECMWF_RAD/sucst.f90
src/LIB/RAD/ECMWF_RAD/suecaec.f90
src/LIB/RAD/ECMWF_RAD/suecozc.f90
src/LIB/RAD/ECMWF_RAD/suovlp.f90
src/LIB/RAD/ECMWF_RAD/susw.f90
src/LIB/RAD/ECMWF_RAD/suswn.f90
src/LIB/RAD/ECMWF_RAD/sw.f90
src/LIB/RAD/ECMWF_RAD/sw1s.f90
src/LIB/RAD/ECMWF_RAD/sw2s.f90
src/LIB/RAD/ECMWF_RAD/swclr.f90
src/LIB/RAD/ECMWF_RAD/swde.f90
src/LIB/RAD/ECMWF_RAD/swni.f90
src/LIB/RAD/ECMWF_RAD/swr.f90
src/LIB/RAD/ECMWF_RAD/swtt.f90
src/LIB/RAD/ECMWF_RAD/swtt1.f90
src/LIB/RAD/ECMWF_RAD/swu.f90
src/LIB/RAD/ECMWF_RAD/swuvo3.f90
src/LIB/RAD/ECMWF_RAD/yoerrtam.f90
src/LIB/RAD/ecrad-1.0.1_mnh/ifs/cloud_overlap_decorr_len.F90 [new file with mode: 0644]
src/LIB/RAD/ecrad-1.0.1_mnh/ifs/cos_sza.F90 [new file with mode: 0644]
src/LIB/RAD/ecrad-1.0.1_mnh/ifs/ice_effective_radius.F90 [new file with mode: 0644]
src/LIB/RAD/ecrad-1.0.1_mnh/ifs/liquid_effective_radius.F90 [new file with mode: 0644]
src/LIB/RAD/ecrad-1.0.1_mnh/ifs/radiation_scheme.F90 [new file with mode: 0644]
src/LIB/RAD/ecrad-1.0.1_mnh/ifs/radiation_setup.F90 [new file with mode: 0644]
src/LIB/RAD/ecrad-1.0.1_mnh/ifsaux/yomcst.F90 [new file with mode: 0644]
src/LIB/RAD/ecrad-1.0.1_mnh/ifsaux/yomlun.F90 [new file with mode: 0644]
src/LIB/RAD/ecrad-1.0.1_mnh/ifsrrtm/rrtm_kgb1.F90 [new file with mode: 0644]
src/LIB/RAD/ecrad-1.0.1_mnh/ifsrrtm/srtm_gas_optical_depth.F90 [new file with mode: 0644]
src/LIB/RAD/ecrad-1.0.1_mnh/ifsrrtm/srtm_kgb16.F90 [new file with mode: 0644]
src/MNH/default_desfmn.f90
src/MNH/ecmwf_radiation_vers2.f90
src/MNH/ecrad_interface.f90 [new file with mode: 0644]
src/MNH/end_diag_in_run.f90
src/MNH/goto_model_wrapper.f90
src/MNH/ground_paramn.f90
src/MNH/ini_diag_in_run.f90
src/MNH/ini_lw_setup.f90 [new file with mode: 0644]
src/MNH/ini_modeln.f90
src/MNH/ini_radconf.f90
src/MNH/ini_radiations_ecmwf.f90
src/MNH/ini_radiations_ecrad.f90 [new file with mode: 0644]
src/MNH/ini_surf_rad.f90
src/MNH/ini_sw_setup.f90
src/MNH/init_ground_paramn.f90
src/MNH/modd_diag_in_run.f90
src/MNH/modd_param_ecradn.f90 [new file with mode: 0644]
src/MNH/modd_radiationsn.f90
src/MNH/modd_type_station.f90
src/MNH/modn_param_ecradn.f90 [new file with mode: 0644]
src/MNH/phys_paramn.f90
src/MNH/radiations.f90
src/MNH/read_desfmn.f90
src/MNH/read_exsegn.f90
src/MNH/reset_exseg.f90
src/MNH/stationn.f90
src/MNH/test_nam_var.f90
src/MNH/write_desfmn.f90
src/MNH/write_lfifm1_for_diag_supp.f90
src/MNH/write_lfin.f90
src/MNH/write_stationn.f90
src/Makefile.MESONH.mk
src/configure

            LHORELAX_UVWTH = T, LHORELAX_RV = T, LVE_RELAX = T,
            NRIMX = 5, NRIMY = 5, XRIMKMAX = 0.01, XT4DIFU = 500. /
 &NAM_ADVn  CUVW_ADV_SCHEME = "WENO_K" , CMET_ADV_SCHEME = "PPM_01",NWENO_ORDER=5,CTEMP_SCHEME='RK53' /
-&NAM_PARAMn  CTURB = "TKEL", CRAD = "FIXE",
+&NAM_PARAMn  CTURB = "TKEL", 
+             CRAD = "ECMW",
+             !CRAD = "ECRA",
+             !CRAD = "FIXE",
              CCLOUD = "NONE", CDCONV = "NONE" /
 &NAM_LBCn  CLBCX = 2*"OPEN", CLBCY = 2*"OPEN" /
 &NAM_TURBn CTURBLEN = "BL89", CTURBDIM = "1DIM", LSUBG_COND = F /
index 1b94aa9..06d7a8c 100755 (executable)
@@ -1,10 +1,21 @@
+#!/bin/bash
 #MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier
 #MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence
 #MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt  
 #MNH_LIC for details. version 1.
 set -x
 set -e
+
 ln -fs ../002_prep_ideal_case/REUNION_IDEA.*??? .
 ln -sf ../001_prep_pgd/REUNION_PGD_1km5.* .
+
+if [ "x${MNH_ECRAD}" != "x" ]  ; then
+ln -sf ${SRC_MESONH}/src/LIB/RAD/ecrad-1.0.1/data/RAD* .
+ln -sf ${SRC_MESONH}/src/LIB/RAD/ecrad-1.0.1/data/*.nc .
+sed -e's/ECMW/ECRA/g' EXSEG1.nam.src > EXSEG1.nam
+else
+cp EXSEG1.nam.src EXSEG1.nam
+fi
+
 rm -f REUNI.1.* OUT*
 time ${MPIRUN} MESONH${XYZ}
index 6878792..1125986 100644 (file)
@@ -9,7 +9,9 @@
            LHORELAX_UVWTH = T, LHORELAX_RV = T, LVE_RELAX = T,
            NRIMX = 5, NRIMY = 5, XRIMKMAX = 0.0083, XT4DIFU = 5000. /
 &NAM_ADVn  CUVW_ADV_SCHEME="CEN4TH",CMET_ADV_SCHEME = "PPM_01", CSV_ADV_SCHEME = "PPM_01" CTEMP_SCHEME="LEFR"/
-&NAM_PARAMn  CCLOUD = "KESS", CTURB = "TKEL", CRAD = "ECMW",
+&NAM_PARAMn  CCLOUD = "KESS", CTURB = "TKEL", 
+             CRAD = "ECMW",
+             !CRAD = "ECRA",
              CDCONV = "KAFR",CSCONV="KAFR" /
 &NAM_PARAM_RADn  XDTRAD = 3600., XDTRAD_CLONLY = 3600., NRAD_COLNBR = 400 /
 &NAM_PARAM_KAFRn XDTCONV = 300., NICE = 1 LREFRESH_ALL = T,LDOWN = T /
index 9588726..d081e1b 100644 (file)
@@ -4,7 +4,10 @@
            LHORELAX_RS= F, LHORELAX_RI= F, LHORELAX_RG= F, LHORELAX_TKE= F,
            NRIMX = 0, NRIMY = 0, LVE_RELAX = T, XT4DIFU = 1500. /
 &NAM_ADVn CUVW_ADV_SCHEME="CEN4TH",CMET_ADV_SCHEME = "PPM_01", CSV_ADV_SCHEME = "PPM_01" CTEMP_SCHEME="LEFR"/
-&NAM_PARAMn  CCLOUD = "KESS", CTURB = "TKEL", CRAD = "ECMW", CDCONV = "KAFR" /
+&NAM_PARAMn  CCLOUD = "KESS", CTURB = "TKEL", 
+              CRAD = "ECMW", 
+              !CRAD = "ECRA",
+              CDCONV = "KAFR" /
 &NAM_PARAM_RADn  XDTRAD = 1800., XDTRAD_CLONLY = 1800., LCLEAR_SKY = F,
              NRAD_COLNBR = 400 /
 &NAM_PARAM_KAFRn XDTCONV = 300., NICE = 1, LREFRESH_ALL = T,
index 8282d87..c7df321 100755 (executable)
@@ -5,11 +5,23 @@
 #MNH_LIC for details. version 1.
 set -x
 set -e
+
 rm -f 16JAN* OUT*  EXSEG?.nam 
-cp EXSEG1.nam.src EXSEG1.nam
-cp EXSEG2.nam.src EXSEG2.nam
+
 ln -sf  ../004_arp2lfi/16JAN_06_MNH.*??? .
 ln -sf  ../006_preal/16JAN_06_MNH2.*??? .
 ln -sf  ../003_nest/16JAN98_36km.neste1.* .
 ln -sf  ../003_nest/16JAN98_9km.neste1.* .
+
+if [ "x${MNH_ECRAD}" != "x" ]  ; then
+ln -sf ${SRC_MESONH}/src/LIB/RAD/ecrad-1.0.1/data/RAD* .
+ln -sf ${SRC_MESONH}/src/LIB/RAD/ecrad-1.0.1/data/*.nc .
+sed -e's/ECMW/ECRA/g' EXSEG1.nam.src > EXSEG1.nam
+sed -e's/ECMW/ECRA/g' EXSEG2.nam.src > EXSEG2.nam
+else
+cp EXSEG1.nam.src EXSEG1.nam
+cp EXSEG2.nam.src EXSEG2.nam
+fi
+
+
 time ${MPIRUN} MESONH${XYZ}
index 53e94f7..8d84060 100755 (executable)
@@ -1,4 +1,4 @@
-#!/bin/sh
+#!/bin/bash
 #MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier
 #MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence
 #MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt  
@@ -13,6 +13,11 @@ ln -sf  ../008_run2/16JAN.1.12B18.001.*??? .
 ln -sf ../003_nest/16JAN98_9km.neste1.* .
 ln -sf ../003_nest/16JAN98_36km.neste1.* .
 
+if [ "x${MNH_ECRAD}" != "x" ]  ; then
+ln -sf ${SRC_MESONH}/src/LIB/RAD/ecrad-1.0.1/data/RAD* .
+ln -sf ${SRC_MESONH}/src/LIB/RAD/ecrad-1.0.1/data/*.nc .
+fi
+
 cp  DIAG1.nam1 DIAG1.nam
 time ${MPIRUN} DIAG${XYZ}
 #exit
index 9d6da84..c8b0ada 100755 (executable)
--- a/bin/spll
+++ b/bin/spll
@@ -25,7 +25,8 @@ ch_f77.fx90|nband_model.fx90|BASIC.f90|mode_tmat.f90|\
 ini_cmfshall.f90|mode_double_double.f90|mode_fgau.f90|\
 extern_usersurc_ll.f90|\
 extern_userio.f90|fmreadwrit.f90|fm_read_ll.f90|poub.f90|\
-mode_glt.*.F90"
+mode_glt.*.F90|\
+rrtm_.*.F90|srtm_.*.F90"
 #
 
 if [ "$SUF" = "f" ]
index a4f0976..e5d3c74 100755 (executable)
@@ -104,6 +104,11 @@ export MNH_FOREFIRE=${MNH_FOREFIRE}
 export MNH_RTTOV=${MNH_RTTOV}
 export VER_RTTOV=${VER_RTTOV}
 #
+#  ECRAD
+#
+export MNH_ECRAD=${MNH_ECRAD}
+export VERSION_ECRAD=${VERSION_ECRAD}
+#
 #  OASIS
 #
 export VER_OASIS=${VER_OASIS}
@@ -122,7 +127,7 @@ export VERSION_NCL=${VERSION_NCL}
 ##########################################################
 ##########################################################
 #
-export XYZ="-\${ARCH}\${MNH_REAL:+\${MNH_REAL}}I\${MNH_INT}-\${VERSION_XYZ}\${VER_USER:+-\${VER_USER}}-\${VER_MPI}-\${OPTLEVEL}"
+export XYZ="-\${ARCH}\${MNH_REAL:+\${MNH_REAL}}I\${MNH_INT}-\${VERSION_XYZ}\${MNH_ECRAD:+-ECRAD}\${VER_USER:+-\${VER_USER}}-\${VER_MPI}-\${OPTLEVEL}"
 #[ "x\${VER_USER}" != "x" ] && export XYZ="\${XYZ}-\${VER_USER}"
 # PATH to find tools like "makegen, etc ..."
 export BIN_TOOLS=${BIN_TOOLS}
index 77ace7e..c10e3b1 100644 (file)
@@ -65,8 +65,8 @@ SUBROUTINE LWC &
 
 #include "tsmbkind.h"
 
-USE YOERAD   , ONLY : NOVLP
-USE YOERDI   , ONLY : REPCLC
+USE OYOERAD   , ONLY : NOVLP
+USE OYOERDI   , ONLY : REPCLC
 USE YOEOVLP  , ONLY : RA1OVLP
 
 
index 1bd4478..adbf214 100644 (file)
@@ -67,12 +67,12 @@ SUBROUTINE LWU &
 
 #include "tsmbkind.h"
 
-USE YOMCST   , ONLY : RG
-USE YOESW    , ONLY : RAER
+USE OYOMCST   , ONLY : RG
+USE OYOESW    , ONLY : RAER
 USE YOELW    , ONLY : NSIL     ,NUA      ,NG1      ,NG1P1    ,&
             &ALWT     ,BLWT     ,RO3T     ,RT1      ,TREF     ,&
             &RVGCO2   ,RVGH2O   ,RVGO3
-USE YOERDI   , ONLY : RCH4     ,RN2O     ,RCFC11   ,RCFC12
+USE OYOERDI   , ONLY : RCH4     ,RN2O     ,RCFC11   ,RCFC12
 USE YOERDU   , ONLY : R10E     ,REPSCO   ,REPSCQ
 
 
index 03a43d5..2e8f0f7 100644 (file)
@@ -67,8 +67,8 @@ SUBROUTINE OLWC ( KIDIA,KFDIA,KLON,KLEV &
 
 #include "tsmbkind.h"
 
-USE YOERAD   , ONLY : NOVLP
-USE YOERDI   , ONLY : REPCLC
+USE OYOERAD   , ONLY : NOVLP
+USE OYOERDI   , ONLY : REPCLC
 USE YOEDBUG  , ONLY : LDEBUG
 
 
index f5ff733..e6d2a9a 100644 (file)
@@ -62,12 +62,12 @@ SUBROUTINE OLWU ( KIDIA, KFDIA, KLON, KLEV &
 
 #include "tsmbkind.h"
 
-USE YOMCST   , ONLY : RG
-USE YOESW    , ONLY : RAER
+USE OYOMCST   , ONLY : RG
+USE OYOESW    , ONLY : RAER
 USE YOEOLW   , ONLY : NISP     ,NUA      ,NG1      ,NG1P1    ,&
             &AT       ,BT       ,RT1      ,TREF     ,OCT      ,&
             &RVGCO2   ,RVGH2O   ,RVGO3
-USE YOERDI   , ONLY : RCH4     ,RN2O     ,RCFC11   ,RCFC12
+USE OYOERDI   , ONLY : RCH4     ,RN2O     ,RCFC11   ,RCFC12
 USE YOERDU   , ONLY : R10E     ,REPSCO   ,REPSCQ
 USE YOEDBUG  , ONLY : LDEBUG
 
index 1afcb28..100e51c 100644 (file)
@@ -85,7 +85,6 @@ INTEGER_M :: KFDIA
 INTEGER_M :: KIDIA
 INTEGER_M :: KLEV
 INTEGER_M :: KLON
-INTEGER_M :: KTRAER
 INTEGER_M :: KUAER, KTRAER
 
 !-----------------------------------------------------------------------
similarity index 98%
rename from src/LIB/RAD/ECMWF_RAD/parrrtm.f90
rename to src/LIB/RAD/ECMWF_RAD/oparrrtm.f90
index 43da952..8fbe489 100644 (file)
@@ -4,7 +4,7 @@
 ! $Source$ $Revision$
 ! ECMWF_RAD2 2003/02/19 13:36:36
 !-----------------------------------------------------------------
-MODULE PARRRTM
+MODULE OPARRRTM
 
 
 #include "tsmbkind.h"
@@ -68,4 +68,4 @@ INTEGER_M, PARAMETER :: NGS14 = 136
 INTEGER_M, PARAMETER :: NGS15 = 138
 
 !     ------------------------------------------------------------------
-END MODULE PARRRTM
+END MODULE OPARRRTM
similarity index 85%
rename from src/LIB/RAD/ECMWF_RAD/rrtm_cmbgb1.f90
rename to src/LIB/RAD/ECMWF_RAD/orrtm_cmbgb1.f90
index d99302b..33e0a9b 100644 (file)
@@ -5,7 +5,7 @@
 ! ECMWF_RAD2 2003/02/19 13:36:36
 !-----------------------------------------------------------------
 !***************************************************************************
-SUBROUTINE RRTM_CMBGB1
+SUBROUTINE ORRTM_CMBGB1
 !***************************************************************************
 
 !  The subroutines CMBGB1->CMBGB16 input the absorption coefficient
@@ -21,12 +21,12 @@ SUBROUTINE RRTM_CMBGB1
 ! Parameters
 #include "tsmbkind.h"
 
-USE PARRRTM  , ONLY : JPBAND   ,JPG      ,JPXSEC   ,JPGPT    ,NG1
+USE OPARRRTM  , ONLY : JPBAND   ,JPG      ,JPXSEC   ,JPGPT    ,NG1
 
-USE YOERRTO1 , ONLY : KAO, KBO, SELFREFO, FORREFO, FRACREFAO,FRACREFBO
-USE YOERRTA1 , ONLY : KA , KB , SELFREF , FORREF , FRACREFA ,FRACREFB
-USE YOERRTRWT, ONLY : FREFA    ,FREFB    ,FREFADF  ,FREFBDF   ,RWGT
-USE YOERRTFTR, ONLY : NGC      ,NGS      ,NGN      ,NGB       ,NGM     , WT
+USE OYOERRTO1 , ONLY : KAO, KBO, SELFREFO, FORREFO, FRACREFAO,FRACREFBO
+USE OYOERRTA1 , ONLY : KA , KB , SELFREF , FORREF , FRACREFA ,FRACREFB
+USE OYOERRTRWT, ONLY : FREFA    ,FREFB    ,FREFADF  ,FREFBDF   ,RWGT
+USE OYOERRTFTR, ONLY : NGC      ,NGS      ,NGN      ,NGB       ,NGM     , WT
 
 IMPLICIT NONE
 
@@ -110,4 +110,4 @@ DO IGC = 1,NGC(1)
 ENDDO
 
 RETURN
-END SUBROUTINE RRTM_CMBGB1
+END SUBROUTINE ORRTM_CMBGB1
similarity index 80%
rename from src/LIB/RAD/ECMWF_RAD/rrtm_cmbgb10.f90
rename to src/LIB/RAD/ECMWF_RAD/orrtm_cmbgb10.f90
index 0cd7e15..7f69f2a 100644 (file)
@@ -5,7 +5,7 @@
 ! ECMWF_RAD2 2003/02/19 13:36:36
 !-----------------------------------------------------------------
 !***************************************************************************
-SUBROUTINE RRTM_CMBGB10
+SUBROUTINE ORRTM_CMBGB10
 !***************************************************************************
 
 !     BAND 10:  1390-1480 cm-1 (low - H2O; high - H2O)
@@ -14,12 +14,12 @@ SUBROUTINE RRTM_CMBGB10
 ! Parameters
 #include "tsmbkind.h"
 
-USE PARRRTM  , ONLY : JPBAND   ,JPG      ,JPXSEC   ,JPGPT    ,NG10
+USE OPARRRTM  , ONLY : JPBAND   ,JPG      ,JPXSEC   ,JPGPT    ,NG10
 
-USE YOERRTO10, ONLY : KAO     ,KBO      ,FRACREFAO   ,FRACREFBO
-USE YOERRTA10, ONLY : KA      ,KB       ,FRACREFA    ,FRACREFB
-USE YOERRTRWT, ONLY : FREFA    ,FREFB    ,FREFADF  ,FREFBDF   ,RWGT
-USE YOERRTFTR, ONLY : NGC      ,NGS      ,NGN      ,NGB       ,NGM     , WT
+USE OYOERRTO10, ONLY : KAO     ,KBO      ,FRACREFAO   ,FRACREFBO
+USE OYOERRTA10, ONLY : KA      ,KB       ,FRACREFA    ,FRACREFB
+USE OYOERRTRWT, ONLY : FREFA    ,FREFB    ,FREFADF  ,FREFBDF   ,RWGT
+USE OYOERRTFTR, ONLY : NGC      ,NGS      ,NGN      ,NGB       ,NGM     , WT
 
 IMPLICIT NONE
 
@@ -86,4 +86,4 @@ DO IGC = 1,NGC(10)
 ENDDO
 
 RETURN
-END SUBROUTINE RRTM_CMBGB10
+END SUBROUTINE ORRTM_CMBGB10
similarity index 82%
rename from src/LIB/RAD/ECMWF_RAD/rrtm_cmbgb11.f90
rename to src/LIB/RAD/ECMWF_RAD/orrtm_cmbgb11.f90
index 960b3f7..1161d0c 100644 (file)
@@ -5,7 +5,7 @@
 ! ECMWF_RAD2 2003/02/19 13:36:36
 !-----------------------------------------------------------------
 !***************************************************************************
-SUBROUTINE RRTM_CMBGB11
+SUBROUTINE ORRTM_CMBGB11
 !***************************************************************************
 
 !     BAND 11:  1480-1800 cm-1 (low - H2O; high - H2O)
@@ -14,12 +14,12 @@ SUBROUTINE RRTM_CMBGB11
 ! Parameters
 #include "tsmbkind.h"
 
-USE PARRRTM  , ONLY : JPBAND   ,JPG      ,JPXSEC   ,JPGPT    ,NG11
+USE OPARRRTM  , ONLY : JPBAND   ,JPG      ,JPXSEC   ,JPGPT    ,NG11
 
-USE YOERRTO11, ONLY : KAO     ,KBO     ,SELFREFO    ,FRACREFAO ,FRACREFBO
-USE YOERRTA11, ONLY : KA      ,KB      ,SELFREF     ,FRACREFA  ,FRACREFB
-USE YOERRTRWT, ONLY : FREFA    ,FREFB    ,FREFADF  ,FREFBDF   ,RWGT
-USE YOERRTFTR, ONLY : NGC      ,NGS      ,NGN      ,NGB       ,NGM     , WT
+USE OYOERRTO11, ONLY : KAO     ,KBO     ,SELFREFO    ,FRACREFAO ,FRACREFBO
+USE OYOERRTA11, ONLY : KA      ,KB      ,SELFREF     ,FRACREFA  ,FRACREFB
+USE OYOERRTRWT, ONLY : FREFA    ,FREFB    ,FREFADF  ,FREFBDF   ,RWGT
+USE OYOERRTFTR, ONLY : NGC      ,NGS      ,NGN      ,NGB       ,NGM     , WT
 
 IMPLICIT NONE
 
@@ -100,4 +100,4 @@ DO IGC = 1,NGC(11)
 ENDDO
 
 RETURN
-END SUBROUTINE RRTM_CMBGB11
+END SUBROUTINE ORRTM_CMBGB11
similarity index 82%
rename from src/LIB/RAD/ECMWF_RAD/rrtm_cmbgb12.f90
rename to src/LIB/RAD/ECMWF_RAD/orrtm_cmbgb12.f90
index e7a169d..3f92b49 100644 (file)
@@ -5,7 +5,7 @@
 ! ECMWF_RAD2 2003/02/19 13:36:37
 !-----------------------------------------------------------------
 !***************************************************************************
-SUBROUTINE RRTM_CMBGB12
+SUBROUTINE ORRTM_CMBGB12
 !***************************************************************************
 
 !     BAND 12:  1800-2080 cm-1 (low - H2O,CO2; high - nothing)
@@ -14,12 +14,12 @@ SUBROUTINE RRTM_CMBGB12
 ! Parameters
 #include "tsmbkind.h"
 
-USE PARRRTM  , ONLY : JPBAND   ,JPG      ,JPXSEC   ,JPGPT    ,NG12
+USE OPARRRTM  , ONLY : JPBAND   ,JPG      ,JPXSEC   ,JPGPT    ,NG12
 
-USE YOERRTO12, ONLY : KAO     ,SELFREFO   ,FRACREFAO
-USE YOERRTA12, ONLY : KA      ,SELFREF    ,FRACREFA
-USE YOERRTRWT, ONLY : FREFA    ,FREFB    ,FREFADF  ,FREFBDF   ,RWGT
-USE YOERRTFTR, ONLY : NGC      ,NGS      ,NGN      ,NGB       ,NGM     , WT
+USE OYOERRTO12, ONLY : KAO     ,SELFREFO   ,FRACREFAO
+USE OYOERRTA12, ONLY : KA      ,SELFREF    ,FRACREFA
+USE OYOERRTRWT, ONLY : FREFA    ,FREFB    ,FREFADF  ,FREFBDF   ,RWGT
+USE OYOERRTFTR, ONLY : NGC      ,NGS      ,NGN      ,NGB       ,NGM     , WT
 
 IMPLICIT NONE
 
@@ -91,4 +91,4 @@ DO JP = 1,8
 ENDDO
 
 RETURN
-END SUBROUTINE RRTM_CMBGB12
+END SUBROUTINE ORRTM_CMBGB12
similarity index 82%
rename from src/LIB/RAD/ECMWF_RAD/rrtm_cmbgb13.f90
rename to src/LIB/RAD/ECMWF_RAD/orrtm_cmbgb13.f90
index 60e39c5..1c4748e 100644 (file)
@@ -5,7 +5,7 @@
 ! ECMWF_RAD2 2003/02/19 13:36:37
 !-----------------------------------------------------------------
 !***************************************************************************
-SUBROUTINE RRTM_CMBGB13
+SUBROUTINE ORRTM_CMBGB13
 !***************************************************************************
 
 !     BAND 13:  2080-2250 cm-1 (low - H2O,N2O; high - nothing)
@@ -14,12 +14,12 @@ SUBROUTINE RRTM_CMBGB13
 ! Parameters
 #include "tsmbkind.h"
 
-USE PARRRTM  , ONLY : JPBAND   ,JPG      ,JPXSEC   ,JPGPT    ,NG13
+USE OPARRRTM  , ONLY : JPBAND   ,JPG      ,JPXSEC   ,JPGPT    ,NG13
 
-USE YOERRTO13, ONLY : KAO     ,SELFREFO   ,FRACREFAO
-USE YOERRTA13, ONLY : KA      ,SELFREF    ,FRACREFA
-USE YOERRTRWT, ONLY : FREFA    ,FREFB    ,FREFADF  ,FREFBDF   ,RWGT
-USE YOERRTFTR, ONLY : NGC      ,NGS      ,NGN      ,NGB       ,NGM     , WT
+USE OYOERRTO13, ONLY : KAO     ,SELFREFO   ,FRACREFAO
+USE OYOERRTA13, ONLY : KA      ,SELFREF    ,FRACREFA
+USE OYOERRTRWT, ONLY : FREFA    ,FREFB    ,FREFADF  ,FREFBDF   ,RWGT
+USE OYOERRTFTR, ONLY : NGC      ,NGS      ,NGN      ,NGB       ,NGM     , WT
 
 IMPLICIT NONE
 
@@ -91,4 +91,4 @@ DO JP = 1,8
 ENDDO
 
 RETURN
-END SUBROUTINE RRTM_CMBGB13
+END SUBROUTINE ORRTM_CMBGB13
similarity index 82%
rename from src/LIB/RAD/ECMWF_RAD/rrtm_cmbgb14.f90
rename to src/LIB/RAD/ECMWF_RAD/orrtm_cmbgb14.f90
index 554571d..4b45f23 100644 (file)
@@ -5,7 +5,7 @@
 ! ECMWF_RAD2 2003/02/19 13:36:37
 !-----------------------------------------------------------------
 !***************************************************************************
-SUBROUTINE RRTM_CMBGB14
+SUBROUTINE ORRTM_CMBGB14
 !***************************************************************************
 
 !     BAND 14:  2250-2380 cm-1 (low - CO2; high - CO2)
@@ -14,12 +14,12 @@ SUBROUTINE RRTM_CMBGB14
 ! Parameters
 #include "tsmbkind.h"
 
-USE PARRRTM  , ONLY : JPBAND   ,JPG      ,JPXSEC   ,JPGPT    ,NG14
+USE OPARRRTM  , ONLY : JPBAND   ,JPG      ,JPXSEC   ,JPGPT    ,NG14
 
-USE YOERRTO14, ONLY : KAO     ,KBO     ,SELFREFO   ,FRACREFAO  ,FRACREFBO
-USE YOERRTA14, ONLY : KA      ,KB      ,SELFREF    ,FRACREFA   ,FRACREFB
-USE YOERRTRWT, ONLY : FREFA    ,FREFB    ,FREFADF  ,FREFBDF   ,RWGT
-USE YOERRTFTR, ONLY : NGC      ,NGS      ,NGN      ,NGB       ,NGM     , WT
+USE OYOERRTO14, ONLY : KAO     ,KBO     ,SELFREFO   ,FRACREFAO  ,FRACREFBO
+USE OYOERRTA14, ONLY : KA      ,KB      ,SELFREF    ,FRACREFA   ,FRACREFB
+USE OYOERRTRWT, ONLY : FREFA    ,FREFB    ,FREFADF  ,FREFBDF   ,RWGT
+USE OYOERRTFTR, ONLY : NGC      ,NGS      ,NGN      ,NGB       ,NGM     , WT
 
 IMPLICIT NONE
 
@@ -101,4 +101,4 @@ DO IGC = 1,NGC(14)
 ENDDO
 
 RETURN
-END SUBROUTINE RRTM_CMBGB14
+END SUBROUTINE ORRTM_CMBGB14
similarity index 82%
rename from src/LIB/RAD/ECMWF_RAD/rrtm_cmbgb15.f90
rename to src/LIB/RAD/ECMWF_RAD/orrtm_cmbgb15.f90
index cef2bb5..82447a0 100644 (file)
@@ -5,7 +5,7 @@
 ! ECMWF_RAD2 2003/02/19 13:36:37
 !-----------------------------------------------------------------
 !***************************************************************************
-SUBROUTINE RRTM_CMBGB15
+SUBROUTINE ORRTM_CMBGB15
 !***************************************************************************
 
 !     BAND 15:  2380-2600 cm-1 (low - N2O,CO2; high - nothing)
@@ -14,12 +14,12 @@ SUBROUTINE RRTM_CMBGB15
 ! Parameters
 #include "tsmbkind.h"
 
-USE PARRRTM  , ONLY : JPBAND   ,JPG      ,JPXSEC   ,JPGPT    ,NG15
+USE OPARRRTM  , ONLY : JPBAND   ,JPG      ,JPXSEC   ,JPGPT    ,NG15
 
-USE YOERRTO15, ONLY : KAO     ,SELFREFO   ,FRACREFAO
-USE YOERRTA15, ONLY : KA      ,SELFREF    ,FRACREFA
-USE YOERRTRWT, ONLY : FREFA    ,FREFB    ,FREFADF  ,FREFBDF   ,RWGT
-USE YOERRTFTR, ONLY : NGC      ,NGS      ,NGN      ,NGB       ,NGM     , WT
+USE OYOERRTO15, ONLY : KAO     ,SELFREFO   ,FRACREFAO
+USE OYOERRTA15, ONLY : KA      ,SELFREF    ,FRACREFA
+USE OYOERRTRWT, ONLY : FREFA    ,FREFB    ,FREFADF  ,FREFBDF   ,RWGT
+USE OYOERRTFTR, ONLY : NGC      ,NGS      ,NGN      ,NGB       ,NGM     , WT
 
 IMPLICIT NONE
 
@@ -91,4 +91,4 @@ DO JP = 1,8
 ENDDO
 
 RETURN
-END SUBROUTINE RRTM_CMBGB15
+END SUBROUTINE ORRTM_CMBGB15
similarity index 82%
rename from src/LIB/RAD/ECMWF_RAD/rrtm_cmbgb16.f90
rename to src/LIB/RAD/ECMWF_RAD/orrtm_cmbgb16.f90
index 84fc3f5..8ad4012 100644 (file)
@@ -5,7 +5,7 @@
 ! ECMWF_RAD2 2003/02/19 13:36:37
 !-----------------------------------------------------------------
 !***************************************************************************
-SUBROUTINE RRTM_CMBGB16
+SUBROUTINE ORRTM_CMBGB16
 !***************************************************************************
 
 !     BAND 16:  2600-3000 cm-1 (low - H2O,CH4; high - nothing)
@@ -14,12 +14,12 @@ SUBROUTINE RRTM_CMBGB16
 ! Parameters
 #include "tsmbkind.h"
 
-USE PARRRTM  , ONLY : JPBAND   ,JPG      ,JPXSEC   ,JPGPT    ,NG16
+USE OPARRRTM  , ONLY : JPBAND   ,JPG      ,JPXSEC   ,JPGPT    ,NG16
 
-USE YOERRTO16, ONLY : KAO     ,SELFREFO   ,FRACREFAO
-USE YOERRTA16, ONLY : KA      ,SELFREF    ,FRACREFA
-USE YOERRTRWT, ONLY : FREFA    ,FREFB    ,FREFADF  ,FREFBDF   ,RWGT
-USE YOERRTFTR, ONLY : NGC      ,NGS      ,NGN      ,NGB       ,NGM     , WT
+USE OYOERRTO16, ONLY : KAO     ,SELFREFO   ,FRACREFAO
+USE OYOERRTA16, ONLY : KA      ,SELFREF    ,FRACREFA
+USE OYOERRTRWT, ONLY : FREFA    ,FREFB    ,FREFADF  ,FREFBDF   ,RWGT
+USE OYOERRTFTR, ONLY : NGC      ,NGS      ,NGN      ,NGB       ,NGM     , WT
 
 IMPLICIT NONE
 
@@ -92,4 +92,4 @@ DO JP = 1,8
 ENDDO
 
 RETURN
-END SUBROUTINE RRTM_CMBGB16
+END SUBROUTINE ORRTM_CMBGB16
similarity index 85%
rename from src/LIB/RAD/ECMWF_RAD/rrtm_cmbgb2.f90
rename to src/LIB/RAD/ECMWF_RAD/orrtm_cmbgb2.f90
index b37d44b..41647b5 100644 (file)
@@ -5,7 +5,7 @@
 ! ECMWF_RAD2 2003/02/19 13:36:37
 !-----------------------------------------------------------------
 !***************************************************************************
-SUBROUTINE RRTM_CMBGB2
+SUBROUTINE ORRTM_CMBGB2
 !***************************************************************************
 
 !     BAND 2:  250-500 cm-1 (low - H2O; high - H2O)
@@ -14,14 +14,14 @@ SUBROUTINE RRTM_CMBGB2
 ! Parameters
 #include "tsmbkind.h"
 
-USE PARRRTM  , ONLY : JPBAND   ,JPG      ,JPXSEC   ,JPGPT    ,NG2
+USE OPARRRTM  , ONLY : JPBAND   ,JPG      ,JPXSEC   ,JPGPT    ,NG2
 
-USE YOERRTO2 , ONLY : KAO     ,KBO     ,SELFREFO   ,FRACREFAO  ,&
+USE OYOERRTO2 , ONLY : KAO     ,KBO     ,SELFREFO   ,FRACREFAO  ,&
            &FRACREFBO  ,FORREFO
-USE YOERRTA2 , ONLY : KA      ,KB      ,SELFREF    ,FRACREFA   ,&
+USE OYOERRTA2 , ONLY : KA      ,KB      ,SELFREF    ,FRACREFA   ,&
            &FRACREFB   ,FORREF     ,REFPARAM 
-USE YOERRTRWT, ONLY : FREFA    ,FREFB    ,FREFADF  ,FREFBDF   ,RWGT
-USE YOERRTFTR, ONLY : NGC      ,NGS      ,NGN      ,NGB       ,NGM     , WT
+USE OYOERRTRWT, ONLY : FREFA    ,FREFB    ,FREFADF  ,FREFBDF   ,RWGT
+USE OYOERRTFTR, ONLY : NGC      ,NGS      ,NGN      ,NGB       ,NGM     , WT
 
 IMPLICIT NONE
 
@@ -125,4 +125,4 @@ DO IGC = 1,NGC(2)
 ENDDO
 
 RETURN
-END SUBROUTINE RRTM_CMBGB2
+END SUBROUTINE ORRTM_CMBGB2
similarity index 87%
rename from src/LIB/RAD/ECMWF_RAD/rrtm_cmbgb3.f90
rename to src/LIB/RAD/ECMWF_RAD/orrtm_cmbgb3.f90
index 15ceead..08d38a4 100644 (file)
@@ -5,7 +5,7 @@
 ! ECMWF_RAD2 2003/02/19 13:36:37
 !-----------------------------------------------------------------
 !***************************************************************************
-SUBROUTINE RRTM_CMBGB3
+SUBROUTINE ORRTM_CMBGB3
 !***************************************************************************
 
 !     BAND 3:  500-630 cm-1 (low - H2O,CO2; high - H2O,CO2)
@@ -14,14 +14,14 @@ SUBROUTINE RRTM_CMBGB3
 ! Parameters
 #include "tsmbkind.h"
 
-USE PARRRTM  , ONLY : JPBAND   ,JPG      ,JPXSEC   ,JPGPT    ,NG3
+USE OPARRRTM  , ONLY : JPBAND   ,JPG      ,JPXSEC   ,JPGPT    ,NG3
 
-USE YOERRTO3 , ONLY : KAO     ,KBO     ,SELFREFO   ,FRACREFAO  ,&
+USE OYOERRTO3 , ONLY : KAO     ,KBO     ,SELFREFO   ,FRACREFAO  ,&
            &FRACREFBO  ,FORREFO    ,ABSN2OAO   ,ABSN2OBO
-USE YOERRTA3 , ONLY : KA      ,KB      ,SELFREF    ,FRACREFA   ,&
+USE OYOERRTA3 , ONLY : KA      ,KB      ,SELFREF    ,FRACREFA   ,&
            &FRACREFB   ,FORREF    ,ABSN2OA   ,ABSN2OB
-USE YOERRTRWT, ONLY : FREFA    ,FREFB    ,FREFADF  ,FREFBDF   ,RWGT
-USE YOERRTFTR, ONLY : NGC      ,NGS      ,NGN      ,NGB       ,NGM     , WT
+USE OYOERRTRWT, ONLY : FREFA    ,FREFB    ,FREFADF  ,FREFBDF   ,RWGT
+USE OYOERRTFTR, ONLY : NGC      ,NGS      ,NGN      ,NGB       ,NGM     , WT
 
 IMPLICIT NONE
 
@@ -150,4 +150,4 @@ DO JP = 1,4
 ENDDO
 
 RETURN
-END SUBROUTINE RRTM_CMBGB3
+END SUBROUTINE ORRTM_CMBGB3
similarity index 85%
rename from src/LIB/RAD/ECMWF_RAD/rrtm_cmbgb4.f90
rename to src/LIB/RAD/ECMWF_RAD/orrtm_cmbgb4.f90
index d63c3ed..a40fdf6 100644 (file)
@@ -5,7 +5,7 @@
 ! ECMWF_RAD2 2003/02/19 13:36:37
 !-----------------------------------------------------------------
 !***************************************************************************
-SUBROUTINE RRTM_CMBGB4
+SUBROUTINE ORRTM_CMBGB4
 !***************************************************************************
 
 !     BAND 4:  630-700 cm-1 (low - H2O,CO2; high - O3,CO2)
@@ -14,12 +14,12 @@ SUBROUTINE RRTM_CMBGB4
 ! Parameters
 #include "tsmbkind.h"
 
-USE PARRRTM  , ONLY : JPBAND   ,JPG      ,JPXSEC   ,JPGPT    ,NG4
+USE OPARRRTM  , ONLY : JPBAND   ,JPG      ,JPXSEC   ,JPGPT    ,NG4
 
-USE YOERRTO4 , ONLY : KAO     ,KBO     ,SELFREFO   ,FRACREFAO  ,FRACREFBO
-USE YOERRTA4 , ONLY : KA      ,KB      ,SELFREF    ,FRACREFA   ,FRACREFB
-USE YOERRTRWT, ONLY : FREFA    ,FREFB    ,FREFADF  ,FREFBDF   ,RWGT
-USE YOERRTFTR, ONLY : NGC      ,NGS      ,NGN      ,NGB       ,NGM     , WT
+USE OYOERRTO4 , ONLY : KAO     ,KBO     ,SELFREFO   ,FRACREFAO  ,FRACREFBO
+USE OYOERRTA4 , ONLY : KA      ,KB      ,SELFREF    ,FRACREFA   ,FRACREFB
+USE OYOERRTRWT, ONLY : FREFA    ,FREFB    ,FREFADF  ,FREFBDF   ,RWGT
+USE OYOERRTFTR, ONLY : NGC      ,NGS      ,NGN      ,NGB       ,NGM     , WT
 
 IMPLICIT NONE
 
@@ -135,4 +135,4 @@ DO JP = 1,5
 ENDDO
 
 RETURN
-END SUBROUTINE RRTM_CMBGB4
+END SUBROUTINE ORRTM_CMBGB4
similarity index 87%
rename from src/LIB/RAD/ECMWF_RAD/rrtm_cmbgb5.f90
rename to src/LIB/RAD/ECMWF_RAD/orrtm_cmbgb5.f90
index 57e143f..b45472f 100644 (file)
@@ -5,7 +5,7 @@
 ! ECMWF_RAD2 2003/02/19 13:36:37
 !-----------------------------------------------------------------
 !***************************************************************************
-SUBROUTINE RRTM_CMBGB5
+SUBROUTINE ORRTM_CMBGB5
 !***************************************************************************
 
 !     BAND 5:  700-820 cm-1 (low - H2O,CO2; high - O3,CO2)
@@ -14,14 +14,14 @@ SUBROUTINE RRTM_CMBGB5
 ! Parameters
 #include "tsmbkind.h"
 
-USE PARRRTM  , ONLY : JPBAND   ,JPG      ,JPXSEC   ,JPGPT    ,NG5
+USE OPARRRTM  , ONLY : JPBAND   ,JPG      ,JPXSEC   ,JPGPT    ,NG5
 
-USE YOERRTO5 , ONLY : KAO     ,KBO     ,SELFREFO   ,FRACREFAO  ,&
+USE OYOERRTO5 , ONLY : KAO     ,KBO     ,SELFREFO   ,FRACREFAO  ,&
            &FRACREFBO, CCL4O
-USE YOERRTA5 , ONLY : KA      ,KB      ,SELFREF    ,FRACREFA   ,&
+USE OYOERRTA5 , ONLY : KA      ,KB      ,SELFREF    ,FRACREFA   ,&
            &FRACREFB , CCL4
-USE YOERRTRWT, ONLY : FREFA    ,FREFB    ,FREFADF  ,FREFBDF   ,RWGT
-USE YOERRTFTR, ONLY : NGC      ,NGS      ,NGN      ,NGB       ,NGM     , WT
+USE OYOERRTRWT, ONLY : FREFA    ,FREFB    ,FREFADF  ,FREFBDF   ,RWGT
+USE OYOERRTFTR, ONLY : NGC      ,NGS      ,NGN      ,NGB       ,NGM     , WT
 
 IMPLICIT NONE
 
@@ -149,4 +149,4 @@ DO JP = 1,4
 ENDDO
 
 RETURN
-END SUBROUTINE RRTM_CMBGB5
+END SUBROUTINE ORRTM_CMBGB5
similarity index 83%
rename from src/LIB/RAD/ECMWF_RAD/rrtm_cmbgb6.f90
rename to src/LIB/RAD/ECMWF_RAD/orrtm_cmbgb6.f90
index 7c36241..9c9f92d 100644 (file)
@@ -5,7 +5,7 @@
 ! ECMWF_RAD2 2003/02/19 13:36:37
 !-----------------------------------------------------------------
 !***************************************************************************
-SUBROUTINE RRTM_CMBGB6
+SUBROUTINE ORRTM_CMBGB6
 !***************************************************************************
 
 !     BAND 6:  820-980 cm-1 (low - H2O; high - nothing)
@@ -14,14 +14,14 @@ SUBROUTINE RRTM_CMBGB6
 ! Parameters
 #include "tsmbkind.h"
 
-USE PARRRTM  , ONLY : JPBAND   ,JPG      ,JPXSEC   ,JPGPT    ,NG6
+USE OPARRRTM  , ONLY : JPBAND   ,JPG      ,JPXSEC   ,JPGPT    ,NG6
 
-USE YOERRTO6 , ONLY : KAO     ,SELFREFO   ,FRACREFAO  ,&
+USE OYOERRTO6 , ONLY : KAO     ,SELFREFO   ,FRACREFAO  ,&
            &ABSCO2O ,CFC11ADJO,CFC12O
-USE YOERRTA6 , ONLY : KA      ,SELFREF    ,FRACREFA   ,&
+USE OYOERRTA6 , ONLY : KA      ,SELFREF    ,FRACREFA   ,&
            &ABSCO2  ,CFC11ADJ ,CFC12
-USE YOERRTRWT, ONLY : FREFA    ,FREFB    ,FREFADF  ,FREFBDF   ,RWGT
-USE YOERRTFTR, ONLY : NGC      ,NGS      ,NGN      ,NGB       ,NGM     , WT
+USE OYOERRTRWT, ONLY : FREFA    ,FREFB    ,FREFADF  ,FREFBDF   ,RWGT
+USE OYOERRTFTR, ONLY : NGC      ,NGS      ,NGN      ,NGB       ,NGM     , WT
 
 IMPLICIT NONE
 
@@ -97,4 +97,4 @@ DO IGC = 1,NGC(6)
 ENDDO
 
 RETURN
-END SUBROUTINE RRTM_CMBGB6
+END SUBROUTINE ORRTM_CMBGB6
similarity index 85%
rename from src/LIB/RAD/ECMWF_RAD/rrtm_cmbgb7.f90
rename to src/LIB/RAD/ECMWF_RAD/orrtm_cmbgb7.f90
index 03d1ed0..bd472da 100644 (file)
@@ -5,7 +5,7 @@
 ! ECMWF_RAD2 2003/02/19 13:36:37
 !-----------------------------------------------------------------
 !***************************************************************************
-SUBROUTINE RRTM_CMBGB7
+SUBROUTINE ORRTM_CMBGB7
 !***************************************************************************
 
 !     BAND 7:  980-1080 cm-1 (low - H2O,O3; high - O3)
@@ -14,14 +14,14 @@ SUBROUTINE RRTM_CMBGB7
 ! Parameters
 #include "tsmbkind.h"
 
-USE PARRRTM  , ONLY : JPBAND   ,JPG      ,JPXSEC   ,JPGPT    ,NG7
+USE OPARRRTM  , ONLY : JPBAND   ,JPG      ,JPXSEC   ,JPGPT    ,NG7
 
-USE YOERRTO7 , ONLY : KAO     ,KBO     ,SELFREFO   ,FRACREFAO  ,&
+USE OYOERRTO7 , ONLY : KAO     ,KBO     ,SELFREFO   ,FRACREFAO  ,&
            &FRACREFBO, ABSCO2O
-USE YOERRTA7 , ONLY : KA      ,KB      ,SELFREF    ,FRACREFA   ,&
+USE OYOERRTA7 , ONLY : KA      ,KB      ,SELFREF    ,FRACREFA   ,&
            &FRACREFB , ABSCO2
-USE YOERRTRWT, ONLY : FREFA    ,FREFB    ,FREFADF  ,FREFBDF   ,RWGT
-USE YOERRTFTR, ONLY : NGC      ,NGS      ,NGN      ,NGB       ,NGM     , WT
+USE OYOERRTRWT, ONLY : FREFA    ,FREFB    ,FREFADF  ,FREFBDF   ,RWGT
+USE OYOERRTFTR, ONLY : NGC      ,NGS      ,NGN      ,NGB       ,NGM     , WT
 
 IMPLICIT NONE
 
@@ -129,4 +129,4 @@ DO IGC = 1,NGC(7)
 ENDDO
 
 RETURN
-END SUBROUTINE RRTM_CMBGB7
+END SUBROUTINE ORRTM_CMBGB7
similarity index 86%
rename from src/LIB/RAD/ECMWF_RAD/rrtm_cmbgb8.f90
rename to src/LIB/RAD/ECMWF_RAD/orrtm_cmbgb8.f90
index 3897494..305d933 100644 (file)
@@ -5,7 +5,7 @@
 ! ECMWF_RAD2 2003/02/19 13:36:37
 !-----------------------------------------------------------------
 !***************************************************************************
-SUBROUTINE RRTM_CMBGB8
+SUBROUTINE ORRTM_CMBGB8
 !***************************************************************************
 
 !     BAND 8:  1080-1180 cm-1 (low (i.e.>~300mb) - H2O; high - O3)
@@ -14,16 +14,16 @@ SUBROUTINE RRTM_CMBGB8
 ! Parameters
 #include "tsmbkind.h"
 
-USE PARRRTM  , ONLY : JPBAND   ,JPG      ,JPXSEC   ,JPGPT    ,NG8
+USE OPARRRTM  , ONLY : JPBAND   ,JPG      ,JPXSEC   ,JPGPT    ,NG8
 
-USE YOERRTO8 , ONLY : KAO     ,KBO     ,SELFREFO   ,FRACREFAO  ,&
+USE OYOERRTO8 , ONLY : KAO     ,KBO     ,SELFREFO   ,FRACREFAO  ,&
            &FRACREFBO, ABSCO2AO,ABSCO2BO,ABSN2OAO   ,ABSN2OBO   ,&
            &CFC12O   , CFC22ADJO
-USE YOERRTA8 , ONLY : KA      ,KB      ,SELFREF    ,FRACREFA   ,&
+USE OYOERRTA8 , ONLY : KA      ,KB      ,SELFREF    ,FRACREFA   ,&
            &FRACREFB , ABSCO2A ,ABSCO2B ,ABSN2OA    ,ABSN2OB    ,&
            &CFC12    , CFC22ADJ
-USE YOERRTRWT, ONLY : FREFA    ,FREFB    ,FREFADF  ,FREFBDF   ,RWGT
-USE YOERRTFTR, ONLY : NGC      ,NGS      ,NGN      ,NGB       ,NGM     , WT
+USE OYOERRTRWT, ONLY : FREFA    ,FREFB    ,FREFADF  ,FREFBDF   ,RWGT
+USE OYOERRTFTR, ONLY : NGC      ,NGS      ,NGN      ,NGB       ,NGM     , WT
 
 IMPLICIT NONE
 
@@ -110,4 +110,4 @@ DO IGC = 1,NGC(8)
 ENDDO
 
 RETURN
-END SUBROUTINE RRTM_CMBGB8
+END SUBROUTINE ORRTM_CMBGB8
similarity index 86%
rename from src/LIB/RAD/ECMWF_RAD/rrtm_cmbgb9.f90
rename to src/LIB/RAD/ECMWF_RAD/orrtm_cmbgb9.f90
index 8273646..fe80a6e 100644 (file)
@@ -5,7 +5,7 @@
 ! ECMWF_RAD2 2003/02/19 13:36:37
 !-----------------------------------------------------------------
 !***************************************************************************
-SUBROUTINE RRTM_CMBGB9
+SUBROUTINE ORRTM_CMBGB9
 !***************************************************************************
 
 !     BAND 9:  1180-1390 cm-1 (low - H2O,CH4; high - CH4)
@@ -14,14 +14,14 @@ SUBROUTINE RRTM_CMBGB9
 ! Parameters
 #include "tsmbkind.h"
 
-USE PARRRTM  , ONLY : JPBAND   ,JPG      ,JPXSEC   ,JPGPT    ,NG9
+USE OPARRRTM  , ONLY : JPBAND   ,JPG      ,JPXSEC   ,JPGPT    ,NG9
 
-USE YOERRTO9 , ONLY : KAO     ,KBO     ,SELFREFO   ,FRACREFAO  ,&
+USE OYOERRTO9 , ONLY : KAO     ,KBO     ,SELFREFO   ,FRACREFAO  ,&
            &FRACREFBO, ABSN2OO
-USE YOERRTA9 , ONLY : KA      ,KB      ,SELFREF    ,FRACREFA  ,&
+USE OYOERRTA9 , ONLY : KA      ,KB      ,SELFREF    ,FRACREFA  ,&
            &FRACREFB , ABSN2O
-USE YOERRTRWT, ONLY : FREFA    ,FREFB    ,FREFADF  ,FREFBDF   ,RWGT
-USE YOERRTFTR, ONLY : NGC      ,NGS      ,NGN      ,NGB       ,NGM     , WT
+USE OYOERRTRWT, ONLY : FREFA    ,FREFB    ,FREFADF  ,FREFBDF   ,RWGT
+USE OYOERRTFTR, ONLY : NGC      ,NGS      ,NGN      ,NGB       ,NGM     , WT
 
 IMPLICIT NONE
 
@@ -141,4 +141,4 @@ DO IGC = 1,NGC(9)
 ENDDO
 
 RETURN
-END SUBROUTINE RRTM_CMBGB9
+END SUBROUTINE ORRTM_CMBGB9
similarity index 97%
rename from src/LIB/RAD/ECMWF_RAD/rrtm_ecrt_140gp.f90
rename to src/LIB/RAD/ECMWF_RAD/orrtm_ecrt_140gp.f90
index 45fd967..b24494e 100644 (file)
@@ -1,6 +1,6 @@
 !****************** SUBROUTINE RRTM_ECRT_140GP **************************
 
-SUBROUTINE RRTM_ECRT_140GP &
+SUBROUTINE ORRTM_ECRT_140GP &
  &( iplon, klon , klev, kcld &
  &, paer , paph , pap &
  &, pts  , pth  , pt &
@@ -22,11 +22,11 @@ SUBROUTINE RRTM_ECRT_140GP &
 
 #include "tsmbkind.h"
 
-USE PARRRTM  , ONLY : JPBAND   ,JPG      ,JPXSEC   ,JPGPT    ,JPLAY   ,&
+USE OPARRRTM  , ONLY : JPBAND   ,JPG      ,JPXSEC   ,JPGPT    ,JPLAY   ,&
             &JPINPX
-USE YOERAD   , ONLY : NOVLP
-USE YOERDI   , ONLY : RCARDI   ,RCH4     ,RN2O    ,RCFC11  ,RCFC12
-USE YOESW    , ONLY : RAER
+USE OYOERAD   , ONLY : NOVLP
+USE OYOERDI   , ONLY : RCARDI   ,RCH4     ,RN2O    ,RCFC11  ,RCFC12
+USE OYOESW    , ONLY : RAER
 
 !------------------------------Arguments--------------------------------
 
@@ -420,5 +420,5 @@ ENDIF
 !     ------------------------------------------------------------------
 
 RETURN
-END SUBROUTINE RRTM_ECRT_140GP
+END SUBROUTINE ORRTM_ECRT_140GP
 
@@ -4,7 +4,7 @@
 ! $Source$ $Revision$
 ! ECMWF_RAD2 2003/02/19 13:36:37
 !-----------------------------------------------------------------
-SUBROUTINE RRTM_GASABS1A_140GP (KLEV,ATR1,OD,TF1,COLDRY,WX,&
+SUBROUTINE ORRTM_GASABS1A_140GP (KLEV,ATR1,OD,TF1,COLDRY,WX,&
   &TAUAERL,FAC00,FAC01,FAC10,FAC11,FORFAC,JP,JT,JT1,ONEMINUS,&
   &COLH2O,COLCO2,COLO3,COLN2O,COLCH4,COLO2,CO2MULT,&
   &LAYTROP,LAYSWTCH,LAYLOW,SELFFAC,SELFFRAC,INDSELF,PFRAC)
@@ -13,25 +13,25 @@ SUBROUTINE RRTM_GASABS1A_140GP (KLEV,ATR1,OD,TF1,COLDRY,WX,&
 
 #include "tsmbkind.h"
 
-USE PARRRTM  , ONLY : JPLAY    ,JPBAND   ,JPGPT   ,JPXSEC
-USE YOERRTAB , ONLY : TRANS    ,BPADE
+USE OPARRRTM  , ONLY : JPLAY    ,JPBAND   ,JPGPT   ,JPXSEC
+USE OYOERRTAB , ONLY : TRANS    ,BPADE
 !
-USE MODI_RRTM_TAUMOL1
-USE MODI_RRTM_TAUMOL2
-USE MODI_RRTM_TAUMOL3
-USE MODI_RRTM_TAUMOL4
-USE MODI_RRTM_TAUMOL5
-USE MODI_RRTM_TAUMOL6
-USE MODI_RRTM_TAUMOL7
-USE MODI_RRTM_TAUMOL8
-USE MODI_RRTM_TAUMOL9
-USE MODI_RRTM_TAUMOL10
-USE MODI_RRTM_TAUMOL11
-USE MODI_RRTM_TAUMOL12
-USE MODI_RRTM_TAUMOL13
-USE MODI_RRTM_TAUMOL14
-USE MODI_RRTM_TAUMOL15
-USE MODI_RRTM_TAUMOL16
+!USE MODI_ORRTM_TAUMOL1
+!USE MODI_ORRTM_TAUMOL2
+!USE MODI_ORRTM_TAUMOL3
+!USE MODI_ORRTM_TAUMOL4
+!USE MODI_ORRTM_TAUMOL5
+!USE MODI_ORRTM_TAUMOL6
+!USE MODI_ORRTM_TAUMOL7
+!USE MODI_ORRTM_TAUMOL8
+!USE MODI_ORRTM_TAUMOL9
+!USE MODI_ORRTM_TAUMOL10
+!USE MODI_ORRTM_TAUMOL11
+!USE MODI_ORRTM_TAUMOL12
+!USE MODI_ORRTM_TAUMOL13
+!USE MODI_ORRTM_TAUMOL14
+!USE MODI_ORRTM_TAUMOL15
+!USE MODI_ORRTM_TAUMOL16
 !
 IMPLICIT NONE
 
@@ -95,52 +95,52 @@ REAL_B :: ODEPTH, SECANG, TF
 !- SECANG is equal to the secant of the diffusivity angle.
 SECANG = 1.66_JPRB
 
-CALL RRTM_TAUMOL1  (KLEV,TAU,&
+CALL ORRTM_TAUMOL1  (KLEV,TAU,&
   &TAUAERL,FAC00,FAC01,FAC10,FAC11,FORFAC,JP,JT,JT1,&
   &COLH2O,LAYTROP,SELFFAC,SELFFRAC,INDSELF,PFRAC)
-CALL RRTM_TAUMOL2  (KLEV,TAU,COLDRY,&
+CALL ORRTM_TAUMOL2  (KLEV,TAU,COLDRY,&
   &TAUAERL,FAC00,FAC01,FAC10,FAC11,FORFAC,JP,JT,JT1,&
   &COLH2O,LAYTROP,SELFFAC,SELFFRAC,INDSELF,PFRAC)
-CALL RRTM_TAUMOL3  (KLEV,TAU,&
+CALL ORRTM_TAUMOL3  (KLEV,TAU,&
   &TAUAERL,FAC00,FAC01,FAC10,FAC11,FORFAC,JP,JT,JT1,ONEMINUS,&
   &COLH2O,COLCO2,COLN2O,LAYTROP,SELFFAC,SELFFRAC,INDSELF,PFRAC)
-CALL RRTM_TAUMOL4  (KLEV,TAU,&
+CALL ORRTM_TAUMOL4  (KLEV,TAU,&
   &TAUAERL,FAC00,FAC01,FAC10,FAC11,FORFAC,JP,JT,JT1,ONEMINUS,&
   &COLH2O,COLCO2,COLO3,LAYTROP,SELFFAC,SELFFRAC,INDSELF,PFRAC)
-CALL RRTM_TAUMOL5  (KLEV,TAU,WX,&
+CALL ORRTM_TAUMOL5  (KLEV,TAU,WX,&
   &TAUAERL,FAC00,FAC01,FAC10,FAC11,FORFAC,JP,JT,JT1,ONEMINUS,&
   &COLH2O,COLCO2,COLO3,LAYTROP,SELFFAC,SELFFRAC,INDSELF,PFRAC)
-CALL RRTM_TAUMOL6  (KLEV,TAU,WX,&
+CALL ORRTM_TAUMOL6  (KLEV,TAU,WX,&
   &TAUAERL,FAC00,FAC01,FAC10,FAC11,JP,JT,JT1,&
   &COLH2O,CO2MULT,LAYTROP,SELFFAC,SELFFRAC,INDSELF,PFRAC)
-CALL RRTM_TAUMOL7  (KLEV,TAU,&
+CALL ORRTM_TAUMOL7  (KLEV,TAU,&
   &TAUAERL,FAC00,FAC01,FAC10,FAC11,JP,JT,JT1,ONEMINUS,&
   &COLH2O,COLO3,CO2MULT,LAYTROP,SELFFAC,SELFFRAC,INDSELF,PFRAC)
-CALL RRTM_TAUMOL8  (KLEV,TAU,WX,&
+CALL ORRTM_TAUMOL8  (KLEV,TAU,WX,&
   &TAUAERL,FAC00,FAC01,FAC10,FAC11,JP,JT,JT1,&
   &COLH2O,COLO3,COLN2O,CO2MULT,LAYSWTCH,SELFFAC,SELFFRAC,INDSELF,PFRAC)
-CALL RRTM_TAUMOL9  (KLEV,TAU,&
+CALL ORRTM_TAUMOL9  (KLEV,TAU,&
   &TAUAERL,FAC00,FAC01,FAC10,FAC11,JP,JT,JT1,ONEMINUS,&
   &COLH2O,COLN2O,COLCH4,LAYTROP,LAYSWTCH,LAYLOW,SELFFAC,SELFFRAC,INDSELF,PFRAC)
-CALL RRTM_TAUMOL10 (KLEV,TAU,&
+CALL ORRTM_TAUMOL10 (KLEV,TAU,&
   &TAUAERL,FAC00,FAC01,FAC10,FAC11,JP,JT,JT1,&
   &COLH2O,LAYTROP,PFRAC)
-CALL RRTM_TAUMOL11 (KLEV,TAU,&
+CALL ORRTM_TAUMOL11 (KLEV,TAU,&
   &TAUAERL,FAC00,FAC01,FAC10,FAC11,JP,JT,JT1,&
   &COLH2O,LAYTROP,SELFFAC,SELFFRAC,INDSELF,PFRAC)
-CALL RRTM_TAUMOL12 (KLEV,TAU,&
+CALL ORRTM_TAUMOL12 (KLEV,TAU,&
   &TAUAERL,FAC00,FAC01,FAC10,FAC11,JP,JT,JT1,ONEMINUS,&
   &COLH2O,COLCO2,LAYTROP,SELFFAC,SELFFRAC,INDSELF,PFRAC)
-CALL RRTM_TAUMOL13 (KLEV,TAU,&
+CALL ORRTM_TAUMOL13 (KLEV,TAU,&
   &TAUAERL,FAC00,FAC01,FAC10,FAC11,JP,JT,JT1,ONEMINUS,&
   &COLH2O,COLN2O,LAYTROP,SELFFAC,SELFFRAC,INDSELF,PFRAC)
-CALL RRTM_TAUMOL14 (KLEV,TAU,&
+CALL ORRTM_TAUMOL14 (KLEV,TAU,&
   &TAUAERL,FAC00,FAC01,FAC10,FAC11,JP,JT,JT1,&
   &COLCO2,LAYTROP,SELFFAC,SELFFRAC,INDSELF,PFRAC)
-CALL RRTM_TAUMOL15 (KLEV,TAU,&
+CALL ORRTM_TAUMOL15 (KLEV,TAU,&
   &TAUAERL,FAC00,FAC01,FAC10,FAC11,JP,JT,JT1,ONEMINUS,&
   &COLH2O,COLCO2,COLN2O,LAYTROP,SELFFAC,SELFFRAC,INDSELF,PFRAC)
-CALL RRTM_TAUMOL16 (KLEV,TAU,&
+CALL ORRTM_TAUMOL16 (KLEV,TAU,&
   &TAUAERL,FAC00,FAC01,FAC10,FAC11,JP,JT,JT1,ONEMINUS,&
   &COLH2O,COLCH4,LAYTROP,SELFFAC,SELFFRAC,INDSELF,PFRAC)
 
@@ -162,4 +162,4 @@ ENDDO
 !     -----------------------------------------------------------------
 
 RETURN
-END SUBROUTINE RRTM_GASABS1A_140GP
+END SUBROUTINE ORRTM_GASABS1A_140GP
similarity index 67%
rename from src/LIB/RAD/ECMWF_RAD/rrtm_init_140gp.f90
rename to src/LIB/RAD/ECMWF_RAD/orrtm_init_140gp.f90
index e0c7c3b..baf6161 100644 (file)
@@ -5,36 +5,36 @@
 ! ECMWF_RAD2 2003/02/19 13:36:37
 !-----------------------------------------------------------------
 !***************************************************************************
-SUBROUTINE RRTM_INIT_140GP
+SUBROUTINE ORRTM_INIT_140GP
 !***************************************************************************
 !     Reformatted for F90 by JJMorcrette, ECMWF, 980714
 
 ! Parameters
 #include "tsmbkind.h"
 
-USE PARRRTM  , ONLY : JPBAND   ,JPG      ,JPXSEC   ,JPGPT
-USE YOERRTWN , ONLY : NG       ,NSPA     ,NSPB
-USE YOERRTFTR, ONLY : NGC      ,NGS      ,NGN      ,NGB       ,NGM     , WT
+USE OPARRRTM  , ONLY : JPBAND   ,JPG      ,JPXSEC   ,JPGPT
+USE OYOERRTWN , ONLY : NG       ,NSPA     ,NSPB
+USE OYOERRTFTR, ONLY : NGC      ,NGS      ,NGN      ,NGB       ,NGM     , WT
 ! Output
-USE YOERRTBG2, ONLY : CORR1    ,CORR2
-USE YOERRTRWT, ONLY : FREFA    ,FREFB    ,FREFADF  ,FREFBDF   ,RWGT
+USE OYOERRTBG2, ONLY : CORR1    ,CORR2
+USE OYOERRTRWT, ONLY : FREFA    ,FREFB    ,FREFADF  ,FREFBDF   ,RWGT
 !
-USE MODI_RRTM_CMBGB1
-USE MODI_RRTM_CMBGB2
-USE MODI_RRTM_CMBGB3
-USE MODI_RRTM_CMBGB4
-USE MODI_RRTM_CMBGB5
-USE MODI_RRTM_CMBGB6
-USE MODI_RRTM_CMBGB7
-USE MODI_RRTM_CMBGB8
-USE MODI_RRTM_CMBGB9
-USE MODI_RRTM_CMBGB10
-USE MODI_RRTM_CMBGB11
-USE MODI_RRTM_CMBGB12
-USE MODI_RRTM_CMBGB13
-USE MODI_RRTM_CMBGB14
-USE MODI_RRTM_CMBGB15
-USE MODI_RRTM_CMBGB16
+!USE MODI_ORRTM_CMBGB1
+!USE MODI_ORRTM_CMBGB2
+!USE MODI_ORRTM_CMBGB3
+!USE MODI_ORRTM_CMBGB4
+!USE MODI_ORRTM_CMBGB5
+!USE MODI_ORRTM_CMBGB6
+!USE MODI_ORRTM_CMBGB7
+!USE MODI_ORRTM_CMBGB8
+!USE MODI_ORRTM_CMBGB9
+!USE MODI_ORRTM_CMBGB10
+!USE MODI_ORRTM_CMBGB11
+!USE MODI_ORRTM_CMBGB12
+!USE MODI_ORRTM_CMBGB13
+!USE MODI_ORRTM_CMBGB14
+!USE MODI_ORRTM_CMBGB15
+!USE MODI_ORRTM_CMBGB16
 ! Local
 
 IMPLICIT NONE
@@ -107,22 +107,22 @@ ENDDO
 
 !  Reduce g-points for relevant data in each LW spectral band.
 
-CALL RRTM_CMBGB1
-CALL RRTM_CMBGB2
-CALL RRTM_CMBGB3
-CALL RRTM_CMBGB4
-CALL RRTM_CMBGB5
-CALL RRTM_CMBGB6
-CALL RRTM_CMBGB7
-CALL RRTM_CMBGB8
-CALL RRTM_CMBGB9
-CALL RRTM_CMBGB10
-CALL RRTM_CMBGB11
-CALL RRTM_CMBGB12
-CALL RRTM_CMBGB13
-CALL RRTM_CMBGB14
-CALL RRTM_CMBGB15
-CALL RRTM_CMBGB16
+CALL ORRTM_CMBGB1
+CALL ORRTM_CMBGB2
+CALL ORRTM_CMBGB3
+CALL ORRTM_CMBGB4
+CALL ORRTM_CMBGB5
+CALL ORRTM_CMBGB6
+CALL ORRTM_CMBGB7
+CALL ORRTM_CMBGB8
+CALL ORRTM_CMBGB9
+CALL ORRTM_CMBGB10
+CALL ORRTM_CMBGB11
+CALL ORRTM_CMBGB12
+CALL ORRTM_CMBGB13
+CALL ORRTM_CMBGB14
+CALL ORRTM_CMBGB15
+CALL ORRTM_CMBGB16
 
 RETURN
-END SUBROUTINE RRTM_INIT_140GP
+END SUBROUTINE ORRTM_INIT_140GP
similarity index 99%
rename from src/LIB/RAD/ECMWF_RAD/rrtm_kgb1.f90
rename to src/LIB/RAD/ECMWF_RAD/orrtm_kgb1.f90
index fa70008..eca6810 100644 (file)
@@ -5,7 +5,7 @@
 ! ECMWF_RAD2 2003/02/19 13:36:37
 !-----------------------------------------------------------------
 !OCL SCALAR
-SUBROUTINE RRTM_KGB1
+SUBROUTINE ORRTM_KGB1
 
 !     Originally by Eli J. Mlawer, Atmospheric & Environmental Research.
 !     BAND 1:  10-250 cm-1 (low - H2O; high - H2O)
@@ -15,7 +15,7 @@ SUBROUTINE RRTM_KGB1
 
 #include "tsmbkind.h"
 
-USE YOERRTO1 , ONLY : KAO     ,KBO     ,SELFREFO   ,FRACREFAO ,&
+USE OYOERRTO1 , ONLY : KAO     ,KBO     ,SELFREFO   ,FRACREFAO ,&
            &FRACREFBO  ,FORREFO
 
 !     ------------------------------------------------------------------
@@ -2045,4 +2045,4 @@ SELFREFO( :,16) = (/&
 
 !     -----------------------------------------------------------------
 RETURN
-END SUBROUTINE RRTM_KGB1
+END SUBROUTINE ORRTM_KGB1
similarity index 99%
rename from src/LIB/RAD/ECMWF_RAD/rrtm_kgb10.f90
rename to src/LIB/RAD/ECMWF_RAD/orrtm_kgb10.f90
index 28fa4b2..63bf138 100644 (file)
@@ -5,7 +5,7 @@
 ! ECMWF_RAD2 2003/02/19 13:36:37
 !-----------------------------------------------------------------
 !OCL SCALAR
-SUBROUTINE RRTM_KGB10
+SUBROUTINE ORRTM_KGB10
 
 !     Originally by Eli J. Mlawer, Atmospheric & Environmental Research.
 !     BAND 10:  1390-1480 cm-1 (low - H2O; high - H2O)
@@ -15,7 +15,7 @@ SUBROUTINE RRTM_KGB10
 
 #include "tsmbkind.h"
 
-USE YOERRTO10, ONLY : KAO     ,KBO      ,FRACREFAO   ,FRACREFBO
+USE OYOERRTO10, ONLY : KAO     ,KBO      ,FRACREFAO   ,FRACREFBO
 
 !     ------------------------------------------------------------------
 
@@ -1985,4 +1985,4 @@ KBO( :,59,16) = (/&
 
 !     -----------------------------------------------------------------
 RETURN
-END SUBROUTINE RRTM_KGB10
+END SUBROUTINE ORRTM_KGB10
similarity index 99%
rename from src/LIB/RAD/ECMWF_RAD/rrtm_kgb11.f90
rename to src/LIB/RAD/ECMWF_RAD/orrtm_kgb11.f90
index e519f19..5352a47 100644 (file)
@@ -5,7 +5,7 @@
 ! ECMWF_RAD2 2003/02/19 13:36:38
 !-----------------------------------------------------------------
 !OCL SCALAR
-SUBROUTINE RRTM_KGB11
+SUBROUTINE ORRTM_KGB11
 
 !     Originally by Eli J. Mlawer, Atmospheric & Environmental Research.
 !     BAND 11:  1480-1800 cm-1 (low - H2O; high - H2O)
@@ -15,7 +15,7 @@ SUBROUTINE RRTM_KGB11
 
 #include "tsmbkind.h"
 
-USE YOERRTO11, ONLY : KAO     ,KBO     ,SELFREFO    ,FRACREFAO ,FRACREFBO
+USE OYOERRTO11, ONLY : KAO     ,KBO     ,SELFREFO    ,FRACREFAO ,FRACREFBO
 
 !     ------------------------------------------------------------------
 
@@ -2040,4 +2040,4 @@ SELFREFO( :,16) = (/&
 
 !     -----------------------------------------------------------------
 RETURN
-END SUBROUTINE RRTM_KGB11
+END SUBROUTINE ORRTM_KGB11
similarity index 99%
rename from src/LIB/RAD/ECMWF_RAD/rrtm_kgb12.f90
rename to src/LIB/RAD/ECMWF_RAD/orrtm_kgb12.f90
index 383ef89..c295cb3 100644 (file)
@@ -5,7 +5,7 @@
 ! ECMWF_RAD2 2003/02/19 13:36:38
 !-----------------------------------------------------------------
 !OCL SCALAR
-SUBROUTINE RRTM_KGB12
+SUBROUTINE ORRTM_KGB12
 
 !     Originally by Eli J. Mlawer, Atmospheric & Environmental Research.
 !     BAND 12:  1800-2080 cm-1 (low - H2O,CO2; high - nothing)
@@ -15,8 +15,8 @@ SUBROUTINE RRTM_KGB12
 
 #include "tsmbkind.h"
 
-USE YOERRTO12, ONLY : KAO     ,SELFREFO   ,FRACREFAO
-USE YOERRTA12, ONLY : STRRAT
+USE OYOERRTO12, ONLY : KAO     ,SELFREFO   ,FRACREFAO
+USE OYOERRTA12, ONLY : STRRAT
 
 !     ------------------------------------------------------------------
 
@@ -3268,4 +3268,4 @@ FRACREFAO( : ,9) = (/&
 
 !     -----------------------------------------------------------------
 RETURN
-END SUBROUTINE RRTM_KGB12
+END SUBROUTINE ORRTM_KGB12
similarity index 99%
rename from src/LIB/RAD/ECMWF_RAD/rrtm_kgb13.f90
rename to src/LIB/RAD/ECMWF_RAD/orrtm_kgb13.f90
index c005107..9941d34 100644 (file)
@@ -5,7 +5,7 @@
 ! ECMWF_RAD2 2003/02/19 13:36:38
 !-----------------------------------------------------------------
 !OCL SCALAR
-SUBROUTINE RRTM_KGB13
+SUBROUTINE ORRTM_KGB13
 
 !     Originally by Eli J. Mlawer, Atmospheric & Environmental Research.
 !     BAND 13:  2080-2250 cm-1 (low - H2O,N2O; high - nothing)
@@ -15,8 +15,8 @@ SUBROUTINE RRTM_KGB13
 
 #include "tsmbkind.h"
 
-USE YOERRTO13, ONLY : KAO     ,SELFREFO   ,FRACREFAO
-USE YOERRTA13, ONLY : STRRAT
+USE OYOERRTO13, ONLY : KAO     ,SELFREFO   ,FRACREFAO
+USE OYOERRTA13, ONLY : STRRAT
 
 !     ------------------------------------------------------------------
 
@@ -3268,4 +3268,4 @@ FRACREFAO( : , 9) = (/&
 
 !     ------------------------------------------------------------------
 RETURN
-END SUBROUTINE RRTM_KGB13
+END SUBROUTINE ORRTM_KGB13
similarity index 99%
rename from src/LIB/RAD/ECMWF_RAD/rrtm_kgb14.f90
rename to src/LIB/RAD/ECMWF_RAD/orrtm_kgb14.f90
index 5901a22..2dc9e74 100644 (file)
@@ -5,7 +5,7 @@
 ! ECMWF_RAD2 2003/02/19 13:36:38
 !-----------------------------------------------------------------
 !OCL SCALAR
-SUBROUTINE RRTM_KGB14
+SUBROUTINE ORRTM_KGB14
 
 !     Originally by Eli J. Mlawer, Atmospheric & Environmental Research.
 !     BAND 14:  2250-2380 cm-1 (low - CO2; high - CO2)
@@ -15,7 +15,7 @@ SUBROUTINE RRTM_KGB14
 
 #include "tsmbkind.h"
 
-USE YOERRTO14, ONLY : KAO     ,KBO     ,SELFREFO   ,FRACREFAO  ,FRACREFBO
+USE OYOERRTO14, ONLY : KAO     ,KBO     ,SELFREFO   ,FRACREFAO  ,FRACREFBO
 
 !     ------------------------------------------------------------------
 
@@ -2040,4 +2040,4 @@ SELFREFO( :,16) = (/&
 
 !     -----------------------------------------------------------------
 RETURN
-END SUBROUTINE RRTM_KGB14
+END SUBROUTINE ORRTM_KGB14
similarity index 99%
rename from src/LIB/RAD/ECMWF_RAD/rrtm_kgb15.f90
rename to src/LIB/RAD/ECMWF_RAD/orrtm_kgb15.f90
index 9a1f945..01d32c9 100644 (file)
@@ -5,7 +5,7 @@
 ! ECMWF_RAD2 2003/02/19 13:36:38
 !-----------------------------------------------------------------
 !OCL SCALAR
-SUBROUTINE RRTM_KGB15
+SUBROUTINE ORRTM_KGB15
 
 !     Originally by Eli J. Mlawer, Atmospheric & Environmental Research.
 !     BAND 15:  2380-2600 cm-1 (low - N2O,CO2; high - nothing)
@@ -15,8 +15,8 @@ SUBROUTINE RRTM_KGB15
 
 #include "tsmbkind.h"
 
-USE YOERRTO15, ONLY : KAO     ,SELFREFO   ,FRACREFAO
-USE YOERRTA15, ONLY : STRRAT
+USE OYOERRTO15, ONLY : KAO     ,SELFREFO   ,FRACREFAO
+USE OYOERRTA15, ONLY : STRRAT
 
 !     ------------------------------------------------------------------
 
@@ -3268,4 +3268,4 @@ FRACREFAO( :, 9) = (/&
 
 !     -----------------------------------------------------------------
 RETURN
-END SUBROUTINE RRTM_KGB15
+END SUBROUTINE ORRTM_KGB15
similarity index 99%
rename from src/LIB/RAD/ECMWF_RAD/rrtm_kgb16.f90
rename to src/LIB/RAD/ECMWF_RAD/orrtm_kgb16.f90
index 4b2eec7..de7dd90 100644 (file)
@@ -5,7 +5,7 @@
 ! ECMWF_RAD2 2003/02/19 13:36:39
 !-----------------------------------------------------------------
 !OCL SCALAR
-SUBROUTINE RRTM_KGB16
+SUBROUTINE ORRTM_KGB16
 
 !     Originally by Eli J. Mlawer, Atmospheric & Environmental Research.
 !     BAND 16:  2600-3000 cm-1 (low - H2O,CH4; high - nothing)
@@ -15,8 +15,8 @@ SUBROUTINE RRTM_KGB16
 
 #include "tsmbkind.h"
 
-USE YOERRTO16, ONLY : KAO     ,SELFREFO   ,FRACREFAO
-USE YOERRTA16, ONLY : STRRAT
+USE OYOERRTO16, ONLY : KAO     ,SELFREFO   ,FRACREFAO
+USE OYOERRTA16, ONLY : STRRAT
 
 !     ------------------------------------------------------------------
 
@@ -3268,4 +3268,4 @@ FRACREFAO( :, 9) = (/&
 
 !     -----------------------------------------------------------------
 RETURN
-END SUBROUTINE RRTM_KGB16
+END SUBROUTINE ORRTM_KGB16
similarity index 99%
rename from src/LIB/RAD/ECMWF_RAD/rrtm_kgb2.f90
rename to src/LIB/RAD/ECMWF_RAD/orrtm_kgb2.f90
index fb4bbbe..d4d009a 100644 (file)
@@ -5,7 +5,7 @@
 ! ECMWF_RAD2 2003/02/19 13:36:39
 !-----------------------------------------------------------------
 !OCL SCALAR
-SUBROUTINE RRTM_KGB2
+SUBROUTINE ORRTM_KGB2
 
 !     Originally by Eli J. Mlawer, Atmospheric & Environmental Research.
 !     BAND 2:  250-500 cm-1 (low - H2O; high - H2O)
@@ -15,9 +15,9 @@ SUBROUTINE RRTM_KGB2
 
 #include "tsmbkind.h"
 
-USE YOERRTO2 , ONLY : KAO     ,KBO     ,SELFREFO   ,FRACREFAO  ,&
+USE OYOERRTO2 , ONLY : KAO     ,KBO     ,SELFREFO   ,FRACREFAO  ,&
            &FRACREFBO  ,FORREFO
-USE YOERRTA2 , ONLY : REFPARAM
+USE OYOERRTA2 , ONLY : REFPARAM
 
 !     ------------------------------------------------------------------
 
@@ -2117,4 +2117,4 @@ FRACREFAO( :,13) = (/&
 
 !     -----------------------------------------------------------------
 RETURN
-END SUBROUTINE RRTM_KGB2
+END SUBROUTINE ORRTM_KGB2
similarity index 83%
rename from src/LIB/RAD/ECMWF_RAD/rrtm_kgb3.f90
rename to src/LIB/RAD/ECMWF_RAD/orrtm_kgb3.f90
index 1ba74a0..cd199fa 100644 (file)
@@ -5,7 +5,7 @@
 ! ECMWF_RAD1_MODIF_IDRIS 2003/02/19 13:36:32
 !-----------------------------------------------------------------
 !OCL SCALAR
-SUBROUTINE RRTM_KGB3
+SUBROUTINE ORRTM_KGB3
 
 !     Originally by Eli J. Mlawer, Atmospheric & Environmental Research.
 !     BAND 3:  500-630 cm-1 (low - H2O,CO2; high - H2O,CO2)
@@ -28,15 +28,15 @@ USE PARKIND1, ONLY :&
 ! --------------------------------------
 
 
-USE YOERRTO3 , ONLY : KAO     ,KBO     ,SELFREFO   ,FRACREFAO  ,&
+USE OYOERRTO3 , ONLY : KAO     ,KBO     ,SELFREFO   ,FRACREFAO  ,&
            &FRACREFBO  ,FORREFO    ,ABSN2OAO   ,ABSN2OBO
-USE YOERRTA3 , ONLY : ABSN2OA ,ABSN2OB  ,ETAREF    ,H2OREF     ,&
+USE OYOERRTA3 , ONLY : ABSN2OA ,ABSN2OB  ,ETAREF    ,H2OREF     ,&
            &N2OREF     ,CO2REF     ,STRRAT
 
 !     ------------------------------------------------------------------
-USE MODI_RRTM_KGB3_A
-USE MODI_RRTM_KGB3_B
-USE MODI_RRTM_KGB3_C
+!USE MODI_RRTM_KGB3_A
+!USE MODI_RRTM_KGB3_B
+!USE MODI_RRTM_KGB3_C
 !
 
 IMPLICIT NONE
@@ -49,4 +49,4 @@ CALL RRTM_KGB3_C
 
 !     -----------------------------------------------------------------
 RETURN
-END SUBROUTINE RRTM_KGB3
+END SUBROUTINE ORRTM_KGB3
similarity index 83%
rename from src/LIB/RAD/ECMWF_RAD/rrtm_kgb4.f90
rename to src/LIB/RAD/ECMWF_RAD/orrtm_kgb4.f90
index 7d3b746..d945da2 100644 (file)
@@ -5,7 +5,7 @@
 ! ECMWF_RAD1_MODIF_IDRIS 2003/02/19 13:36:33
 !-----------------------------------------------------------------
 !OCL SCALAR
-SUBROUTINE RRTM_KGB4
+SUBROUTINE ORRTM_KGB4
 
 !     Originally by Eli J. Mlawer, Atmospheric & Environmental Research.
 !     BAND 4:  630-700 cm-1 (low - H2O,CO2; high - O3,CO2)
@@ -30,14 +30,14 @@ USE PARKIND1, ONLY :&
 ! --------------------------------------
 
 
-USE YOERRTO4 , ONLY : KAO     ,KBO     ,SELFREFO   ,FRACREFAO  ,FRACREFBO
-USE YOERRTA4 , ONLY : STRRAT1   ,STRRAT2
+USE OYOERRTO4 , ONLY : KAO     ,KBO     ,SELFREFO   ,FRACREFAO  ,FRACREFBO
+USE OYOERRTA4 , ONLY : STRRAT1   ,STRRAT2
 
 !     ------------------------------------------------------------------
 !
-USE MODI_RRTM_KGB4_A
-USE MODI_RRTM_KGB4_B
-USE MODI_RRTM_KGB4_C
+!USE MODI_RRTM_KGB4_A
+!USE MODI_RRTM_KGB4_B
+!USE MODI_RRTM_KGB4_C
 
 !
 
@@ -50,4 +50,4 @@ CALL RRTM_KGB4_C
 !!!! JDJD Decoupage en 3 parties en raison de pbs de compilation IDRIS
 !     -----------------------------------------------------------------
 RETURN
-END SUBROUTINE RRTM_KGB4
+END SUBROUTINE ORRTM_KGB4
similarity index 84%
rename from src/LIB/RAD/ECMWF_RAD/rrtm_kgb5.f90
rename to src/LIB/RAD/ECMWF_RAD/orrtm_kgb5.f90
index 5812ca1..202a1b2 100644 (file)
@@ -5,7 +5,7 @@
 ! ECMWF_RAD1_MODIF_IDRIS 2003/02/19 13:36:33
 !-----------------------------------------------------------------
 !OCL SCALAR
-SUBROUTINE RRTM_KGB5
+SUBROUTINE ORRTM_KGB5
 
 !     Originally by Eli J. Mlawer, Atmospheric & Environmental Research.
 !     BAND 5:  700-820 cm-1 (low - H2O,CO2; high - O3,CO2)
@@ -30,14 +30,14 @@ USE PARKIND1, ONLY :&
 ! --------------------------------------
 
 
-USE YOERRTO5 , ONLY : KAO     ,KBO     ,SELFREFO   ,FRACREFAO  ,&
+USE OYOERRTO5 , ONLY : KAO     ,KBO     ,SELFREFO   ,FRACREFAO  ,&
            &FRACREFBO, CCL4O
-USE YOERRTA5 , ONLY : STRRAT1   ,STRRAT2
+USE OYOERRTA5 , ONLY : STRRAT1   ,STRRAT2
 
 !     ------------------------------------------------------------------
-USE MODI_RRTM_KGB5_A
-USE MODI_RRTM_KGB5_B
-USE MODI_RRTM_KGB5_C
+!USE MODI_RRTM_KGB5_A
+!USE MODI_RRTM_KGB5_B
+!USE MODI_RRTM_KGB5_C
 !
 
 IMPLICIT NONE
@@ -49,4 +49,4 @@ CALL RRTM_KGB5_C
 !!!! JDJD Decoupage en 3 parties en raison de pbs de compilation IDRIS
 !     -----------------------------------------------------------------
 RETURN
-END SUBROUTINE RRTM_KGB5
+END SUBROUTINE ORRTM_KGB5
similarity index 99%
rename from src/LIB/RAD/ECMWF_RAD/rrtm_kgb6.f90
rename to src/LIB/RAD/ECMWF_RAD/orrtm_kgb6.f90
index 02383bb..528b09f 100644 (file)
@@ -5,7 +5,7 @@
 ! ECMWF_RAD2 2003/02/19 13:36:40
 !-----------------------------------------------------------------
 !OCL SCALAR
-SUBROUTINE RRTM_KGB6
+SUBROUTINE ORRTM_KGB6
 
 !     Originally by Eli J. Mlawer, Atmospheric & Environmental Research.
 !     BAND 6:  820-980 cm-1 (low - H2O; high - nothing)
@@ -15,7 +15,7 @@ SUBROUTINE RRTM_KGB6
 
 #include "tsmbkind.h"
 
-USE YOERRTO6 , ONLY : KAO     ,SELFREFO   ,FRACREFAO  ,CFC11ADJO ,&
+USE OYOERRTO6 , ONLY : KAO     ,SELFREFO   ,FRACREFAO  ,CFC11ADJO ,&
            &CFC12O   , ABSCO2O 
 
 !     ------------------------------------------------------------------
@@ -536,4 +536,4 @@ SELFREFO( :,16) = (/&
 
 !     -----------------------------------------------------------------
 RETURN
-END SUBROUTINE RRTM_KGB6
+END SUBROUTINE ORRTM_KGB6
similarity index 99%
rename from src/LIB/RAD/ECMWF_RAD/rrtm_kgb7.f90
rename to src/LIB/RAD/ECMWF_RAD/orrtm_kgb7.f90
index f1f697e..ed0743f 100644 (file)
@@ -5,7 +5,7 @@
 ! ECMWF_RAD2 2003/02/19 13:36:41
 !-----------------------------------------------------------------
 !OCL SCALAR
-SUBROUTINE RRTM_KGB7
+SUBROUTINE ORRTM_KGB7
 
 !     Originally by Eli J. Mlawer, Atmospheric & Environmental Research.
 !     BAND 7:  980-1080 cm-1 (low - H2O,O3; high - O3)
@@ -15,9 +15,9 @@ SUBROUTINE RRTM_KGB7
 
 #include "tsmbkind.h"
 
-USE YOERRTO7 , ONLY : KAO     ,KBO     ,SELFREFO   ,FRACREFAO  ,&
+USE OYOERRTO7 , ONLY : KAO     ,KBO     ,SELFREFO   ,FRACREFAO  ,&
            &FRACREFBO  ,ABSCO2O
-USE YOERRTA7 , ONLY : STRRAT
+USE OYOERRTA7 , ONLY : STRRAT
 
 !     ------------------------------------------------------------------
 
@@ -4797,4 +4797,4 @@ FRACREFAO( :, 9) = (/&
 
 !     -----------------------------------------------------------------
 RETURN
-END SUBROUTINE RRTM_KGB7
+END SUBROUTINE ORRTM_KGB7
similarity index 99%
rename from src/LIB/RAD/ECMWF_RAD/rrtm_kgb8.f90
rename to src/LIB/RAD/ECMWF_RAD/orrtm_kgb8.f90
index 17c4ffd..2f83787 100644 (file)
@@ -5,7 +5,7 @@
 ! ECMWF_RAD2 2003/02/19 13:36:41
 !-----------------------------------------------------------------
 !OCL SCALAR
-SUBROUTINE RRTM_KGB8
+SUBROUTINE ORRTM_KGB8
 
 !     Originally by Eli J. Mlawer, Atmospheric & Environmental Research.
 !     BAND 8:  1080-1180 cm-1 (low (i.e.>~300mb) - H2O; high - O3)
@@ -15,10 +15,10 @@ SUBROUTINE RRTM_KGB8
 
 #include "tsmbkind.h"
 
-USE YOERRTO8 , ONLY : KAO     ,KBO       ,SELFREFO ,FRACREFAO ,&
+USE OYOERRTO8 , ONLY : KAO     ,KBO       ,SELFREFO ,FRACREFAO ,&
            &FRACREFBO, CFC12O  ,CFC22ADJO ,ABSCO2AO ,ABSCO2BO  ,&
            &ABSN2OAO , ABSN2OBO
-USE YOERRTA8 , ONLY : H2OREF  ,N2OREF    ,O3REF
+USE OYOERRTA8 , ONLY : H2OREF  ,N2OREF    ,O3REF
 
 !     ------------------------------------------------------------------
 
@@ -2130,4 +2130,4 @@ SELFREFO( :,16) = (/&
 
 !     -----------------------------------------------------------------
 RETURN
-END SUBROUTINE RRTM_KGB8
+END SUBROUTINE ORRTM_KGB8
similarity index 99%
rename from src/LIB/RAD/ECMWF_RAD/rrtm_kgb9.f90
rename to src/LIB/RAD/ECMWF_RAD/orrtm_kgb9.f90
index 3176548..5a96cca 100644 (file)
@@ -5,7 +5,7 @@
 ! ECMWF_RAD2 2003/02/19 13:36:41
 !-----------------------------------------------------------------
 !OCL SCALAR
-SUBROUTINE RRTM_KGB9
+SUBROUTINE ORRTM_KGB9
 
 !     Originally by Eli J. Mlawer, Atmospheric & Environmental Research.
 !     BAND 9:  1180-1390 cm-1 (low - H2O,CH4; high - CH4)
@@ -15,9 +15,9 @@ SUBROUTINE RRTM_KGB9
 
 #include "tsmbkind.h"
 
-USE YOERRTO9 , ONLY : KAO     ,KBO     ,SELFREFO   ,FRACREFAO  ,&
+USE OYOERRTO9 , ONLY : KAO     ,KBO     ,SELFREFO   ,FRACREFAO  ,&
            &FRACREFBO, ABSN2OO
-USE YOERRTA9 , ONLY : N2OREF  ,H2OREF  ,CH4REF     ,ETAREF     ,STRRAT
+USE OYOERRTA9 , ONLY : N2OREF  ,H2OREF  ,CH4REF     ,ETAREF     ,STRRAT
 
 !     ------------------------------------------------------------------
 
@@ -4830,4 +4830,4 @@ FRACREFAO( :, 9) = (/&
 
 !     -----------------------------------------------------------------
 RETURN
-END SUBROUTINE RRTM_KGB9
+END SUBROUTINE ORRTM_KGB9
similarity index 97%
rename from src/LIB/RAD/ECMWF_RAD/rrtm_setcoef_140gp.f90
rename to src/LIB/RAD/ECMWF_RAD/orrtm_setcoef_140gp.f90
index ed0334d..dccad87 100644 (file)
@@ -4,7 +4,7 @@
 ! $Source$ $Revision$
 ! ECMWF_RAD2 2003/02/19 13:36:41
 !-----------------------------------------------------------------
-SUBROUTINE RRTM_SETCOEF_140GP (KLEV,COLDRY,WKL &
+SUBROUTINE ORRTM_SETCOEF_140GP (KLEV,COLDRY,WKL &
  &, FAC00,FAC01,FAC10,FAC11,FORFAC,JP,JT,JT1 &
  &, COLH2O,COLCO2,COLO3,COLN2O,COLCH4,COLO2,CO2MULT &
  &, LAYTROP,LAYSWTCH,LAYLOW,PAVEL,TAVEL,SELFFAC,SELFFRAC,INDSELF)
@@ -18,8 +18,8 @@ SUBROUTINE RRTM_SETCOEF_140GP (KLEV,COLDRY,WKL &
 
 #include "tsmbkind.h"
 
-USE PARRRTM  , ONLY : JPLAY     ,JPBAND    ,JPGPT   ,JPINPX
-USE YOERRTRF , ONLY : PREF      ,PREFLOG   ,TREF
+USE OPARRRTM  , ONLY : JPLAY     ,JPBAND    ,JPGPT   ,JPINPX
+USE OYOERRTRF , ONLY : PREF      ,PREFLOG   ,TREF
 
 IMPLICIT NONE
 
@@ -196,4 +196,4 @@ ENDDO
 IF (LAYLOW == 0) LAYLOW=1
 
 RETURN
-END SUBROUTINE RRTM_SETCOEF_140GP
+END SUBROUTINE ORRTM_SETCOEF_140GP
similarity index 98%
rename from src/LIB/RAD/ECMWF_RAD/rrtm_taumol1.f90
rename to src/LIB/RAD/ECMWF_RAD/orrtm_taumol1.f90
index 6d66ef4..2994e8f 100644 (file)
 !******************************************************************************
 
 
-SUBROUTINE RRTM_TAUMOL1 (KLEV,TAU,&
+SUBROUTINE ORRTM_TAUMOL1 (KLEV,TAU,&
   &TAUAERL,FAC00,FAC01,FAC10,FAC11,FORFAC,JP,JT,JT1,&
   &COLH2O,LAYTROP,SELFFAC,SELFFRAC,INDSELF,PFRAC)
 
@@ -146,9 +146,9 @@ SUBROUTINE RRTM_TAUMOL1 (KLEV,TAU,&
 
 #include "tsmbkind.h"
 
-USE PARRRTM  , ONLY : JPLAY  ,JPBAND ,JPGPT  ,JPXSEC ,NG1
-USE YOERRTWN , ONLY : NG     ,NSPA   ,NSPB
-USE YOERRTA1 , ONLY : ABSA   ,ABSB   ,FRACREFA, FRACREFB,&
+USE OPARRRTM  , ONLY : JPLAY  ,JPBAND ,JPGPT  ,JPXSEC ,NG1
+USE OYOERRTWN , ONLY : NG     ,NSPA   ,NSPB
+USE OYOERRTA1 , ONLY : ABSA   ,ABSB   ,FRACREFA, FRACREFB,&
             &FORREF   ,KA     ,KB     ,SELFREF 
 
 !#include "yoeratm.h"
@@ -248,4 +248,4 @@ DO IG = 1, NG1
 ENDDO
 
 RETURN
-END SUBROUTINE RRTM_TAUMOL1
+END SUBROUTINE ORRTM_TAUMOL1
similarity index 90%
rename from src/LIB/RAD/ECMWF_RAD/rrtm_taumol10.f90
rename to src/LIB/RAD/ECMWF_RAD/orrtm_taumol10.f90
index 28e23d9..9f3484f 100644 (file)
@@ -5,7 +5,7 @@
 ! ECMWF_RAD2 2003/02/19 13:36:41
 !-----------------------------------------------------------------
 !*******************************************************************************
-SUBROUTINE RRTM_TAUMOL10 (KLEV,TAU,&
+SUBROUTINE ORRTM_TAUMOL10 (KLEV,TAU,&
   &TAUAERL,FAC00,FAC01,FAC10,FAC11,JP,JT,JT1,&
   &COLH2O,LAYTROP,PFRAC)
 
@@ -19,9 +19,9 @@ SUBROUTINE RRTM_TAUMOL10 (KLEV,TAU,&
 
 #include "tsmbkind.h"
 
-USE PARRRTM  , ONLY : JPLAY  ,JPBAND ,JPGPT  ,JPXSEC ,NG10   ,NGS9
-USE YOERRTWN , ONLY : NG     ,NSPA   ,NSPB
-USE YOERRTA10, ONLY : ABSA   ,ABSB   ,FRACREFA, FRACREFB, KA      , KB
+USE OPARRRTM  , ONLY : JPLAY  ,JPBAND ,JPGPT  ,JPXSEC ,NG10   ,NGS9
+USE OYOERRTWN , ONLY : NG     ,NSPA   ,NSPB
+USE OYOERRTA10, ONLY : ABSA   ,ABSB   ,FRACREFA, FRACREFB, KA      , KB
 
 !  Input
 !#include "yoeratm.h"
@@ -106,4 +106,4 @@ DO IG = 1, NG10
 ENDDO
 
 RETURN
-END SUBROUTINE RRTM_TAUMOL10
+END SUBROUTINE ORRTM_TAUMOL10
similarity index 92%
rename from src/LIB/RAD/ECMWF_RAD/rrtm_taumol11.f90
rename to src/LIB/RAD/ECMWF_RAD/orrtm_taumol11.f90
index 90e0374..6f5b423 100644 (file)
@@ -5,7 +5,7 @@
 ! ECMWF_RAD2 2003/02/19 13:36:41
 !-----------------------------------------------------------------
 !******************************************************************************
-SUBROUTINE RRTM_TAUMOL11 (KLEV,TAU,&
+SUBROUTINE ORRTM_TAUMOL11 (KLEV,TAU,&
   &TAUAERL,FAC00,FAC01,FAC10,FAC11,JP,JT,JT1,&
   &COLH2O,LAYTROP,SELFFAC,SELFFRAC,INDSELF,PFRAC)
 
@@ -19,9 +19,9 @@ SUBROUTINE RRTM_TAUMOL11 (KLEV,TAU,&
 
 #include "tsmbkind.h"
 
-USE PARRRTM  , ONLY : JPLAY  ,JPBAND ,JPGPT  ,JPXSEC ,NG11  ,NGS10
-USE YOERRTWN , ONLY : NG     ,NSPA   ,NSPB
-USE YOERRTA11, ONLY : ABSA   ,ABSB   ,FRACREFA, FRACREFB,&
+USE OPARRRTM  , ONLY : JPLAY  ,JPBAND ,JPGPT  ,JPXSEC ,NG11  ,NGS10
+USE OYOERRTWN , ONLY : NG     ,NSPA   ,NSPB
+USE OYOERRTA11, ONLY : ABSA   ,ABSB   ,FRACREFA, FRACREFB,&
             &KA      , KB     ,SELFREF
 
 !  Input
@@ -117,4 +117,4 @@ DO IG = 1, NG11
 ENDDO
 
 RETURN
-END SUBROUTINE RRTM_TAUMOL11
+END SUBROUTINE ORRTM_TAUMOL11
similarity index 94%
rename from src/LIB/RAD/ECMWF_RAD/rrtm_taumol12.f90
rename to src/LIB/RAD/ECMWF_RAD/orrtm_taumol12.f90
index f585288..7edfd30 100644 (file)
@@ -5,7 +5,7 @@
 ! ECMWF_RAD2 2003/02/19 13:36:41
 !-----------------------------------------------------------------
 !----------------------------------------------------------------------------
-SUBROUTINE RRTM_TAUMOL12 (KLEV,TAU,&
+SUBROUTINE ORRTM_TAUMOL12 (KLEV,TAU,&
   &TAUAERL,FAC00,FAC01,FAC10,FAC11,JP,JT,JT1,ONEMINUS,&
   &COLH2O,COLCO2,LAYTROP,SELFFAC,SELFFRAC,INDSELF,PFRAC)
 
@@ -19,9 +19,9 @@ SUBROUTINE RRTM_TAUMOL12 (KLEV,TAU,&
 
 #include "tsmbkind.h"
 
-USE PARRRTM  , ONLY : JPLAY  ,JPBAND  ,JPGPT  ,JPXSEC ,NG12 ,NGS11
-USE YOERRTWN , ONLY : NG     ,NSPA    ,NSPB
-USE YOERRTA12, ONLY : ABSA   ,FRACREFA,KA     ,SELFREF,STRRAT
+USE OPARRRTM  , ONLY : JPLAY  ,JPBAND  ,JPGPT  ,JPXSEC ,NG12 ,NGS11
+USE OYOERRTWN , ONLY : NG     ,NSPA    ,NSPB
+USE OYOERRTA12, ONLY : ABSA   ,FRACREFA,KA     ,SELFREF,STRRAT
 
 !  Input
 !#include "yoeratm.h"
@@ -157,4 +157,4 @@ DO IG = 1, NG12
 ENDDO
 
 RETURN
-END SUBROUTINE RRTM_TAUMOL12
+END SUBROUTINE ORRTM_TAUMOL12
similarity index 94%
rename from src/LIB/RAD/ECMWF_RAD/rrtm_taumol13.f90
rename to src/LIB/RAD/ECMWF_RAD/orrtm_taumol13.f90
index 23c2cbc..0068871 100644 (file)
@@ -5,7 +5,7 @@
 ! ECMWF_RAD2 2003/02/19 13:36:42
 !-----------------------------------------------------------------
 !----------------------------------------------------------------------------
-SUBROUTINE RRTM_TAUMOL13 (KLEV,TAU,&
+SUBROUTINE ORRTM_TAUMOL13 (KLEV,TAU,&
   &TAUAERL,FAC00,FAC01,FAC10,FAC11,JP,JT,JT1,ONEMINUS,&
   &COLH2O,COLN2O,LAYTROP,SELFFAC,SELFFRAC,INDSELF,PFRAC)
 
@@ -18,9 +18,9 @@ SUBROUTINE RRTM_TAUMOL13 (KLEV,TAU,&
 
 #include "tsmbkind.h"
 
-USE PARRRTM  , ONLY : JPLAY  ,JPBAND ,JPGPT  ,JPXSEC ,NG13  ,NGS12
-USE YOERRTWN , ONLY : NG     ,NSPA   ,NSPB
-USE YOERRTA13, ONLY : ABSA   ,FRACREFA,KA    ,SELFREF,STRRAT
+USE OPARRRTM  , ONLY : JPLAY  ,JPBAND ,JPGPT  ,JPXSEC ,NG13  ,NGS12
+USE OYOERRTWN , ONLY : NG     ,NSPA   ,NSPB
+USE OYOERRTA13, ONLY : ABSA   ,FRACREFA,KA    ,SELFREF,STRRAT
 
 !  Input
 !#include "yoeratm.h"
@@ -156,4 +156,4 @@ DO IG = 1, NG13
 ENDDO
 
 RETURN
-END SUBROUTINE RRTM_TAUMOL13
+END SUBROUTINE ORRTM_TAUMOL13
similarity index 93%
rename from src/LIB/RAD/ECMWF_RAD/rrtm_taumol14.f90
rename to src/LIB/RAD/ECMWF_RAD/orrtm_taumol14.f90
index 2d99637..8aff660 100644 (file)
@@ -5,7 +5,7 @@
 ! ECMWF_RAD2 2003/02/19 13:36:42
 !-----------------------------------------------------------------
 !******************************************************************************
-SUBROUTINE RRTM_TAUMOL14 (KLEV,TAU,&
+SUBROUTINE ORRTM_TAUMOL14 (KLEV,TAU,&
   &TAUAERL,FAC00,FAC01,FAC10,FAC11,JP,JT,JT1,&
   &COLCO2,LAYTROP,SELFFAC,SELFFRAC,INDSELF,PFRAC)
 
@@ -18,9 +18,9 @@ SUBROUTINE RRTM_TAUMOL14 (KLEV,TAU,&
 
 #include "tsmbkind.h"
 
-USE PARRRTM  , ONLY : JPLAY  ,JPBAND ,JPGPT  ,JPXSEC ,NG14  ,NGS13
-USE YOERRTWN , ONLY : NG     ,NSPA   ,NSPB
-USE YOERRTA14, ONLY : ABSA   ,ABSB   ,FRACREFA, FRACREFB,&
+USE OPARRRTM  , ONLY : JPLAY  ,JPBAND ,JPGPT  ,JPXSEC ,NG14  ,NGS13
+USE OYOERRTWN , ONLY : NG     ,NSPA   ,NSPB
+USE OYOERRTA14, ONLY : ABSA   ,ABSB   ,FRACREFA, FRACREFB,&
               &KA    , KB     ,SELFREF
 
 IMPLICIT NONE
@@ -130,4 +130,4 @@ DO LAY = LAYTROP+1, KLEV
 ENDDO
 
 RETURN
-END SUBROUTINE RRTM_TAUMOL14
+END SUBROUTINE ORRTM_TAUMOL14
similarity index 95%
rename from src/LIB/RAD/ECMWF_RAD/rrtm_taumol15.f90
rename to src/LIB/RAD/ECMWF_RAD/orrtm_taumol15.f90
index d30c3f3..a496d73 100644 (file)
@@ -5,7 +5,7 @@
 ! ECMWF_RAD2 2003/02/19 13:36:42
 !-----------------------------------------------------------------
 !----------------------------------------------------------------------------
-SUBROUTINE RRTM_TAUMOL15 (KLEV,TAU,&
+SUBROUTINE ORRTM_TAUMOL15 (KLEV,TAU,&
   &TAUAERL,FAC00,FAC01,FAC10,FAC11,JP,JT,JT1,ONEMINUS,&
   &COLH2O,COLCO2,COLN2O,LAYTROP,SELFFAC,SELFFRAC,INDSELF,PFRAC)
 
@@ -18,9 +18,9 @@ SUBROUTINE RRTM_TAUMOL15 (KLEV,TAU,&
 
 #include "tsmbkind.h"
 
-USE PARRRTM  , ONLY : JPLAY  ,JPBAND ,JPGPT  ,JPXSEC ,NG15  ,NGS14
-USE YOERRTWN , ONLY : NG     ,NSPA   ,NSPB
-USE YOERRTA15, ONLY : ABSA   ,FRACREFA,KA    ,SELFREF,STRRAT
+USE OPARRRTM  , ONLY : JPLAY  ,JPBAND ,JPGPT  ,JPXSEC ,NG15  ,NGS14
+USE OYOERRTWN , ONLY : NG     ,NSPA   ,NSPB
+USE OYOERRTA15, ONLY : ABSA   ,FRACREFA,KA    ,SELFREF,STRRAT
 
 
 IMPLICIT NONE
@@ -172,4 +172,4 @@ DO LAY = LAYTROP+1, KLEV
 ENDDO
 
 RETURN
-END SUBROUTINE RRTM_TAUMOL15
+END SUBROUTINE ORRTM_TAUMOL15
similarity index 95%
rename from src/LIB/RAD/ECMWF_RAD/rrtm_taumol16.f90
rename to src/LIB/RAD/ECMWF_RAD/orrtm_taumol16.f90
index 4315bcd..6ec879a 100644 (file)
@@ -5,7 +5,7 @@
 ! ECMWF_RAD2 2003/02/19 13:36:42
 !-----------------------------------------------------------------
 !----------------------------------------------------------------------------
-SUBROUTINE RRTM_TAUMOL16 (KLEV,TAU,&
+SUBROUTINE ORRTM_TAUMOL16 (KLEV,TAU,&
   &TAUAERL,FAC00,FAC01,FAC10,FAC11,JP,JT,JT1,ONEMINUS,&
   &COLH2O,COLCH4,LAYTROP,SELFFAC,SELFFRAC,INDSELF,PFRAC)
 
@@ -18,9 +18,9 @@ SUBROUTINE RRTM_TAUMOL16 (KLEV,TAU,&
 
 #include "tsmbkind.h"
 
-USE PARRRTM  , ONLY : JPLAY  ,JPBAND ,JPGPT  ,JPXSEC ,NG16  ,NGS15
-USE YOERRTWN , ONLY : NG     ,NSPA   ,NSPB
-USE YOERRTA16, ONLY : ABSA   ,FRACREFA,KA    ,SELFREF,STRRAT
+USE OPARRRTM  , ONLY : JPLAY  ,JPBAND ,JPGPT  ,JPXSEC ,NG16  ,NGS15
+USE OYOERRTWN , ONLY : NG     ,NSPA   ,NSPB
+USE OYOERRTA16, ONLY : ABSA   ,FRACREFA,KA    ,SELFREF,STRRAT
 
 
 IMPLICIT NONE
@@ -171,4 +171,4 @@ DO LAY = LAYTROP+1, KLEV
 ENDDO
 
 RETURN
-END SUBROUTINE RRTM_TAUMOL16
+END SUBROUTINE ORRTM_TAUMOL16
similarity index 94%
rename from src/LIB/RAD/ECMWF_RAD/rrtm_taumol2.f90
rename to src/LIB/RAD/ECMWF_RAD/orrtm_taumol2.f90
index f7b3179..0ad531c 100644 (file)
@@ -5,7 +5,7 @@
 ! ECMWF_RAD2 2003/02/19 13:36:42
 !-----------------------------------------------------------------
 !----------------------------------------------------------------------------
-SUBROUTINE RRTM_TAUMOL2 (KLEV,TAU,COLDRY,&
+SUBROUTINE ORRTM_TAUMOL2 (KLEV,TAU,COLDRY,&
   &TAUAERL,FAC00,FAC01,FAC10,FAC11,FORFAC,JP,JT,JT1,&
   &COLH2O,LAYTROP,SELFFAC,SELFFRAC,INDSELF,PFRAC)
 
@@ -20,11 +20,11 @@ SUBROUTINE RRTM_TAUMOL2 (KLEV,TAU,COLDRY,&
 
 #include "tsmbkind.h"
 
-USE PARRRTM  , ONLY : JPLAY  ,JPBAND ,JPGPT  ,JPXSEC ,NG2   ,NGS1
-USE YOERRTWN , ONLY : NG     ,NSPA   ,NSPB
-USE YOERRTA2 , ONLY : ABSA   ,ABSB   ,FRACREFA, FRACREFB,&
+USE OPARRRTM  , ONLY : JPLAY  ,JPBAND ,JPGPT  ,JPXSEC ,NG2   ,NGS1
+USE OYOERRTWN , ONLY : NG     ,NSPA   ,NSPB
+USE OYOERRTA2 , ONLY : ABSA   ,ABSB   ,FRACREFA, FRACREFB,&
             &FORREF   ,KA     ,KB     ,SELFREF , REFPARAM
-USE YOERRTBG2, ONLY : CORR1  ,CORR2
+USE OYOERRTBG2, ONLY : CORR1  ,CORR2
 
 !  Input
 !#include "yoeratm.h"
@@ -182,4 +182,4 @@ DO IG = 1, NG2
 ENDDO
 
 RETURN
-END SUBROUTINE RRTM_TAUMOL2
+END SUBROUTINE ORRTM_TAUMOL2
similarity index 96%
rename from src/LIB/RAD/ECMWF_RAD/rrtm_taumol3.f90
rename to src/LIB/RAD/ECMWF_RAD/orrtm_taumol3.f90
index b4afeb6..6b9e2f0 100644 (file)
@@ -5,7 +5,7 @@
 ! ECMWF_RAD2 2003/02/19 13:36:42
 !-----------------------------------------------------------------
 !----------------------------------------------------------------------------
-SUBROUTINE RRTM_TAUMOL3 (KLEV,TAU,&
+SUBROUTINE ORRTM_TAUMOL3 (KLEV,TAU,&
   &TAUAERL,FAC00,FAC01,FAC10,FAC11,FORFAC,JP,JT,JT1,ONEMINUS,&
   &COLH2O,COLCO2,COLN2O,LAYTROP,SELFFAC,SELFFRAC,INDSELF,PFRAC)
 
@@ -18,9 +18,9 @@ SUBROUTINE RRTM_TAUMOL3 (KLEV,TAU,&
 
 #include "tsmbkind.h"
 
-USE PARRRTM  , ONLY : JPLAY  ,JPBAND ,JPGPT  ,JPXSEC ,NG3   ,NGS2
-USE YOERRTWN , ONLY : NG     ,NSPA   ,NSPB
-USE YOERRTA3 , ONLY : ABSA   ,ABSB   ,FRACREFA, FRACREFB,&
+USE OPARRRTM  , ONLY : JPLAY  ,JPBAND ,JPGPT  ,JPXSEC ,NG3   ,NGS2
+USE OYOERRTWN , ONLY : NG     ,NSPA   ,NSPB
+USE OYOERRTA3 , ONLY : ABSA   ,ABSB   ,FRACREFA, FRACREFB,&
             &FORREF   ,KA     ,KB     ,SELFREF , ABSN2OA ,&
             &ABSN2OB  ,ETAREF ,H2OREF ,N2OREF  , CO2REF  ,&
             &STRRAT
@@ -252,4 +252,4 @@ DO LAY = LAYTROP+1, KLEV
 ENDDO
 
 RETURN
-END SUBROUTINE RRTM_TAUMOL3
+END SUBROUTINE ORRTM_TAUMOL3
similarity index 96%
rename from src/LIB/RAD/ECMWF_RAD/rrtm_taumol4.f90
rename to src/LIB/RAD/ECMWF_RAD/orrtm_taumol4.f90
index ad38b4f..7e21a42 100644 (file)
@@ -5,7 +5,7 @@
 ! ECMWF_RAD2 2003/02/19 13:36:42
 !-----------------------------------------------------------------
 !----------------------------------------------------------------------------
-SUBROUTINE RRTM_TAUMOL4 (KLEV,TAU,&
+SUBROUTINE ORRTM_TAUMOL4 (KLEV,TAU,&
   &TAUAERL,FAC00,FAC01,FAC10,FAC11,FORFAC,JP,JT,JT1,ONEMINUS,&
   &COLH2O,COLCO2,COLO3,LAYTROP,SELFFAC,SELFFRAC,INDSELF,PFRAC)
 
@@ -18,9 +18,9 @@ SUBROUTINE RRTM_TAUMOL4 (KLEV,TAU,&
 
 #include "tsmbkind.h"
 
-USE PARRRTM  , ONLY : JPLAY  ,JPBAND ,JPGPT  ,JPXSEC ,NG4   ,NGS3
-USE YOERRTWN , ONLY : NG     ,NSPA   ,NSPB
-USE YOERRTA4 , ONLY : ABSA   ,ABSB   ,FRACREFA, FRACREFB,&
+USE OPARRRTM  , ONLY : JPLAY  ,JPBAND ,JPGPT  ,JPXSEC ,NG4   ,NGS3
+USE OYOERRTWN , ONLY : NG     ,NSPA   ,NSPB
+USE OYOERRTA4 , ONLY : ABSA   ,ABSB   ,FRACREFA, FRACREFB,&
             &KA       ,KB     ,SELFREF,STRRAT1 , STRRAT2
 
 !  Input
@@ -211,4 +211,4 @@ DO LAY = LAYTROP+1, KLEV
 ENDDO
 
 RETURN
-END SUBROUTINE RRTM_TAUMOL4
+END SUBROUTINE ORRTM_TAUMOL4
similarity index 95%
rename from src/LIB/RAD/ECMWF_RAD/rrtm_taumol5.f90
rename to src/LIB/RAD/ECMWF_RAD/orrtm_taumol5.f90
index ed2deda..88effcd 100644 (file)
@@ -5,7 +5,7 @@
 ! ECMWF_RAD2 2003/02/19 13:36:42
 !-----------------------------------------------------------------
 !----------------------------------------------------------------------------
-SUBROUTINE RRTM_TAUMOL5 (KLEV,TAU,WX,&
+SUBROUTINE ORRTM_TAUMOL5 (KLEV,TAU,WX,&
   &TAUAERL,FAC00,FAC01,FAC10,FAC11,FORFAC,JP,JT,JT1,ONEMINUS,&
   &COLH2O,COLCO2, COLO3,LAYTROP,SELFFAC,SELFFRAC,INDSELF,PFRAC)
 
@@ -18,9 +18,9 @@ SUBROUTINE RRTM_TAUMOL5 (KLEV,TAU,WX,&
 
 #include "tsmbkind.h"
 
-USE PARRRTM  , ONLY : JPLAY  ,JPBAND ,JPGPT  ,JPXSEC ,NG5   ,NGS4
-USE YOERRTWN , ONLY : NG     ,NSPA   ,NSPB
-USE YOERRTA5 , ONLY : ABSA   ,ABSB   ,CCL4   , FRACREFA, FRACREFB,&
+USE OPARRRTM  , ONLY : JPLAY  ,JPBAND ,JPGPT  ,JPXSEC ,NG5   ,NGS4
+USE OYOERRTWN , ONLY : NG     ,NSPA   ,NSPB
+USE OYOERRTA5 , ONLY : ABSA   ,ABSB   ,CCL4   , FRACREFA, FRACREFB,&
             &KA       ,KB     ,SELFREF,STRRAT1, STRRAT2
 
 !  Input
@@ -206,4 +206,4 @@ DO LAY = LAYTROP+1, KLEV
 ENDDO
 
 RETURN
-END SUBROUTINE RRTM_TAUMOL5
+END SUBROUTINE ORRTM_TAUMOL5
similarity index 92%
rename from src/LIB/RAD/ECMWF_RAD/rrtm_taumol6.f90
rename to src/LIB/RAD/ECMWF_RAD/orrtm_taumol6.f90
index db16887..59b587b 100644 (file)
@@ -5,7 +5,7 @@
 ! ECMWF_RAD2 2003/02/19 13:36:42
 !-----------------------------------------------------------------
 !----------------------------------------------------------------------------
-SUBROUTINE RRTM_TAUMOL6 (KLEV,TAU,WX,&
+SUBROUTINE ORRTM_TAUMOL6 (KLEV,TAU,WX,&
   &TAUAERL,FAC00,FAC01,FAC10,FAC11,JP,JT,JT1,&
   &COLH2O,CO2MULT,LAYTROP,SELFFAC,SELFFRAC,INDSELF,PFRAC)
 
@@ -19,9 +19,9 @@ SUBROUTINE RRTM_TAUMOL6 (KLEV,TAU,WX,&
 
 #include "tsmbkind.h"
 
-USE PARRRTM  , ONLY : JPLAY  ,JPBAND ,JPGPT  ,JPXSEC ,NG6   ,NGS5
-USE YOERRTWN , ONLY : NG     ,NSPA   ,NSPB
-USE YOERRTA6 , ONLY : ABSA   ,ABSCO2 ,CFC11ADJ , CFC12  ,&
+USE OPARRRTM  , ONLY : JPLAY  ,JPBAND ,JPGPT  ,JPXSEC ,NG6   ,NGS5
+USE OYOERRTWN , ONLY : NG     ,NSPA   ,NSPB
+USE OYOERRTA6 , ONLY : ABSA   ,ABSCO2 ,CFC11ADJ , CFC12  ,&
             &FRACREFA, KA     ,SELFREF
 
 !  Input
@@ -116,4 +116,4 @@ DO IG = 1, NG6
 ENDDO
 
 RETURN
-END SUBROUTINE RRTM_TAUMOL6
+END SUBROUTINE ORRTM_TAUMOL6
similarity index 94%
rename from src/LIB/RAD/ECMWF_RAD/rrtm_taumol7.f90
rename to src/LIB/RAD/ECMWF_RAD/orrtm_taumol7.f90
index 39a320b..5a02fcb 100644 (file)
@@ -5,7 +5,7 @@
 ! ECMWF_RAD2 2003/02/19 13:36:42
 !-----------------------------------------------------------------
 !----------------------------------------------------------------------------
-SUBROUTINE RRTM_TAUMOL7 (KLEV,TAU,&
+SUBROUTINE ORRTM_TAUMOL7 (KLEV,TAU,&
   &TAUAERL,FAC00,FAC01,FAC10,FAC11,JP,JT,JT1,ONEMINUS,&
   &COLH2O,COLO3,CO2MULT,LAYTROP,SELFFAC,SELFFRAC,INDSELF,PFRAC)
 
@@ -18,9 +18,9 @@ SUBROUTINE RRTM_TAUMOL7 (KLEV,TAU,&
 
 #include "tsmbkind.h"
 
-USE PARRRTM  , ONLY : JPLAY  ,JPBAND ,JPGPT  ,JPXSEC ,NG7   ,NGS6
-USE YOERRTWN , ONLY : NG     ,NSPA   ,NSPB
-USE YOERRTA7 , ONLY : ABSA   ,ABSB   ,ABSCO2 ,FRACREFA ,FRACREFB,&
+USE OPARRRTM  , ONLY : JPLAY  ,JPBAND ,JPGPT  ,JPXSEC ,NG7   ,NGS6
+USE OYOERRTWN , ONLY : NG     ,NSPA   ,NSPB
+USE OYOERRTA7 , ONLY : ABSA   ,ABSB   ,ABSCO2 ,FRACREFA ,FRACREFB,&
             &KA       ,KB     ,SELFREF,STRRAT
 
 !  Input
@@ -170,4 +170,4 @@ DO IG = 1, NG7
 ENDDO
 
 RETURN
-END SUBROUTINE RRTM_TAUMOL7
+END SUBROUTINE ORRTM_TAUMOL7
similarity index 94%
rename from src/LIB/RAD/ECMWF_RAD/rrtm_taumol8.f90
rename to src/LIB/RAD/ECMWF_RAD/orrtm_taumol8.f90
index a000981..82baf8b 100644 (file)
@@ -5,7 +5,7 @@
 ! ECMWF_RAD2 2003/02/19 13:36:42
 !-----------------------------------------------------------------
 !*******************************************************************************
-SUBROUTINE RRTM_TAUMOL8 (KLEV,TAU,WX,&
+SUBROUTINE ORRTM_TAUMOL8 (KLEV,TAU,WX,&
   &TAUAERL,FAC00,FAC01,FAC10,FAC11,JP,JT,JT1,&
   &COLH2O,COLO3,COLN2O,CO2MULT,LAYSWTCH,SELFFAC,SELFFRAC,INDSELF,PFRAC)
 
@@ -19,9 +19,9 @@ SUBROUTINE RRTM_TAUMOL8 (KLEV,TAU,WX,&
 
 #include "tsmbkind.h"
 
-USE PARRRTM  , ONLY : JPLAY  ,JPBAND ,JPGPT  ,JPXSEC ,NG8   ,NGS7
-USE YOERRTWN , ONLY : NG     ,NSPA   ,NSPB
-USE YOERRTA8 , ONLY : ABSA   ,ABSB   ,FRACREFA, FRACREFB,&
+USE OPARRRTM  , ONLY : JPLAY  ,JPBAND ,JPGPT  ,JPXSEC ,NG8   ,NGS7
+USE OYOERRTWN , ONLY : NG     ,NSPA   ,NSPB
+USE OYOERRTA8 , ONLY : ABSA   ,ABSB   ,FRACREFA, FRACREFB,&
             &KA      , KB     ,SELFREF,ABSCO2A , ABSCO2B ,&
             &ABSN2OA , ABSN2OB,CFC12  ,CFC22ADJ, H2OREF  ,&
             &N2OREF  , O3REF
@@ -151,4 +151,4 @@ DO IG = 1, NG8
 ENDDO
 
 RETURN
-END SUBROUTINE RRTM_TAUMOL8
+END SUBROUTINE ORRTM_TAUMOL8
similarity index 96%
rename from src/LIB/RAD/ECMWF_RAD/rrtm_taumol9.f90
rename to src/LIB/RAD/ECMWF_RAD/orrtm_taumol9.f90
index 24028d8..784aa22 100644 (file)
@@ -5,7 +5,7 @@
 ! ECMWF_RAD2 2003/02/19 13:36:42
 !-----------------------------------------------------------------
 !----------------------------------------------------------------------------
-SUBROUTINE RRTM_TAUMOL9 (KLEV,TAU,&
+SUBROUTINE ORRTM_TAUMOL9 (KLEV,TAU,&
   &TAUAERL,FAC00,FAC01,FAC10,FAC11,JP,JT,JT1,ONEMINUS,&
   &COLH2O,COLN2O,COLCH4,LAYTROP,LAYSWTCH,LAYLOW,SELFFAC,SELFFRAC,INDSELF,PFRAC)
 
@@ -19,9 +19,9 @@ SUBROUTINE RRTM_TAUMOL9 (KLEV,TAU,&
 
 #include "tsmbkind.h"
 
-USE PARRRTM  , ONLY : JPLAY  ,JPBAND ,JPGPT  ,JPXSEC ,NG9   ,NGS8
-USE YOERRTWN , ONLY : NG     ,NSPA   ,NSPB
-USE YOERRTA9 , ONLY : ABSA   ,ABSB   ,FRACREFA, FRACREFB,&
+USE OPARRRTM  , ONLY : JPLAY  ,JPBAND ,JPGPT  ,JPXSEC ,NG9   ,NGS8
+USE OYOERRTWN , ONLY : NG     ,NSPA   ,NSPB
+USE OYOERRTA9 , ONLY : ABSA   ,ABSB   ,FRACREFA, FRACREFB,&
             &KA      , KB     ,SELFREF,ABSN2O  , CH4REF  ,&
             &ETAREF  , H2OREF ,N2OREF ,STRRAT
 
@@ -212,4 +212,4 @@ DO IG = 1, NG9
 ENDDO
 
 RETURN
-END SUBROUTINE RRTM_TAUMOL9
+END SUBROUTINE ORRTM_TAUMOL9
similarity index 97%
rename from src/LIB/RAD/ECMWF_RAD/surdi.f90
rename to src/LIB/RAD/ECMWF_RAD/osurdi.f90
index c670fab..906fdd6 100644 (file)
@@ -4,7 +4,7 @@
 ! $Source$ $Revision$
 ! ECMWF_RAD2 2003/02/19 13:36:46
 !-----------------------------------------------------------------
-SUBROUTINE SURDI
+SUBROUTINE OSURDI
 
 
 !**** *SURDI*   - INITIALIZE COMMON YOERDI CONTROLLING RADINT
@@ -51,7 +51,7 @@ SUBROUTINE SURDI
 
 #include "tsmbkind.h"
 
-USE YOERDI   , ONLY : RRAE     ,RALBSEAD ,&
+USE OYOERDI   , ONLY : RRAE     ,RALBSEAD ,&
             &RALBICEVS_AR,RALBICENI_AR,RALBICEVS_AN,RALBICENI_AN,&
             &RALBSFO  ,REMISD   ,REMISL   ,REMISN   ,REMISS   ,&
             &RCARDI   ,RCH4     ,RN2O     ,RO3      ,RCFC11   ,&
@@ -131,4 +131,4 @@ REPALB=1.E-12_JPRB
 !     -----------------------------------------------------------------
 
 RETURN
-END SUBROUTINE SURDI
+END SUBROUTINE OSURDI
similarity index 92%
rename from src/LIB/RAD/ECMWF_RAD/surrtab.f90
rename to src/LIB/RAD/ECMWF_RAD/osurrtab.f90
index d08324f..ec9ce07 100644 (file)
@@ -4,7 +4,7 @@
 ! $Source$ $Revision$
 ! ECMWF_RAD2 2003/02/19 13:36:46
 !-----------------------------------------------------------------
-SUBROUTINE SURRTAB
+SUBROUTINE OSURRTAB
 
 !     -----------------------------------------------------------------
 !        * E.C.M.W.F. PHYSICS PACKAGE ** AER'S RRTM LW RADIATION **
@@ -15,7 +15,7 @@ SUBROUTINE SURRTAB
 
 #include "tsmbkind.h"
 
-USE YOERRTAB , ONLY : TRANS, BPADE
+USE OYOERRTAB , ONLY : TRANS, BPADE
 
 IMPLICIT NONE
 
@@ -38,4 +38,4 @@ ENDDO
 !     -----------------------------------------------------------------
 
 RETURN
-END SUBROUTINE SURRTAB
+END SUBROUTINE OSURRTAB
similarity index 97%
rename from src/LIB/RAD/ECMWF_RAD/surrtftr.f90
rename to src/LIB/RAD/ECMWF_RAD/osurrtftr.f90
index 9ecb06e..c95eef8 100644 (file)
@@ -4,7 +4,7 @@
 ! $Source$ $Revision$
 ! ECMWF_RAD2 2003/02/19 13:36:46
 !-----------------------------------------------------------------
-SUBROUTINE SURRTFTR
+SUBROUTINE OSURRTFTR
 
 !     Adapted from Eli J. Mlawer, Atmospheric & Environmental Research.
 !     by JJMorcrette, ECMWF
@@ -12,7 +12,7 @@ SUBROUTINE SURRTFTR
 
 #include "tsmbkind.h"
 
-USE YOERRTFTR, ONLY : NGC      ,NGS      ,NGN      ,NGB       ,NGM     , WT
+USE OYOERRTFTR, ONLY : NGC      ,NGS      ,NGN      ,NGB       ,NGM     , WT
 
 !     ------------------------------------------------------------------
 
@@ -85,4 +85,4 @@ WT( :) = (/&
 
 !     -----------------------------------------------------------------
 RETURN
-END SUBROUTINE SURRTFTR
+END SUBROUTINE OSURRTFTR
similarity index 99%
rename from src/LIB/RAD/ECMWF_RAD/surrtpk.f90
rename to src/LIB/RAD/ECMWF_RAD/osurrtpk.f90
index 438229d..a0cf668 100644 (file)
@@ -4,7 +4,7 @@
 ! $Source$ $Revision$
 ! ECMWF_RAD2 2003/02/19 13:36:46
 !-----------------------------------------------------------------
-SUBROUTINE SURRTPK
+SUBROUTINE OSURRTPK
 
 !     Adapted from Eli J. Mlawer, Atmospheric & Environmental Research.
 !     by JJMorcrette, ECMWF
@@ -12,7 +12,7 @@ SUBROUTINE SURRTPK
 
 #include "tsmbkind.h"
 
-USE YOERRTWN , ONLY : NG        ,NSPA      ,NSPB      ,WAVENUM1  ,&
+USE OYOERRTWN , ONLY : NG        ,NSPA      ,NSPB      ,WAVENUM1  ,&
            &WAVENUM2  ,DELWAVE   ,TOTPLNK   ,TOTPLK16
 
 !     ------------------------------------------------------------------
@@ -747,4 +747,4 @@ TOTPLK16( :) = (/&
 &1.99016E-07_JPRB/)
 !     -----------------------------------------------------------------
 RETURN
-END SUBROUTINE SURRTPK
+END SUBROUTINE OSURRTPK
similarity index 97%
rename from src/LIB/RAD/ECMWF_RAD/surrtrf.f90
rename to src/LIB/RAD/ECMWF_RAD/osurrtrf.f90
index 0ca2bf9..3c91b63 100644 (file)
@@ -4,7 +4,7 @@
 ! $Source$ $Revision$
 ! ECMWF_RAD2 2003/02/19 13:36:46
 !-----------------------------------------------------------------
-SUBROUTINE SURRTRF
+SUBROUTINE OSURRTRF
 
 !     Adapted from Eli J. Mlawer, Atmospheric & Environmental Research.
 !     by JJMorcrette, ECMWF
@@ -12,7 +12,7 @@ SUBROUTINE SURRTRF
 
 #include "tsmbkind.h"
 
-USE YOERRTRF , ONLY : PREF      ,PREFLOG   ,TREF
+USE OYOERRTRF , ONLY : PREF      ,PREFLOG   ,TREF
 
 !     ------------------------------------------------------------------
 
@@ -67,4 +67,4 @@ TREF( :) = (/&
 
 !     -----------------------------------------------------------------
 RETURN
-END SUBROUTINE SURRTRF
+END SUBROUTINE OSURRTRF
similarity index 99%
rename from src/LIB/RAD/ECMWF_RAD/yoerad.f90
rename to src/LIB/RAD/ECMWF_RAD/oyoerad.f90
index e843910..174b0ef 100644 (file)
@@ -4,7 +4,7 @@
 ! $Source$ $Revision$
 ! ECMWF_RAD2_OLD2NEW 2003/02/19 13:36:51
 !-----------------------------------------------------------------
-MODULE YOERAD
+MODULE OYOERAD
 
 
 #include "tsmbkind.h"
@@ -123,4 +123,4 @@ REAL_B :: RAOVLP, RBOVLP
 ! RAOVLP : REAL    : COEFFICIENTS FOR ALPHA1 FACTOR IN HOGAN & 
 ! RBOVLP : REAL    : ILLINGWORTH's PARAMETRIZATION
 !     ------------------------------------------------------------------
-END MODULE YOERAD
+END MODULE OYOERAD
similarity index 98%
rename from src/LIB/RAD/ECMWF_RAD/yoerdi.f90
rename to src/LIB/RAD/ECMWF_RAD/oyoerdi.f90
index 628a1c7..016661c 100644 (file)
@@ -4,7 +4,7 @@
 ! $Source$ $Revision$
 ! ECMWF_RAD2 2003/02/19 13:36:48
 !-----------------------------------------------------------------
-MODULE YOERDI
+MODULE OYOERDI
 
 
 #include "tsmbkind.h"
@@ -67,4 +67,4 @@ REAL_B :: REPH2O
 ! REPH2O : SECURITY TO AVOID WATER VAPOUR CONTENT IN A LAYER
 !          TO BE MORE THAN THE RESPECTIVE VALUE AT SATURATION.
 !     -----------------------------------------------------------------
-END MODULE YOERDI
+END MODULE OYOERDI
similarity index 97%
rename from src/LIB/RAD/ECMWF_RAD/yoerrta1.f90
rename to src/LIB/RAD/ECMWF_RAD/oyoerrta1.f90
index a7b46ee..9f0c1b4 100644 (file)
@@ -4,7 +4,7 @@
 ! $Source$ $Revision$
 ! ECMWF_RAD2 2003/02/19 13:36:48
 !-----------------------------------------------------------------
-MODULE YOERRTA1
+MODULE OYOERRTA1
 
 
 #include "tsmbkind.h"
@@ -43,4 +43,4 @@ EQUIVALENCE (KA(1,1,1),ABSA(1,1)), (KB(1,13,1),ABSB(1,1))
 ! KB      : REAL     
 ! SELFREF : REAL     
 !     -----------------------------------------------------------------
-END MODULE YOERRTA1
+END MODULE OYOERRTA1
similarity index 97%
rename from src/LIB/RAD/ECMWF_RAD/yoerrta10.f90
rename to src/LIB/RAD/ECMWF_RAD/oyoerrta10.f90
index e951dd9..2942c12 100644 (file)
@@ -4,7 +4,7 @@
 ! $Source$ $Revision$
 ! ECMWF_RAD2 2003/02/19 13:36:48
 !-----------------------------------------------------------------
-MODULE YOERRTA10
+MODULE OYOERRTA10
 
 
 #include "tsmbkind.h"
@@ -42,4 +42,4 @@ EQUIVALENCE (KA(1,1,1),ABSA(1,1)),(KB(1,13,1),ABSB(1,1))
 ! KA      : REAL     
 ! KB      : REAL     
 !     -----------------------------------------------------------------
-END MODULE YOERRTA10
+END MODULE OYOERRTA10
similarity index 97%
rename from src/LIB/RAD/ECMWF_RAD/yoerrta11.f90
rename to src/LIB/RAD/ECMWF_RAD/oyoerrta11.f90
index 8bbf9f5..b084e87 100644 (file)
@@ -4,7 +4,7 @@
 ! $Source$ $Revision$
 ! ECMWF_RAD2 2003/02/19 13:36:48
 !-----------------------------------------------------------------
-MODULE YOERRTA11
+MODULE OYOERRTA11
 
 
 #include "tsmbkind.h"
@@ -44,4 +44,4 @@ EQUIVALENCE (KA(1,1,1),ABSA(1,1)),(KB(1,13,1),ABSB(1,1))
 ! KB      : REAL     
 ! SELFREF : REAL     
 !     -----------------------------------------------------------------
-END MODULE YOERRTA11
+END MODULE OYOERRTA11
similarity index 97%
rename from src/LIB/RAD/ECMWF_RAD/yoerrta12.f90
rename to src/LIB/RAD/ECMWF_RAD/oyoerrta12.f90
index 69b74ba..5bf1829 100644 (file)
@@ -4,7 +4,7 @@
 ! $Source$ $Revision$
 ! ECMWF_RAD2 2003/02/19 13:36:48
 !-----------------------------------------------------------------
-MODULE YOERRTA12
+MODULE OYOERRTA12
 
 
 #include "tsmbkind.h"
@@ -42,4 +42,4 @@ EQUIVALENCE (KA(1,1,1,1),ABSA(1,1))
 ! SELFREF : REAL
 ! STRRAT1 : REAL     
 !     -----------------------------------------------------------------
-END MODULE YOERRTA12
+END MODULE OYOERRTA12
similarity index 96%
rename from src/LIB/RAD/ECMWF_RAD/yoerrta13.f90
rename to src/LIB/RAD/ECMWF_RAD/oyoerrta13.f90
index 9988334..136c8a8 100644 (file)
@@ -4,7 +4,7 @@
 ! $Source$ $Revision$
 ! ECMWF_RAD2 2003/02/19 13:36:48
 !-----------------------------------------------------------------
-MODULE YOERRTA13
+MODULE OYOERRTA13
 
 
 #include "tsmbkind.h"
@@ -40,4 +40,4 @@ EQUIVALENCE (KA(1,1,1,1),ABSA(1,1))
 ! SELFREF : REAL
 ! STRRAT1 : REAL     
 !     -----------------------------------------------------------------
-END MODULE YOERRTA13
+END MODULE OYOERRTA13
similarity index 97%
rename from src/LIB/RAD/ECMWF_RAD/yoerrta14.f90
rename to src/LIB/RAD/ECMWF_RAD/oyoerrta14.f90
index 4f025de..753e56e 100644 (file)
@@ -4,7 +4,7 @@
 ! $Source$ $Revision$
 ! ECMWF_RAD2 2003/02/19 13:36:48
 !-----------------------------------------------------------------
-MODULE YOERRTA14
+MODULE OYOERRTA14
 
 
 #include "tsmbkind.h"
@@ -42,6 +42,6 @@ EQUIVALENCE (KA(1,1,1),ABSA(1,1)), (KB(1,13,1),ABSB(1,1))
 ! KB      : REAL     
 ! SELFREF : REAL     
 !     -----------------------------------------------------------------
-END MODULE YOERRTA14
+END MODULE OYOERRTA14
 
 
similarity index 96%
rename from src/LIB/RAD/ECMWF_RAD/yoerrta15.f90
rename to src/LIB/RAD/ECMWF_RAD/oyoerrta15.f90
index 5a852ba..fd0ba7a 100644 (file)
@@ -4,7 +4,7 @@
 ! $Source$ $Revision$
 ! ECMWF_RAD2 2003/02/19 13:36:48
 !-----------------------------------------------------------------
-MODULE YOERRTA15
+MODULE OYOERRTA15
 
 
 #include "tsmbkind.h"
@@ -40,4 +40,4 @@ EQUIVALENCE (KA(1,1,1,1),ABSA(1,1))
 ! SELFREF : REAL 
 ! STRRAT  : REAL    
 !     -----------------------------------------------------------------
-END MODULE YOERRTA15
+END MODULE OYOERRTA15
similarity index 96%
rename from src/LIB/RAD/ECMWF_RAD/yoerrta16.f90
rename to src/LIB/RAD/ECMWF_RAD/oyoerrta16.f90
index 3b301d6..1cd0c61 100644 (file)
@@ -4,7 +4,7 @@
 ! $Source$ $Revision$
 ! ECMWF_RAD2 2003/02/19 13:36:48
 !-----------------------------------------------------------------
-MODULE YOERRTA16
+MODULE OYOERRTA16
 
 
 #include "tsmbkind.h"
@@ -40,4 +40,4 @@ EQUIVALENCE (KA(1,1,1,1),ABSA(1,1))
 ! SELFREF : REAL     
 ! STRRAT  : REAL
 !     -----------------------------------------------------------------
-END MODULE YOERRTA16
+END MODULE OYOERRTA16
similarity index 97%
rename from src/LIB/RAD/ECMWF_RAD/yoerrta2.f90
rename to src/LIB/RAD/ECMWF_RAD/oyoerrta2.f90
index 71bcb7e..9d86226 100644 (file)
@@ -4,7 +4,7 @@
 ! $Source$ $Revision$
 ! ECMWF_RAD2 2003/02/19 13:36:48
 !-----------------------------------------------------------------
-MODULE YOERRTA2
+MODULE OYOERRTA2
 
 
 #include "tsmbkind.h"
@@ -46,6 +46,6 @@ EQUIVALENCE (KA(1,1,1),ABSA(1,1)),(KB(1,13,1),ABSB(1,1))
 ! SELFREF : REAL
 ! FORREF  : REAL     
 !     -----------------------------------------------------------------
-END MODULE YOERRTA2
+END MODULE OYOERRTA2
 
 
similarity index 97%
rename from src/LIB/RAD/ECMWF_RAD/yoerrta3.f90
rename to src/LIB/RAD/ECMWF_RAD/oyoerrta3.f90
index 154aedc..3c75ed7 100644 (file)
@@ -4,7 +4,7 @@
 ! $Source$ $Revision$
 ! ECMWF_RAD2 2003/02/19 13:36:48
 !-----------------------------------------------------------------
-MODULE YOERRTA3
+MODULE OYOERRTA3
 
 
 #include "tsmbkind.h"
@@ -59,4 +59,4 @@ EQUIVALENCE (KA(1,1,1,1),ABSA(1,1)),(KB(1,1,13,1),ABSB(1,1))
 ! SELFREF : REAL     
 ! STRRAT  : REAL
 !     -----------------------------------------------------------------
-END MODULE YOERRTA3
+END MODULE OYOERRTA3
similarity index 97%
rename from src/LIB/RAD/ECMWF_RAD/yoerrta4.f90
rename to src/LIB/RAD/ECMWF_RAD/oyoerrta4.f90
index f2e3b1b..3b694a0 100644 (file)
@@ -4,7 +4,7 @@
 ! $Source$ $Revision$
 ! ECMWF_RAD2 2003/02/19 13:36:48
 !-----------------------------------------------------------------
-MODULE YOERRTA4
+MODULE OYOERRTA4
 
 
 #include "tsmbkind.h"
@@ -44,4 +44,4 @@ EQUIVALENCE (KA(1,1,1,1),ABSA(1,1)),(KB(1,1,13,1),ABSB(1,1))
 ! KB      : REAL     
 ! SELFREF : REAL     
 !     -----------------------------------------------------------------
-END MODULE YOERRTA4
+END MODULE OYOERRTA4
similarity index 97%
rename from src/LIB/RAD/ECMWF_RAD/yoerrta5.f90
rename to src/LIB/RAD/ECMWF_RAD/oyoerrta5.f90
index c4b0088..b2c96b9 100644 (file)
@@ -4,7 +4,7 @@
 ! $Source$ $Revision$
 ! ECMWF_RAD2 2003/02/19 13:36:48
 !-----------------------------------------------------------------
-MODULE YOERRTA5
+MODULE OYOERRTA5
 
 
 #include "tsmbkind.h"
@@ -50,4 +50,4 @@ EQUIVALENCE (KA(1,1,1,1),ABSA(1,1)),(KB(1,1,13,1),ABSB(1,1))
 ! STRRAT1 : REAL
 ! STRRAT2 : REAL    
 !     -----------------------------------------------------------------
-END MODULE YOERRTA5
+END MODULE OYOERRTA5
similarity index 97%
rename from src/LIB/RAD/ECMWF_RAD/yoerrta6.f90
rename to src/LIB/RAD/ECMWF_RAD/oyoerrta6.f90
index 9dc53e5..c8930cc 100644 (file)
@@ -4,7 +4,7 @@
 ! $Source$ $Revision$
 ! ECMWF_RAD2 2003/02/19 13:36:48
 !-----------------------------------------------------------------
-MODULE YOERRTA6
+MODULE OYOERRTA6
 
 
 #include "tsmbkind.h"
@@ -47,4 +47,4 @@ EQUIVALENCE (KA(1,1,1),ABSA(1,1))
 ! KA      : REAL     
 ! SELFREF : REAL     
 !     -----------------------------------------------------------------
-END MODULE YOERRTA6
+END MODULE OYOERRTA6
similarity index 97%
rename from src/LIB/RAD/ECMWF_RAD/yoerrta7.f90
rename to src/LIB/RAD/ECMWF_RAD/oyoerrta7.f90
index 81e71a6..b0f442c 100644 (file)
@@ -4,7 +4,7 @@
 ! $Source$ $Revision$
 ! ECMWF_RAD2 2003/02/19 13:36:48
 !-----------------------------------------------------------------
-MODULE YOERRTA7
+MODULE OYOERRTA7
 
 
 #include "tsmbkind.h"
@@ -49,4 +49,4 @@ EQUIVALENCE (KA(1,1,1,1),ABSA(1,1)),(KB(1,13,1),ABSB(1,1))
 ! SELFREF : REAL  
 ! STRRAT  : REAL   
 !     -----------------------------------------------------------------
-END MODULE YOERRTA7
+END MODULE OYOERRTA7
similarity index 98%
rename from src/LIB/RAD/ECMWF_RAD/yoerrta8.f90
rename to src/LIB/RAD/ECMWF_RAD/oyoerrta8.f90
index 095e470..6c7e46c 100644 (file)
@@ -4,7 +4,7 @@
 ! $Source$ $Revision$
 ! ECMWF_RAD2 2003/02/19 13:36:48
 !-----------------------------------------------------------------
-MODULE YOERRTA8
+MODULE OYOERRTA8
 
 
 #include "tsmbkind.h"
@@ -62,4 +62,4 @@ EQUIVALENCE (KA(1,1,1),ABSA(1,1)),(KB(1,7,1),ABSB(1,1))
 ! O3REF   : REAL    
 ! SELFREF : REAL     
 !     -----------------------------------------------------------------
-END MODULE YOERRTA8
+END MODULE OYOERRTA8
similarity index 97%
rename from src/LIB/RAD/ECMWF_RAD/yoerrta9.f90
rename to src/LIB/RAD/ECMWF_RAD/oyoerrta9.f90
index d312e7a..fe0fd95 100644 (file)
@@ -4,7 +4,7 @@
 ! $Source$ $Revision$
 ! ECMWF_RAD2 2003/02/19 13:36:48
 !-----------------------------------------------------------------
-MODULE YOERRTA9
+MODULE OYOERRTA9
 
 
 #include "tsmbkind.h"
@@ -58,4 +58,4 @@ EQUIVALENCE (KA(1,1,1,1),ABSA(1,1)),(KB(1,13,1),ABSB(1,1))
 ! SELFREF : REAL     
 ! STRRAT  : REAL
 !     -----------------------------------------------------------------
-END MODULE YOERRTA9
+END MODULE OYOERRTA9
similarity index 96%
rename from src/LIB/RAD/ECMWF_RAD/yoerrtab.f90
rename to src/LIB/RAD/ECMWF_RAD/oyoerrtab.f90
index 710f607..0419cef 100644 (file)
@@ -4,7 +4,7 @@
 ! $Source$ $Revision$
 ! ECMWF_RAD2 2003/02/19 13:36:48
 !-----------------------------------------------------------------
-MODULE YOERRTAB
+MODULE OYOERRTAB
 
 
 #include "tsmbkind.h"
@@ -30,6 +30,6 @@ REAL_B :: BPADE
 ! TRANS  :  REAL    
 ! BPADE  :  REAL     
 !     -----------------------------------------------------------------
-END MODULE YOERRTAB
+END MODULE OYOERRTAB
 
 
similarity index 94%
rename from src/LIB/RAD/ECMWF_RAD/yoerrtbg2.f90
rename to src/LIB/RAD/ECMWF_RAD/oyoerrtbg2.f90
index a71d71e..23d336a 100644 (file)
@@ -4,11 +4,11 @@
 ! $Source$ $Revision$
 ! ECMWF_RAD2 2003/02/19 13:36:49
 !-----------------------------------------------------------------
-MODULE YOERRTBG2
+MODULE OYOERRTBG2
 
 #include "tsmbkind.h"
 
-USE PARRRTM
+USE OPARRRTM
 
 
 IMPLICIT NONE
@@ -32,6 +32,6 @@ REAL_B :: CORR2(0:200)
 ! CORR1  :  REAL   : 
 ! CORR2  :  REAL   :
 !    -------------------------------------------------------------------
-END MODULE YOERRTBG2
+END MODULE OYOERRTBG2
 
 
similarity index 95%
rename from src/LIB/RAD/ECMWF_RAD/yoerrtftr.f90
rename to src/LIB/RAD/ECMWF_RAD/oyoerrtftr.f90
index 3aa34e9..de02311 100644 (file)
@@ -4,11 +4,11 @@
 ! $Source$ $Revision$
 ! ECMWF_RAD2 2003/02/19 13:36:49
 !-----------------------------------------------------------------
-MODULE YOERRTFTR
+MODULE OYOERRTFTR
 
 #include "tsmbkind.h"
 
-USE PARRRTM
+USE OPARRRTM
 
 
 IMPLICIT NONE
@@ -41,6 +41,6 @@ REAL_B ::    WT(JPG)
 !  NGM   : INTEGER :
 !  WT    : REAL    :
 !    -------------------------------------------------------------------
-END MODULE YOERRTFTR
+END MODULE OYOERRTFTR
 
 
similarity index 97%
rename from src/LIB/RAD/ECMWF_RAD/yoerrto1.f90
rename to src/LIB/RAD/ECMWF_RAD/oyoerrto1.f90
index f84b9d9..5593d54 100644 (file)
@@ -4,7 +4,7 @@
 ! $Source$ $Revision$
 ! ECMWF_RAD2 2003/02/19 13:36:49
 !-----------------------------------------------------------------
-MODULE YOERRTO1
+MODULE OYOERRTO1
 
 
 #include "tsmbkind.h"
@@ -39,4 +39,4 @@ REAL_B :: SELFREFO(10,NO1), FORREFO(NO1)
 ! KBO     : REAL     
 ! SELFREFO: REAL     
 !     -----------------------------------------------------------------
-END MODULE YOERRTO1
+END MODULE OYOERRTO1
similarity index 96%
rename from src/LIB/RAD/ECMWF_RAD/yoerrto10.f90
rename to src/LIB/RAD/ECMWF_RAD/oyoerrto10.f90
index 9f76129..ed12f57 100644 (file)
@@ -4,7 +4,7 @@
 ! $Source$ $Revision$
 ! ECMWF_RAD2 2003/02/19 13:36:49
 !-----------------------------------------------------------------
-MODULE YOERRTO10
+MODULE OYOERRTO10
 
 
 #include "tsmbkind.h"
@@ -38,4 +38,4 @@ REAL_B :: KBO(5,13:59,NO10)
 ! KA      : REAL     
 ! KB      : REAL     
 !     -----------------------------------------------------------------
-END MODULE YOERRTO10
+END MODULE OYOERRTO10
similarity index 96%
rename from src/LIB/RAD/ECMWF_RAD/yoerrto11.f90
rename to src/LIB/RAD/ECMWF_RAD/oyoerrto11.f90
index 1498871..cbc83b5 100644 (file)
@@ -4,7 +4,7 @@
 ! $Source$ $Revision$
 ! ECMWF_RAD2 2003/02/19 13:36:49
 !-----------------------------------------------------------------
-MODULE YOERRTO11
+MODULE OYOERRTO11
 
 
 #include "tsmbkind.h"
@@ -40,4 +40,4 @@ REAL_B :: SELFREFO(10,NO11)
 ! KB      : REAL     
 ! SELFREF : REAL     
 !     -----------------------------------------------------------------
-END MODULE YOERRTO11
+END MODULE OYOERRTO11
similarity index 96%
rename from src/LIB/RAD/ECMWF_RAD/yoerrto12.f90
rename to src/LIB/RAD/ECMWF_RAD/oyoerrto12.f90
index cfe2a7b..6667348 100644 (file)
@@ -4,7 +4,7 @@
 ! $Source$ $Revision$
 ! ECMWF_RAD2 2003/02/19 13:36:49
 !-----------------------------------------------------------------
-MODULE YOERRTO12
+MODULE OYOERRTO12
 
 
 #include "tsmbkind.h"
@@ -35,4 +35,4 @@ REAL_B :: SELFREFO(10,NO12)
 ! KA      : REAL     
 ! SELFREF : REAL
 !     -----------------------------------------------------------------
-END MODULE YOERRTO12
+END MODULE OYOERRTO12
similarity index 96%
rename from src/LIB/RAD/ECMWF_RAD/yoerrto13.f90
rename to src/LIB/RAD/ECMWF_RAD/oyoerrto13.f90
index 041ee6c..bb0f8e7 100644 (file)
@@ -4,7 +4,7 @@
 ! $Source$ $Revision$
 ! ECMWF_RAD2 2003/02/19 13:36:49
 !-----------------------------------------------------------------
-MODULE YOERRTO13
+MODULE OYOERRTO13
 
 
 #include "tsmbkind.h"
@@ -36,4 +36,4 @@ REAL_B :: SELFREFO(10,NO13)
 ! KA      : REAL     
 ! SELFREF : REAL
 !     -----------------------------------------------------------------
-END MODULE YOERRTO13
+END MODULE OYOERRTO13
similarity index 96%
rename from src/LIB/RAD/ECMWF_RAD/yoerrto14.f90
rename to src/LIB/RAD/ECMWF_RAD/oyoerrto14.f90
index 5afc400..8652bb6 100644 (file)
@@ -4,7 +4,7 @@
 ! $Source$ $Revision$
 ! ECMWF_RAD2 2003/02/19 13:36:49
 !-----------------------------------------------------------------
-MODULE YOERRTO14
+MODULE OYOERRTO14
 
 
 #include "tsmbkind.h"
@@ -40,4 +40,4 @@ REAL_B :: SELFREFO(10,NO14)
 ! KB      : REAL     
 ! SELFREF : REAL     
 !     -----------------------------------------------------------------
-END MODULE YOERRTO14
+END MODULE OYOERRTO14
similarity index 96%
rename from src/LIB/RAD/ECMWF_RAD/yoerrto15.f90
rename to src/LIB/RAD/ECMWF_RAD/oyoerrto15.f90
index 926d7e6..5ac9979 100644 (file)
@@ -4,7 +4,7 @@
 ! $Source$ $Revision$
 ! ECMWF_RAD2 2003/02/19 13:36:49
 !-----------------------------------------------------------------
-MODULE YOERRTO15
+MODULE OYOERRTO15
 
 
 #include "tsmbkind.h"
@@ -36,4 +36,4 @@ REAL_B :: SELFREFO(10,NO15)
 ! KA      : REAL     
 ! SELFREF : REAL 
 !     -----------------------------------------------------------------
-END MODULE YOERRTO15
+END MODULE OYOERRTO15
similarity index 96%
rename from src/LIB/RAD/ECMWF_RAD/yoerrto16.f90
rename to src/LIB/RAD/ECMWF_RAD/oyoerrto16.f90
index b05078f..aa64f69 100644 (file)
@@ -4,7 +4,7 @@
 ! $Source$ $Revision$
 ! ECMWF_RAD2 2003/02/19 13:36:49
 !-----------------------------------------------------------------
-MODULE YOERRTO16
+MODULE OYOERRTO16
 
 
 #include "tsmbkind.h"
@@ -36,4 +36,4 @@ REAL_B :: SELFREFO(10,NO16)
 ! KA      : REAL     
 ! SELFREF : REAL     
 !     -----------------------------------------------------------------
-END MODULE YOERRTO16
+END MODULE OYOERRTO16
similarity index 97%
rename from src/LIB/RAD/ECMWF_RAD/yoerrto2.f90
rename to src/LIB/RAD/ECMWF_RAD/oyoerrto2.f90
index d47a8e1..1970cce 100644 (file)
@@ -4,7 +4,7 @@
 ! $Source$ $Revision$
 ! ECMWF_RAD2 2003/02/19 13:36:49
 !-----------------------------------------------------------------
-MODULE YOERRTO2
+MODULE OYOERRTO2
 
 
 #include "tsmbkind.h"
@@ -41,4 +41,4 @@ REAL_B :: SELFREFO(10,NO2) , FORREFO(NO2)
 ! SELFREFO: REAL
 ! FORREFO : REAL  
 !     -----------------------------------------------------------------
-END MODULE YOERRTO2
+END MODULE OYOERRTO2
similarity index 97%
rename from src/LIB/RAD/ECMWF_RAD/yoerrto3.f90
rename to src/LIB/RAD/ECMWF_RAD/oyoerrto3.f90
index ffb3a68..91cc0b0 100644 (file)
@@ -4,7 +4,7 @@
 ! $Source$ $Revision$
 ! ECMWF_RAD2 2003/02/19 13:36:49
 !-----------------------------------------------------------------
-MODULE YOERRTO3
+MODULE OYOERRTO3
 
 
 #include "tsmbkind.h"
@@ -45,4 +45,4 @@ REAL_B :: SELFREFO(10,NO3)
 ! KBO     : REAL     
 ! SELFREFO: REAL     
 !     -----------------------------------------------------------------
-END MODULE YOERRTO3
+END MODULE OYOERRTO3
similarity index 97%
rename from src/LIB/RAD/ECMWF_RAD/yoerrto4.f90
rename to src/LIB/RAD/ECMWF_RAD/oyoerrto4.f90
index 7ff81ef..604f2f6 100644 (file)
@@ -4,7 +4,7 @@
 ! $Source$ $Revision$
 ! ECMWF_RAD2 2003/02/19 13:36:49
 !-----------------------------------------------------------------
-MODULE YOERRTO4
+MODULE OYOERRTO4
 
 
 #include "tsmbkind.h"
@@ -38,4 +38,4 @@ REAL_B :: SELFREFO(10,NO4)
 ! KB      : REAL     
 ! SELFREF : REAL     
 !     -----------------------------------------------------------------
-END MODULE YOERRTO4
+END MODULE OYOERRTO4
similarity index 97%
rename from src/LIB/RAD/ECMWF_RAD/yoerrto5.f90
rename to src/LIB/RAD/ECMWF_RAD/oyoerrto5.f90
index 6e91652..c5a2da3 100644 (file)
@@ -4,7 +4,7 @@
 ! $Source$ $Revision$
 ! ECMWF_RAD2 2003/02/19 13:36:49
 !-----------------------------------------------------------------
-MODULE YOERRTO5
+MODULE OYOERRTO5
 
 
 #include "tsmbkind.h"
@@ -41,4 +41,4 @@ REAL_B :: SELFREFO(10,NO5)
 ! KB      : REAL     
 ! SELFREF : REAL     
 !     -----------------------------------------------------------------
-END MODULE YOERRTO5
+END MODULE OYOERRTO5
similarity index 97%
rename from src/LIB/RAD/ECMWF_RAD/yoerrto6.f90
rename to src/LIB/RAD/ECMWF_RAD/oyoerrto6.f90
index c8f635c..ac62af2 100644 (file)
@@ -4,7 +4,7 @@
 ! $Source$ $Revision$
 ! ECMWF_RAD2 2003/02/19 13:36:49
 !-----------------------------------------------------------------
-MODULE YOERRTO6
+MODULE OYOERRTO6
 
 
 #include "tsmbkind.h"
@@ -40,4 +40,4 @@ REAL_B :: SELFREFO(10,NO6)
 ! KA      : REAL     
 ! SELFREF : REAL     
 !     -----------------------------------------------------------------
-END MODULE YOERRTO6
+END MODULE OYOERRTO6
similarity index 97%
rename from src/LIB/RAD/ECMWF_RAD/yoerrto7.f90
rename to src/LIB/RAD/ECMWF_RAD/oyoerrto7.f90
index f03681a..51bc193 100644 (file)
@@ -4,7 +4,7 @@
 ! $Source$ $Revision$
 ! ECMWF_RAD2 2003/02/19 13:36:49
 !-----------------------------------------------------------------
-MODULE YOERRTO7
+MODULE OYOERRTO7
 
 
 #include "tsmbkind.h"
@@ -41,4 +41,4 @@ REAL_B :: SELFREFO(10,NO7)
 ! KB      : REAL     
 ! SELFREF : REAL  
 !     -----------------------------------------------------------------
-END MODULE YOERRTO7
+END MODULE OYOERRTO7
similarity index 97%
rename from src/LIB/RAD/ECMWF_RAD/yoerrto8.f90
rename to src/LIB/RAD/ECMWF_RAD/oyoerrto8.f90
index 0f450b3..eed0188 100644 (file)
@@ -4,7 +4,7 @@
 ! $Source$ $Revision$
 ! ECMWF_RAD2 2003/02/19 13:36:49
 !-----------------------------------------------------------------
-MODULE YOERRTO8
+MODULE OYOERRTO8
 
 
 #include "tsmbkind.h"
@@ -52,4 +52,4 @@ REAL_B :: SELFREFO(10,NO8)
 ! KB      : REAL     
 ! SELFREF : REAL     
 !     -----------------------------------------------------------------
-END MODULE YOERRTO8
+END MODULE OYOERRTO8
similarity index 97%
rename from src/LIB/RAD/ECMWF_RAD/yoerrto9.f90
rename to src/LIB/RAD/ECMWF_RAD/oyoerrto9.f90
index 5a0b771..410ad8c 100644 (file)
@@ -4,7 +4,7 @@
 ! $Source$ $Revision$
 ! ECMWF_RAD2 2003/02/19 13:36:49
 !-----------------------------------------------------------------
-MODULE YOERRTO9
+MODULE OYOERRTO9
 
 
 #include "tsmbkind.h"
@@ -48,4 +48,4 @@ REAL_B :: SELFREFO(10,NO9)
 ! KB      : REAL     
 ! SELFREF : REAL     
 !     -----------------------------------------------------------------
-END MODULE YOERRTO9
+END MODULE OYOERRTO9
similarity index 96%
rename from src/LIB/RAD/ECMWF_RAD/yoerrtrf.f90
rename to src/LIB/RAD/ECMWF_RAD/oyoerrtrf.f90
index 429ed63..3366ece 100644 (file)
@@ -4,7 +4,7 @@
 ! $Source$ $Revision$
 ! ECMWF_RAD2 2003/02/19 13:36:49
 !-----------------------------------------------------------------
-MODULE YOERRTRF
+MODULE OYOERRTRF
 
 
 #include "tsmbkind.h"
@@ -32,4 +32,4 @@ REAL_B , DIMENSION(59) :: TREF
 ! PREFLOG: REAL
 ! TREF   : REAL
 !     -----------------------------------------------------------------
-END MODULE YOERRTRF
+END MODULE OYOERRTRF
similarity index 95%
rename from src/LIB/RAD/ECMWF_RAD/yoerrtrwt.f90
rename to src/LIB/RAD/ECMWF_RAD/oyoerrtrwt.f90
index 6f3b7ad..b55b156 100644 (file)
@@ -4,11 +4,11 @@
 ! $Source$ $Revision$
 ! ECMWF_RAD2 2003/02/19 13:36:49
 !-----------------------------------------------------------------
-MODULE YOERRTRWT
+MODULE OYOERRTRWT
 
 #include "tsmbkind.h"
 
-USE PARRRTM
+USE OPARRRTM
 
 
 IMPLICIT NONE
@@ -38,4 +38,4 @@ REAL_B :: RWGT   (JPG*JPBAND)
 ! FREFBDF:  REAL   :
 ! RWT    :  REAL   : 
 !    -------------------------------------------------------------------
-END MODULE YOERRTRWT
+END MODULE OYOERRTRWT
similarity index 97%
rename from src/LIB/RAD/ECMWF_RAD/yoerrtwn.f90
rename to src/LIB/RAD/ECMWF_RAD/oyoerrtwn.f90
index 17e6359..af74682 100644 (file)
@@ -4,7 +4,7 @@
 ! $Source$ $Revision$
 ! ECMWF_RAD2 2003/02/19 13:36:50
 !-----------------------------------------------------------------
-MODULE YOERRTWN
+MODULE OYOERRTWN
 
 
 #include "tsmbkind.h"
@@ -42,4 +42,4 @@ REAL_B , DIMENSION(181)    :: TOTPLK16
 ! TOTPLNK : REAL    :
 ! TOTPLK16: REAL    :
 !     -----------------------------------------------------------------
-END MODULE YOERRTWN
+END MODULE OYOERRTWN
similarity index 99%
rename from src/LIB/RAD/ECMWF_RAD/yoesw.f90
rename to src/LIB/RAD/ECMWF_RAD/oyoesw.f90
index df6e443..6e88d27 100644 (file)
@@ -4,7 +4,7 @@
 ! $Source$ $Revision$
 ! ECMWF_RAD2 2003/02/19 13:36:50
 !-----------------------------------------------------------------
-MODULE YOESW
+MODULE OYOESW
 
 
 #include "tsmbkind.h"
@@ -281,4 +281,4 @@ LOGICAL LO3ONLY
 !                     for Antarctica
 ! RALBICE_AN : REAL : for Arctic
 !     -----------------------------------------------------------------
-END MODULE YOESW
+END MODULE OYOESW
similarity index 97%
rename from src/LIB/RAD/ECMWF_RAD/yomcst.f90
rename to src/LIB/RAD/ECMWF_RAD/oyomcst.f90
index 028c802..89f670f 100644 (file)
@@ -4,7 +4,7 @@
 ! $Source$ $Revision$
 ! ECMWF_RAD2 2003/02/19 13:36:50
 !-----------------------------------------------------------------
-MODULE YOMCST
+MODULE OYOMCST
 
 
 #include "tsmbkind.h"
@@ -77,4 +77,4 @@ REAL_B :: RGAMD
 
 
 !    ------------------------------------------------------------------
-END MODULE YOMCST
+END MODULE OYOMCST
similarity index 99%
rename from src/LIB/RAD/ECMWF_RAD/yomlun.f90
rename to src/LIB/RAD/ECMWF_RAD/oyomlun.f90
index b43a1bb..0b82288 100644 (file)
@@ -4,7 +4,7 @@
 ! $Source$ $Revision$
 ! ECMWF_RAD2 2003/02/19 13:36:50
 !-----------------------------------------------------------------
-MODULE YOMLUN
+MODULE OYOMLUN
 
 
 #include "tsmbkind.h"
@@ -188,4 +188,4 @@ INTEGER_M :: NUO3CH1
 INTEGER_M :: NUO3CH2
 INTEGER_M :: NTCSR
 !     ------------------------------------------------------------------
-END MODULE YOMLUN
+END MODULE OYOMLUN
similarity index 98%
rename from src/LIB/RAD/ECMWF_RAD/yomrip.f90
rename to src/LIB/RAD/ECMWF_RAD/oyomrip.f90
index 9d017b7..82397e7 100644 (file)
@@ -4,7 +4,7 @@
 ! $Source$ $Revision$
 ! ECMWF_RAD2 2003/02/19 13:36:50
 !-----------------------------------------------------------------
-MODULE YOMRIP
+MODULE OYOMRIP
 
 
 #include "tsmbkind.h"
@@ -73,4 +73,4 @@ REAL_B :: RDTS62
 REAL_B :: RDTS22
 REAL_B :: RTDT
 !     ------------------------------------------------------------------
-END MODULE YOMRIP
+END MODULE OYOMRIP
index 8958756..f54aeb5 100644 (file)
@@ -14,7 +14,7 @@ USE PARRTM1D , ONLY : JP_LON   ,JP_IDIA  ,JP_FDIA  ,JP_TDIA  ,&
 
 !     USE YOMLUN   , ONLY : NULNAM
 
-USE YOMCST   , ONLY : RD       ,RG       ,RTT      ,RSIGMA   ,&
+USE OYOMCST   , ONLY : RD       ,RG       ,RTT      ,RSIGMA   ,&
  &            RCPD   ,RPI      ,RDAY     ,RCPD     ,REA      ,&
  &            RI0    ,RSIGMA   ,REPSM
 USE YOEAERD  , ONLY : CVDAES   ,CVDAEL   ,CVDAEU   ,CVDAED   ,&
@@ -25,19 +25,19 @@ USE YOELW    , ONLY : NSIL     ,NIPD     ,NTRA     ,NUA      ,&
  &            NG1      ,NG1P1    ,WG1
 USE YOEOVLP  , ONLY : RA1OVLP
 USE YOEPHLI  , ONLY : LPHYLIN
-USE YOERAD   , ONLY : NAER     ,NMODE    ,NOZOCL   ,&
+USE OYOERAD   , ONLY : NAER     ,NMODE    ,NOZOCL   ,&
  &            NRADFR   ,NRADPFR  ,NRADPLA  ,NRINT    ,NHOWINH  ,&
  &            NOVLP    ,NRADF2C  ,NRADC2F  ,NLW      ,NSW      ,&
  &            NTSW     ,LERAD6H  ,LERADHS  ,LHVOLCA  ,LNEWAER  ,&
  &            LONEWSW  ,LOWASYF  ,LOWHSSS  ,LOIFUEC  ,LRRTM    ,&
  &            LRADLP   ,LINHOM   ,RAOVLP   ,RBOVLP   ,&
  &            NICEOPT  ,NLIQOPT  ,NRADIP   ,NRADLP   ,RMINICE
-USE YOERDI   , ONLY : RCARDI   ,RCH4     ,RN2O     ,RO3      ,&
+USE OYOERDI   , ONLY : RCARDI   ,RCH4     ,RN2O     ,RO3      ,&
  &            RCFC11   ,RCFC12   ,REPCLC  
 USE YOERDU   , ONLY : NUAER    ,NTRAER   ,NIMP     ,NOUT     ,&
  &            RCDAY    ,R10E     ,REPLOG   ,REPSC    ,REPSCO   ,&
  &            REPSCQ   ,REPSCT   ,REPSCW   ,DIFF
-USE YOESW    , ONLY : LO3ONLY 
+USE OYOESW    , ONLY : LO3ONLY 
 USE YOETHF   , ONLY : R2ES     ,R3LES    ,R3IES    ,R4LES    ,&
  &            R4IES    ,R5LES    ,R5IES    ,R5ALVCP  ,R5ALSCP  ,&
  &            RALVDCP  ,RALSDCP  ,RTWAT    ,RTICE    ,RTICECU
index 31a10f4..df45e50 100644 (file)
@@ -65,14 +65,14 @@ SUBROUTINE RADACA ( KIDIA , KFDIA , KLON , KTDIA , KLEV &
 
 #include "tsmbkind.h"
 
-USE YOMCST   , ONLY : R        ,RPI
+USE OYOMCST   , ONLY : R        ,RPI
 USE YOEAERD  , ONLY : CVDAES   ,CVDAEL   ,CVDAEU   ,CVDAED   ,&
             &RCAEOPS  ,RCAEOPL  ,RCAEOPU  ,RCAEOPD  ,RCTRBGA  ,&
             &RCVOBGA  ,RCSTBGA  ,RCTRPT   ,RAESC    ,RAESS    ,&
             &RAELC    ,RAELS    ,RAEUC    ,RAEUS    ,RAEDC    ,&
             &RAEDS
 USE YOEOZOC  , ONLY : COZQC    ,COZQS    ,COZHC    ,COZHS
-USE YOERAD   , ONLY : LHVOLCA  ,LNEWAER
+USE OYOERAD   , ONLY : LHVOLCA  ,LNEWAER
 USE YOEAERC  , ONLY : RSINCT   ,RSINCV   ,REPAER   ,&
             &RTAEBC  ,RTAEOR   ,RTAESD   ,RTAESS   ,RTAESU   , &
             &RTAEVO 
index c51b139..2f5332d 100644 (file)
@@ -96,12 +96,12 @@ SUBROUTINE RADLSW &
 #include "tsmbkind.h"
 
 !USE YOMCT3   , ONLY : NSTEP
-USE YOMCST   , ONLY : RG       ,RD       ,RTT      ,RPI
-USE YOERAD   , ONLY : NSW      ,LRRTM    ,LINHOM, &
+USE OYOMCST   , ONLY : RG       ,RD       ,RTT      ,RPI
+USE OYOERAD   , ONLY : NSW      ,LRRTM    ,LINHOM, &
             &LOIFUEC, LTEMPDS, LOWASYF, LOWHSSS, NRADIP, NRADLP, &
             &NICEOPT, NLIQOPT, NOVLP  , NHOWINH, RMINICE
 USE YOELW    , ONLY : NSIL     ,NTRA     ,NUA      ,TSTAND   ,XP
-USE YOESW    , ONLY : RYFWCA   ,RYFWCB   ,RYFWCC   ,RYFWCD   ,&
+USE OYOESW    , ONLY : RYFWCA   ,RYFWCB   ,RYFWCC   ,RYFWCD   ,&
             &RYFWCE   ,RYFWCF   ,REBCUA   ,REBCUB   ,REBCUC   ,&
             &REBCUD   ,REBCUE   ,REBCUF   ,REBCUI   ,REBCUJ   ,&
             &REBCUG   ,REBCUH   ,RHSAVI   ,RFULIO   ,RFLAA0   ,&
@@ -113,10 +113,10 @@ USE YOESW    , ONLY : RYFWCA   ,RYFWCB   ,RYFWCC   ,RYFWCD   ,&
             &RASWCB   ,RASWCC   ,RASWCD   ,RASWCE   ,RASWCF   ,&
             &RLINLI
 USE YOERDU   , ONLY : NUAER    ,NTRAER   ,REPLOG   ,REPSC    ,DIFF
-USE YOERDI   , ONLY : REPCLC
+USE OYOERDI   , ONLY : REPCLC
 USE YOETHF   , ONLY : RTICE
 USE YOEPHLI  , ONLY : LPHYLIN
-USE YOERRTWN , ONLY : NG        ,NSPA      ,NSPB      ,WAVENUM1  ,&
+USE OYOERRTWN , ONLY : NG        ,NSPA      ,NSPB      ,WAVENUM1  ,&
            &WAVENUM2  ,DELWAVE   ,TOTPLNK   ,TOTPLK16
 USE YOEDBUG  , ONLY : LDEBUG
 
index 024ec46..007543c 100644 (file)
@@ -52,7 +52,7 @@ SUBROUTINE RADOZC ( KIDIA , KFDIA , KLON , KTDIA , KLEV &
 
 #include "tsmbkind.h"
 
-  USE YOMCST   , ONLY : R
+  USE OYOMCST   , ONLY : R
   USE YOEOZOC  , ONLY : RSINC    ,ROZT     ,RPROC
 
 
index c3a441d..db44cc8 100644 (file)
@@ -72,9 +72,9 @@ USE PARKIND1, ONLY :&
 ! --------------------------------------
 
 
-USE YOERRTO3 , ONLY : KAO     ,KBO     ,SELFREFO   ,FRACREFAO  ,&
+USE OYOERRTO3 , ONLY : KAO     ,KBO     ,SELFREFO   ,FRACREFAO  ,&
            &FRACREFBO  ,FORREFO    ,ABSN2OAO   ,ABSN2OBO
-USE YOERRTA3 , ONLY : ABSN2OA ,ABSN2OB  ,ETAREF    ,H2OREF     ,&
+USE OYOERRTA3 , ONLY : ABSN2OA ,ABSN2OB  ,ETAREF    ,H2OREF     ,&
            &N2OREF     ,CO2REF     ,STRRAT
 
 !     ------------------------------------------------------------------
index 1011736..e82127f 100644 (file)
@@ -72,9 +72,9 @@ USE PARKIND1, ONLY :&
 ! --------------------------------------
 
 
-USE YOERRTO3 , ONLY : KAO     ,KBO     ,SELFREFO   ,FRACREFAO  ,&
+USE OYOERRTO3 , ONLY : KAO     ,KBO     ,SELFREFO   ,FRACREFAO  ,&
            &FRACREFBO  ,FORREFO    ,ABSN2OAO   ,ABSN2OBO
-USE YOERRTA3 , ONLY : ABSN2OA ,ABSN2OB  ,ETAREF    ,H2OREF     ,&
+USE OYOERRTA3 , ONLY : ABSN2OA ,ABSN2OB  ,ETAREF    ,H2OREF     ,&
            &N2OREF     ,CO2REF     ,STRRAT
 
 !     ------------------------------------------------------------------
index 9bc253a..52da3e3 100644 (file)
@@ -72,9 +72,9 @@ USE PARKIND1, ONLY :&
 ! --------------------------------------
 
 
-USE YOERRTO3 , ONLY : KAO     ,KBO     ,SELFREFO   ,FRACREFAO  ,&
+USE OYOERRTO3 , ONLY : KAO     ,KBO     ,SELFREFO   ,FRACREFAO  ,&
            &FRACREFBO  ,FORREFO    ,ABSN2OAO   ,ABSN2OBO
-USE YOERRTA3 , ONLY : ABSN2OA ,ABSN2OB  ,ETAREF    ,H2OREF     ,&
+USE OYOERRTA3 , ONLY : ABSN2OA ,ABSN2OB  ,ETAREF    ,H2OREF     ,&
            &N2OREF     ,CO2REF     ,STRRAT
 
 !     ------------------------------------------------------------------
index 1bcf74e..56076ef 100644 (file)
@@ -72,8 +72,8 @@ USE PARKIND1, ONLY :&
 ! --------------------------------------
 
 
-USE YOERRTO4 , ONLY : KAO     ,KBO     ,SELFREFO   ,FRACREFAO  ,FRACREFBO
-USE YOERRTA4 , ONLY : STRRAT1   ,STRRAT2
+USE OYOERRTO4 , ONLY : KAO     ,KBO     ,SELFREFO   ,FRACREFAO  ,FRACREFBO
+USE OYOERRTA4 , ONLY : STRRAT1   ,STRRAT2
 
 !     ------------------------------------------------------------------
 
index 3ec6593..d900926 100644 (file)
@@ -72,8 +72,8 @@ USE PARKIND1, ONLY :&
 ! --------------------------------------
 
 
-USE YOERRTO4 , ONLY : KAO     ,KBO     ,SELFREFO   ,FRACREFAO  ,FRACREFBO
-USE YOERRTA4 , ONLY : STRRAT1   ,STRRAT2
+USE OYOERRTO4 , ONLY : KAO     ,KBO     ,SELFREFO   ,FRACREFAO  ,FRACREFBO
+USE OYOERRTA4 , ONLY : STRRAT1   ,STRRAT2
 
 !     ------------------------------------------------------------------
 
index c456450..a7071b7 100644 (file)
@@ -72,8 +72,8 @@ USE PARKIND1, ONLY :&
 ! --------------------------------------
 
 
-USE YOERRTO4 , ONLY : KAO     ,KBO     ,SELFREFO   ,FRACREFAO  ,FRACREFBO
-USE YOERRTA4 , ONLY : STRRAT1   ,STRRAT2
+USE OYOERRTO4 , ONLY : KAO     ,KBO     ,SELFREFO   ,FRACREFAO  ,FRACREFBO
+USE OYOERRTA4 , ONLY : STRRAT1   ,STRRAT2
 
 !     ------------------------------------------------------------------
 
index 30e4404..c8fcf47 100644 (file)
@@ -72,9 +72,9 @@ USE PARKIND1, ONLY :&
 ! --------------------------------------
 
 
-USE YOERRTO5 , ONLY : KAO     ,KBO     ,SELFREFO   ,FRACREFAO  ,&
+USE OYOERRTO5 , ONLY : KAO     ,KBO     ,SELFREFO   ,FRACREFAO  ,&
            &FRACREFBO, CCL4O
-USE YOERRTA5 , ONLY : STRRAT1   ,STRRAT2
+USE OYOERRTA5 , ONLY : STRRAT1   ,STRRAT2
 
 !     ------------------------------------------------------------------
 
index e28cf80..549b937 100644 (file)
@@ -72,9 +72,9 @@ USE PARKIND1, ONLY :&
 ! --------------------------------------
 
 
-USE YOERRTO5 , ONLY : KAO     ,KBO     ,SELFREFO   ,FRACREFAO  ,&
+USE OYOERRTO5 , ONLY : KAO     ,KBO     ,SELFREFO   ,FRACREFAO  ,&
            &FRACREFBO, CCL4O
-USE YOERRTA5 , ONLY : STRRAT1   ,STRRAT2
+USE OYOERRTA5 , ONLY : STRRAT1   ,STRRAT2
 
 !     ------------------------------------------------------------------
 
index 7df98b9..20827fb 100644 (file)
@@ -72,9 +72,9 @@ USE PARKIND1, ONLY :&
 ! --------------------------------------
 
 
-USE YOERRTO5 , ONLY : KAO     ,KBO     ,SELFREFO   ,FRACREFAO  ,&
+USE OYOERRTO5 , ONLY : KAO     ,KBO     ,SELFREFO   ,FRACREFAO  ,&
            &FRACREFBO, CCL4O
-USE YOERRTA5 , ONLY : STRRAT1   ,STRRAT2
+USE OYOERRTA5 , ONLY : STRRAT1   ,STRRAT2
 
 !     ------------------------------------------------------------------
 
index 04aab83..eac6c18 100644 (file)
@@ -61,14 +61,14 @@ SUBROUTINE RRTM_RRTM_140GP &
 
 #include "tsmbkind.h"
 
-USE PARRRTM  , ONLY : JPBAND   ,JPG      ,JPXSEC   ,JPGPT    ,JPLAY    ,&
+USE OPARRRTM  , ONLY : JPBAND   ,JPG      ,JPXSEC   ,JPGPT    ,JPLAY    ,&
             &JPINPX
-USE YOERRTWN , ONLY : WAVENUM1 ,WAVENUM2 ,DELWAVE  ,NG       ,NSPA     ,NSPB
+USE OYOERRTWN , ONLY : WAVENUM1 ,WAVENUM2 ,DELWAVE  ,NG       ,NSPA     ,NSPB
 !
-USE MODI_RRTM_ECRT_140GP
-USE MODI_RRTM_SETCOEF_140GP
-USE MODI_RRTM_GASABS1A_140GP
-USE MODI_RRTM_RTRN1A_140GP
+!USE MODI_ORRTM_ECRT_140GP
+!USE MODI_ORRTM_SETCOEF_140GP
+!USE MODI_ORRTM_GASABS1A_140GP
+!USE MODI_RRTM_RTRN1A_140GP
 !
 !------------------------------Arguments--------------------------------
 
@@ -214,7 +214,7 @@ DO iplon = kidia,kfdia
 
 !  print *,'before RRTM_ECRT_140GP'
 
-  CALL RRTM_ECRT_140GP &
+  CALL ORRTM_ECRT_140GP &
    &( iplon, klon , klev, icld &
    &, paer , paph , pap &
    &, pts  , pth  , pt &
@@ -235,14 +235,14 @@ DO iplon = kidia,kfdia
 
 !  print *,'before RRTM_SETCOEF_140GP'
   
-    CALL RRTM_SETCOEF_140GP (KLEV,COLDRY,WKL &
+    CALL ORRTM_SETCOEF_140GP (KLEV,COLDRY,WKL &
    &, FAC00,FAC01,FAC10,FAC11,FORFAC,JP,JT,JT1 &
    &, COLH2O,COLCO2,COLO3,COLN2O,COLCH4,COLO2,CO2MULT &
    &, LAYTROP,LAYSWTCH,LAYLOW,PAVEL,TAVEL,SELFFAC,SELFFRAC,INDSELF)
 
 ! print *,'before RRTM_GASABS1A_140GP'
 
-  CALL RRTM_GASABS1A_140GP (KLEV,ATR1,OD,TF1,COLDRY,WX &
+  CALL ORRTM_GASABS1A_140GP (KLEV,ATR1,OD,TF1,COLDRY,WX &
    &, TAUAERL,FAC00,FAC01,FAC10,FAC11,FORFAC,JP,JT,JT1,ONEMINUS &
    &, COLH2O,COLCO2,COLO3,COLN2O,COLCH4,COLO2,CO2MULT &
    &, LAYTROP,LAYSWTCH,LAYLOW,SELFFAC,SELFFRAC,INDSELF,PFRAC)
index 7dacbe7..c7b8765 100644 (file)
@@ -30,10 +30,10 @@ SUBROUTINE RRTM_RTRN1A_140GP (KLEV,ISTART,IEND,ICLDLYR,CLDFRAC,TAUCLD,ABSS1 &
 
 #include "tsmbkind.h"
 
-USE PARRRTM  , ONLY : JPBAND   ,JPGPT   ,JPLAY
-USE YOERRTAB , ONLY : BPADE
-USE YOERRTWN , ONLY : TOTPLNK  ,DELWAVE
-USE YOERRTFTR, ONLY : NGB
+USE OPARRRTM  , ONLY : JPBAND   ,JPGPT   ,JPLAY
+USE OYOERRTAB , ONLY : BPADE
+USE OYOERRTWN , ONLY : TOTPLNK  ,DELWAVE
+USE OYOERRTFTR, ONLY : NGB
 
 IMPLICIT NONE
 
index 4f1d83e..ce69c42 100644 (file)
@@ -59,7 +59,7 @@ SUBROUTINE SATUR ( KIDIA , KFDIA , KLON  , KTDIA , KLEV &
 
 #include "tsmbkind.h"
 
-USE YOMCST   , ONLY : RETV     ,RLVTT    ,RLSTT    ,RTT
+USE OYOMCST   , ONLY : RETV     ,RLVTT    ,RLSTT    ,RTT
 USE YOETHF   , ONLY : R2ES     ,R3LES    ,R3IES    ,R4LES    ,&
             &R4IES    ,R5LES    ,R5IES    ,R5ALVCP  ,R5ALSCP  ,&
             &RALVDCP  ,RALSDCP  ,RTWAT    ,RTICE    ,RTICECU
index 7de96be..d144114 100644 (file)
@@ -49,7 +49,7 @@ SUBROUTINE SUAERL
 
 #include "tsmbkind.h"
 
-USE YOESW    , ONLY : RAER
+USE OYOESW    , ONLY : RAER
 
 !      ----------------------------------------------------------------
 
index 0ce8d69..5b75c3c 100644 (file)
@@ -51,7 +51,7 @@ SUBROUTINE SUAERSN (KTSW,KSW)
 
 #include "tsmbkind.h"
 
-USE YOESW    , ONLY : RTAUA     ,RPIZA    ,RCGA
+USE OYOESW    , ONLY : RTAUA     ,RPIZA    ,RCGA
 
 !      ----------------------------------------------------------------
 
index f4cb5ff..d354dea 100644 (file)
@@ -51,7 +51,7 @@ SUBROUTINE SUCLDP
 
 #include "tsmbkind.h"
 
-USE YOMCST   , ONLY : RG
+USE OYOMCST   , ONLY : RG
 USE YOECLDP  , ONLY : RAMID    ,RCLDIFF  ,RCLCRIT  ,RKCONV   ,&
             &RPRC1    ,RPRC2    ,RCLDMAX  ,RPECONS  ,RTAUMEL  ,&
             &RENTRTU  ,RENTRRA  ,RAMIN    ,RLMIN    ,RASMICE  ,&
index 874a940..6b15feb 100644 (file)
@@ -61,7 +61,7 @@ SUBROUTINE SUCLOPN (KTSW,KSW , KLEV)
 
 #include "tsmbkind.h"
 
-USE YOESW    , ONLY : RYFWCA   ,RYFWCB   ,RYFWCC   ,RYFWCD   ,&
+USE OYOESW    , ONLY : RYFWCA   ,RYFWCB   ,RYFWCC   ,RYFWCD   ,&
             &RYFWCE   ,RYFWCF   ,REBCUA   ,REBCUB   ,REBCUC   ,&
             &REBCUD   ,REBCUE   ,REBCUF   ,REBCUG   ,REBCUH   ,&
             &REBCUI   ,REBCUJ   ,RASWCA   ,RASWCB   ,RASWCC   ,&
@@ -74,7 +74,7 @@ USE YOESW    , ONLY : RYFWCA   ,RYFWCB   ,RYFWCC   ,RYFWCD   ,&
             &RFLBB1   ,RFLBB2   ,RFLBB3   ,RFLCC0   ,RFLCC1   ,&
             &RFLCC2   ,RFLCC3   ,RFLDD0   ,RFLDD1   ,RFLDD2   ,&
             &RFLDD3   ,RLINLI   ,RTIW     ,RRIW
-USE YOERAD   , ONLY : RAOVLP   ,RBOVLP
+USE OYOERAD   , ONLY : RAOVLP   ,RBOVLP
 
 IMPLICIT NONE
 
index 1c9509e..557f076 100644 (file)
@@ -55,7 +55,7 @@ SUBROUTINE SUCST()
 
 #include "tsmbkind.h"
 
-USE YOMCST   , ONLY : RPI      ,RCLUM    ,RHPLA    ,RKBOL    ,&
+USE OYOMCST   , ONLY : RPI      ,RCLUM    ,RHPLA    ,RKBOL    ,&
             &RNAVO    ,RDAY     ,REA      ,REPSM    ,RSIYEA   ,&
             &RSIDAY   ,ROMEGA   ,RA       ,RG       ,R1SA     ,&
             &RSIGMA   ,RI0      ,R        ,RMD      ,RMV      ,&
@@ -65,7 +65,7 @@ USE YOMCST   , ONLY : RPI      ,RCLUM    ,RHPLA    ,RKBOL    ,&
             &RLMLT    ,RTT      ,RATM     ,RDT      ,RESTT    ,&
             &RALPW    ,RBETW    ,RGAMW    ,RALPS    ,RBETS    ,&
             &RGAMS    ,RALPD    ,RBETD    ,RGAMD
-USE YOMRIP   , ONLY : RTIMST   ,RTIMTR
+USE OYOMRIP   , ONLY : RTIMST   ,RTIMTR
 
 IMPLICIT NONE
 
index 8c5c747..4ee45fa 100644 (file)
@@ -67,7 +67,7 @@ SUBROUTINE SUECAEC ( KINDAT, KMINUT )
 
 #include "tsmbkind.h"
 
-USE YOMCST   , ONLY : RPI   , RDAY
+USE OYOMCST   , ONLY : RPI   , RDAY
 USE YOEAERC  , ONLY : RAERBC, RAEROR, RAERSD, RAERSS, RAERSU,&
               &REPAER, RSINCT, RSINCV,&
               &RTAEBC, RTAEOR, RTAESD, RTAESS, RTAESU, RTAEVO
index e04eda6..88e395d 100644 (file)
@@ -53,8 +53,8 @@ SUBROUTINE SUECOZC ( KINDAT, KMINUT )
 
 #include "tsmbkind.h"
 
-USE YOMCST   , ONLY : RPI      ,RDAY
-USE YOERDI   , ONLY : RO3
+USE OYOMCST   , ONLY : RPI      ,RDAY
+USE OYOERDI   , ONLY : RO3
 USE YOEOZOC  , ONLY : RSINC    ,ROZT     ,RPROC
 
 
index 43bb538..88e1d57 100644 (file)
@@ -28,7 +28,7 @@ SUBROUTINE SUOVLP ( KLEV, PAZ )
 
 #include "tsmbkind.h"
 
-USE YOERAD   , ONLY : RAOVLP, RBOVLP
+USE OYOERAD   , ONLY : RAOVLP, RBOVLP
 USE YOEOVLP  , ONLY : RA1OVLP
 
 IMPLICIT NONE
index 56ecae2..b08fa3f 100644 (file)
@@ -48,8 +48,8 @@ SUBROUTINE SUSW
 
 #include "tsmbkind.h"
 
-USE YOMCST   , ONLY : RG
-USE YOESW    , ONLY : APAD     ,BPAD     ,RRAY     ,RSUN     ,&
+USE OYOMCST   , ONLY : RG
+USE OYOESW    , ONLY : APAD     ,BPAD     ,RRAY     ,RSUN     ,&
             &RPDH1    ,RPDU1    ,RPNH     ,RPNU     ,RSWCE    ,&
             &RSWCP    ,RTDH2O   ,RTDUMG   ,RTH2O    ,RTUMG    ,D
 
index 012eb7e..e4c3a53 100644 (file)
@@ -54,9 +54,9 @@ SUBROUTINE SUSWN (KTSW,KSW)
 
 #include "tsmbkind.h"
 
-USE YOMCST   , ONLY : RG
-USE YOERAD   , ONLY : NTSW     ,LONEWSW
-USE YOESW    , ONLY : APAD     ,BPAD     ,RRAY     ,RSUN     ,&
+USE OYOMCST   , ONLY : RG
+USE OYOERAD   , ONLY : NTSW     ,LONEWSW
+USE OYOESW    , ONLY : APAD     ,BPAD     ,RRAY     ,RSUN     ,&
            &RPDH1    ,RPDU1    ,RPNH     ,RPNU     ,RSWCE    ,&
            &RSWCP    ,RTDH2O   ,RTDUMG   ,RTH2O    ,RTUMG    ,&
            &D        ,RROMA    ,RROMB    ,RRASY    ,RHSRA    ,&
index ed4a5cc..6b82f33 100644 (file)
@@ -66,10 +66,10 @@ SUBROUTINE SW &
 
 #include "tsmbkind.h"
 
-USE YOERAD   , ONLY : NSW
+USE OYOERAD   , ONLY : NSW
 USE YOERDU   , ONLY : RCDAY
 !++MODIF_MESONH
-USE YOERAD   , ONLY : NOVLP
+USE OYOERAD   , ONLY : NOVLP
 !--MODIF_MESONH
 USE MODI_SWU
 USE MODI_SW1S
@@ -242,6 +242,12 @@ DO JK = 1 , KLEV+1
   ENDDO
 ENDDO
 
+! PRINT*,"sw  PDIFFS,PDIRFS"
+! 
+! PRINT*,PDIFFS
+! 
+! PRINT*,PDIRFS
+
 DO JNU = INUIR , NSW
 
    !++MODIF_MESONH
@@ -256,8 +262,14 @@ DO JNU = INUIR , NSW
            &,  PTAUREL_DST(:,:,JNU) &
            &)
     !--MODIF_MESONH
+    
+    
 
   DO JL=KIDIA,KFDIA
+!     PRINT*,JL,JNU
+!     PRINT*,"SW"
+!     PRINT*,ZDIFF2(JL,1)
+    
     PDIFFS(JL,JNU)=ZDIFF2(JL,1)*ZFACT(JL)
     PDIRFS(JL,JNU)=ZDIRF2(JL,1)*ZFACT(JL)
   ENDDO
@@ -273,6 +285,14 @@ DO JNU = INUIR , NSW
     ZSUDU2T(JL)=ZSUDU2T(JL)+ZSUDU2(JL)
   ENDDO
 ENDDO
+! 
+! PRINT*,"sw  PDIFFS,PDIRFS"
+! 
+! PRINT*,PDIFFS
+! 
+! PRINT*,PDIRFS
+! 
+! pause
 
 !     ------------------------------------------------------------------
 
index 77e1e50..7006198 100644 (file)
@@ -66,9 +66,9 @@ SUBROUTINE SW1S &
 
 #include "tsmbkind.h"
 
-USE YOESW    , ONLY : RRAY     ,RSUN
+USE OYOESW    , ONLY : RRAY     ,RSUN
 !++MODIF_MESONH
-USE YOERAD   , ONLY : NSW , NOVLP
+USE OYOERAD   , ONLY : NSW , NOVLP
 !--MODIF_MESONH
 USE MODI_SWCLR
 USE MODI_SWR
@@ -84,7 +84,7 @@ INTEGER_M :: KFDIA
 INTEGER_M :: KIDIA
 INTEGER_M :: KLEV
 INTEGER_M :: KLON
-INTEGER_M :: KNU   ! index of wl
+INTEGER_M :: KNU
 
 
 
@@ -102,9 +102,9 @@ REAL_B :: PAER(KLON,6,KLEV)&
   &,  PRMU(KLON)           , PSEC(KLON)&
   &,  PTAU(KLON,NSW,KLEV)  , PUD(KLON,5,KLEV+1)
 
-REAL_B :: PFD(KLON,KLEV+1) , PFU(KLON,KLEV+1)&  ! Fluxes down and up
-  &,  PCD(KLON,KLEV+1)     , PCU(KLON,KLEV+1)&  ! Fluxes clear down and up
-  &,  PSUDU1(KLON)         , PDIFF(KLON,KLEV)&  
+REAL_B :: PFD(KLON,KLEV+1) , PFU(KLON,KLEV+1)&
+  &,  PCD(KLON,KLEV+1)     , PCU(KLON,KLEV+1)&
+  &,  PSUDU1(KLON)         , PDIFF(KLON,KLEV)&
   &,  PDIRF(KLON,KLEV)
 
 !++MODIF_MESONH
@@ -136,12 +136,10 @@ REAL_B :: ZCGAZ(KLON,KLEV)&
   &,  ZTRA1(KLON,KLEV+1), ZTRA2(KLON,KLEV+1)&
   &,  ZTRCLD(KLON)      , ZTRCLR(KLON)&
   &,  ZW6(KLON,6)       , ZW4(KLON,4), ZO(KLON,2) ,ZT(KLON,2) 
-  
+
 REAL_B :: ZTA1(KLON), ZTO1(KLON)
-REAL_B :: ZCLDIR 
+REAL_B :: ZCLDIR   
   
-  
-
 !     LOCAL INTEGER SCALARS
 INTEGER_M :: IKL, IKM1, JAJ, JK, JL
 
@@ -157,18 +155,12 @@ INTEGER_M :: IKL, IKM1, JAJ, JK, JL
 !*         1.1    OPTICAL THICKNESS FOR RAYLEIGH SCATTERING
 !                 -----------------------------------------
 
-! PRINT *,"PCLEAR ",PCLEAR
-! PAUSE
-
-! Rayleigh optical depth (Deschamps 1983)
 DO JL = KIDIA,KFDIA
   ZRAYL(JL) =  RRAY(KNU,1) + PRMU(JL) * (RRAY(KNU,2) + PRMU(JL)&
    &* (RRAY(KNU,3) + PRMU(JL) * (RRAY(KNU,4) + PRMU(JL)&
    &* (RRAY(KNU,5) + PRMU(JL) *  RRAY(KNU,6)       ))))
 ENDDO
 
-! PRINT *,"SW1S.F90 ZRAYL ", ZRAYL(1)
-! PRINT *,"YEAH"
 
 !     ------------------------------------------------------------------
 
@@ -188,28 +180,17 @@ ENDDO
         &, ODUST  , PPIZA_DST,PCGA_DST  &
        &, PTAUREL_DST )
 !--MODIF_MESONH
-! ZRJ0 and ZRK0 are downard and upward fluxes
-
-! PRINT *,"SW1S.F90 ZTAUAZ ",ZTAUAZ(1,1),ZTAUAZ(1,2)
 
 !*         2.2   CLOUDY FRACTION OF THE COLUMN
 !                -----------------------------
 
-! PTAU is cloud optical depth
-! PAER is aerosol optical depth
-! ZRAYL is rayleigh optical depth
-! NB : cloudy columns are further splitted into cloudy and clear portions
+
 CALL SWR &
   &( KIDIA ,KFDIA ,KLON  ,KLEV  , KNU &
   &, PALBD ,PCG   ,PCLD  ,POMEGA, PSEC , PTAU &
   &, ZCGAZ ,ZPIZAZ,ZRAY1 ,ZRAY2 , ZREFZ, ZRJ  ,ZRK , ZRMUE &
   &, ZTAUAZ,ZTRA1 ,ZTRA2 ,ZTRCLD &
   &)
-! PRINT *,"SW1S.F90 ZTAUAZ ",ZTAUAZ(1,1)
-! PRINT *,"ZRJ ",ZRJ(1,3,5),ZRK(1,3,5)
-! PRINT *,"ZRMU0 ",ZRMU0(1,1)
-! 
-! PRINT*,"ZTRCLD ZTRCLR ",ZTRCLD(:5),ZTRCLR(:5)
 
 !     ------------------------------------------------------------------
 
@@ -272,16 +253,13 @@ IF (NSW <= 4) THEN
       PCD(JL,IKL) = ZDIRF(JL) * RSUN(KNU)
     ENDDO
   ENDDO
-  
-  
+
   DO JL=KIDIA,KFDIA
-    ZDIFT(JL) = ZR6(JL,1)*ZR6(JL,2)*ZR6(JL,3)*ZTRCLD(JL) ! t for true ?
-    ZDIRT(JL) = ZR6(JL,4)*ZR6(JL,5)*ZR6(JL,6)*ZTRCLR(JL) 
-    PSUDU1(JL) = ((_ONE_-PCLEAR(JL)) * ZDIFT(JL)&        ! quantity not used by ECMWF_VERSION_2
+    ZDIFT(JL) = ZR6(JL,1)*ZR6(JL,2)*ZR6(JL,3)*ZTRCLD(JL)
+    ZDIRT(JL) = ZR6(JL,4)*ZR6(JL,5)*ZR6(JL,6)*ZTRCLR(JL)
+    PSUDU1(JL) = ((_ONE_-PCLEAR(JL)) * ZDIFT(JL)&
      &+PCLEAR(JL) * ZDIRT(JL)) * RSUN(KNU)
   ENDDO
-  
-
 
 
 !*         3.1.2  UPWARD FLUXES
@@ -405,20 +383,9 @@ ELSE IF (NSW == 6) THEN
       PDIFF(JL,IKL) = PFD(JL,IKL) - PDIRF(JL,IKL)
     ! Quentin
     
-!     PRINT *,"IKL",IKL
-!     PRINT *,"SW1.f90 PDIFF ",PDIFF(:5,1)
-!     PRINT *,"SW1.f90 PDIRF ",PDIRF(:5,1)
     ENDDO
-      
   ENDDO
-!   PRINT *,"SW1.f90 PDIFF ",PDIFF(:5,1)
-!   PRINT *,"SW1.f90 PDIRF ",PDIRF(:5,1)
-!   PRINT *,"SW1.f90 ZDIFF ",ZDIFF(1)
-!   PRINT *,"SW1.f90 ZDIRF ",ZDIRF(1)
-!   PRINT *,"SW1.f90 RSUN ",RSUN(KNU)
-!   PRINT *,"SW1.f90 PCLEAR ",PCLEAR(1)
-!   PRINT *,"SW1.f90 SIZE(PDIFF,1) ",SIZE(PDIFF,1),SIZE(PDIFF,2)
-  
+
   DO JL=KIDIA,KFDIA
     ZDIFT(JL) = ZR4(JL,1)*ZR4(JL,2)*ZT(JL,1)*ZTRCLD(JL)     ! true components with corrected cloudiness
     ZDIRT(JL) = ZR4(JL,3)*ZR4(JL,4)*ZT(JL,2)*ZTRCLR(JL)
@@ -426,7 +393,6 @@ ELSE IF (NSW == 6) THEN
       &+PCLEAR(JL) * ZDIRT(JL)) * RSUN(KNU)
   ENDDO
 
-
 !*         3.2.2  UPWARD FLUXES
 !                 -------------
 
index 308244e..e329799 100644 (file)
@@ -67,7 +67,7 @@ SUBROUTINE SW2S ( KIDIA, KFDIA, KLON , KLEV , KAER, KNU &
 
 #include "tsmbkind.h"
 
-USE YOESW    , ONLY : RRAY     ,RSUN
+USE OYOESW    , ONLY : RRAY     ,RSUN
 USE YOERDU   , ONLY : REPLOG
 
 
index c9c801d..ea7146f 100644 (file)
@@ -60,9 +60,9 @@ SUBROUTINE SWCLR &
 
 #include "tsmbkind.h"
 
-USE YOESW    , ONLY : RTAUA    ,RPIZA    ,RCGA
-USE YOERAD   , ONLY : NOVLP    ,NSW
-USE YOERDI   , ONLY : REPCLC
+USE OYOESW    , ONLY : RTAUA    ,RPIZA    ,RCGA
+USE OYOERAD   , ONLY : NOVLP    ,NSW
+USE OYOERDI   , ONLY : REPCLC
 USE YOERDU   , ONLY : REPSCT
 
 
@@ -226,14 +226,14 @@ DO JK = 1 , KLEV
    DO JL = KIDIA,KFDIA
     IF (KAER /= 0) THEN
       ZTRAY = PRAYL(JL) * PDSIG(JL,JK)
-      ZRATIO =PPIZAZ(JL,JK)+ZTRAY
+      ZRATIO =PPIZAZ(JL,JK)+ZTRAY  ! wi*ti+1*tr
       !Ponderation G**2
       ZFACOA_NEW(JL,JK)= ZFACOA_NEW(JL,JK)/ZRATIO
       !Ponderation w
       PPIZAZ(JL,JK)=ZRATIO/(PTAUAZ(JL,JK)+ZTRAY)
       !Ponderation g
       PCGAZ(JL,JK)=PCGAZ(JL,JK)/ZRATIO
-      !Ponderation+delta-modified parameters tau
+      !Ponderation+delta-modified parameters tau - applies delta-Eddington to the complete phase function 
       PTAUAZ(JL,JK)=(ZTRAY+PTAUAZ(JL,JK))*&
           (_ONE_-PPIZAZ(JL,JK)*ZFACOA_NEW(JL,JK))
       !delta-modified parameters w
index 07975c9..ec77caa 100644 (file)
@@ -72,7 +72,7 @@ SUBROUTINE SWDE &
 
 
 #include "tsmbkind.h"
-USE YOERAD   , ONLY : NOVLP 
+USE OYOERAD   , ONLY : NOVLP 
 IMPLICIT NONE
 
 
index e913191..138967d 100644 (file)
@@ -68,9 +68,9 @@ SUBROUTINE SWNI &
 
 #include "tsmbkind.h"
 
-USE YOERAD   , ONLY : NOVLP 
-USE YOESW    , ONLY : RRAY     ,RSUN     ,RSWCE    ,RSWCP
-USE YOERAD   , ONLY : NSW
+USE OYOERAD   , ONLY : NOVLP 
+USE OYOESW    , ONLY : RRAY     ,RSUN     ,RSWCE    ,RSWCP
+USE OYOERAD   , ONLY : NSW
 USE YOERDU   , ONLY : REPLOG
 !
 USE MODI_SWCLR
@@ -113,11 +113,11 @@ REAL_B :: PFDOWN(KLON,KLEV+1)  , PFUP(KLON,KLEV+1)&
   &,  PCDOWN(KLON,KLEV+1)  , PCUP(KLON,KLEV+1)&
   &,  PSUDU2(KLON)         , PDIFF(KLON,KLEV)&
   &,  PDIRF(KLON,KLEV) 
-  
+
 !Quentin
 REAL_B :: ZCLDIR 
-REAL_B :: ZTA1(KLON)
-
+REAL_B :: ZTA1(KLON)  
+  
 !++MODIF_MESONH
 LOGICAL           :: ODUST                   ! flag for DUST
 REAL_B  :: PPIZA_DST(KLON,KLEV)    !wvl ssa dust for current wavelength
@@ -579,7 +579,12 @@ DO JK = 1 , KLEV
     ! PDIRF(JL,IKL)=ZFD(JL,IKL)*RSUN(KNU)* PCLEAR(JL)
   ENDDO
 ENDDO
-
+! 
+! PRINT*,"SWNI,PDIFF,PDIRF"
+! print*, KLEV,shape(PDIRF),shape(PFDOWN)
+! PRINT*,PDIRF(1,:)-PFDOWN(1,1:KLEV)
+! PRINT*,PDIFF(:,1)
+! PRINT*,PDIRF(:,1)
 
 !*         6.2    UPWARD FLUXES
 !                 -------------
index 5e0e334..714e971 100644 (file)
@@ -56,7 +56,7 @@ SUBROUTINE SWR &
 
 #include "tsmbkind.h"
 
-USE YOERAD   , ONLY : NOVLP    ,NSW
+USE OYOERAD   , ONLY : NOVLP    ,NSW
 USE YOECLD   , ONLY : REPSEC
 USE YOEOVLP  , ONLY : RA1OVLP
 !
index ea784bb..df34a98 100644 (file)
@@ -59,7 +59,7 @@ SUBROUTINE SWTT ( KIDIA, KFDIA, KLON, KNU, KA , PU, PTR)
 
 #include "tsmbkind.h"
 
-USE YOESW    , ONLY : APAD     ,BPAD     ,D
+USE OYOESW    , ONLY : APAD     ,BPAD     ,D
 
 
 IMPLICIT NONE
index 3151cfb..a3d7433 100644 (file)
@@ -60,7 +60,7 @@ SUBROUTINE SWTT1 ( KIDIA,KFDIA,KLON,KNU,KABS,KIND, PU, PTR )
 
 #include "tsmbkind.h"
 
-USE YOESW    , ONLY : APAD     ,BPAD     ,D
+USE OYOESW    , ONLY : APAD     ,BPAD     ,D
 
 
 IMPLICIT NONE
index e23b436..15c8123 100644 (file)
@@ -54,9 +54,9 @@ SUBROUTINE SWU &
 #include "tsmbkind.h"
 
 USE YOECLD   , ONLY : REPSEC
-USE YOERAD   , ONLY : NOVLP    ,NSW
+USE OYOERAD   , ONLY : NOVLP    ,NSW
 USE YOERDU   , ONLY : REPSCQ
-USE YOESW    , ONLY : RPDH1    ,RPDU1    ,RPNH     ,RPNU     ,&
+USE OYOESW    , ONLY : RPDH1    ,RPDU1    ,RPNH     ,RPNU     ,&
             &RTDH2O   ,RTDUMG   ,RTH2O    ,RTUMG
 USE YOEOVLP  , ONLY : RA1OVLP
 !
index dcbb077..172f737 100644 (file)
@@ -60,7 +60,7 @@ SUBROUTINE SWUVO3 &
 
 #include "tsmbkind.h"
 
-USE YOESW    , ONLY : NEXPO3, REXPO3
+USE OYOESW    , ONLY : NEXPO3, REXPO3
 
 
 IMPLICIT NONE
index bc6b16a..201c90e 100644 (file)
@@ -8,7 +8,7 @@ MODULE YOERRTAM
 
 #include "tsmbkind.h"
 
-USE PARRRTM
+USE OPARRRTM
 
 
 IMPLICIT NONE
diff --git a/src/LIB/RAD/ecrad-1.0.1_mnh/ifs/cloud_overlap_decorr_len.F90 b/src/LIB/RAD/ecrad-1.0.1_mnh/ifs/cloud_overlap_decorr_len.F90
new file mode 100644 (file)
index 0000000..a0c35ec
--- /dev/null
@@ -0,0 +1,140 @@
+!      #################################
+       MODULE MODI_CLOUD_OVERLAP_DECORR_LEN
+!      #################################
+INTERFACE
+
+SUBROUTINE CLOUD_OVERLAP_DECORR_LEN &
+     & (KIDIA, KFDIA, KLON, PGEMU, NDECOLAT, &
+     &  PDECORR_LEN_EDGES_KM, PDECORR_LEN_WATER_KM, PDECORR_LEN_RATIO)
+
+USE PARKIND1 , ONLY : JPIM, JPRB
+
+INTEGER(KIND=JPIM),INTENT(IN) :: KIDIA    ! Start column to process
+INTEGER(KIND=JPIM),INTENT(IN) :: KFDIA    ! End column to process
+INTEGER(KIND=JPIM),INTENT(IN) :: KLON     ! Number of columns
+REAL(KIND=JPRB),   INTENT(IN) :: PGEMU(KLON) ! Sine of latitude
+INTEGER(KIND=JPIM),INTENT(IN) :: NDECOLAT
+REAL(KIND=JPRB), INTENT(OUT)           :: PDECORR_LEN_EDGES_KM(KLON)
+REAL(KIND=JPRB), INTENT(OUT), OPTIONAL :: PDECORR_LEN_WATER_KM(KLON)
+REAL(KIND=JPRB), INTENT(OUT), OPTIONAL :: PDECORR_LEN_RATIO
+
+END SUBROUTINE CLOUD_OVERLAP_DECORR_LEN
+END INTERFACE
+END MODULE MODI_CLOUD_OVERLAP_DECORR_LEN
+
+SUBROUTINE CLOUD_OVERLAP_DECORR_LEN &
+     & (KIDIA, KFDIA, KLON, PGEMU, NDECOLAT, &
+     &  PDECORR_LEN_EDGES_KM, PDECORR_LEN_WATER_KM, PDECORR_LEN_RATIO)
+
+! CLOUD_OVERLAP_DECORR_LEN
+!
+! PURPOSE
+! -------
+!   Calculate the cloud overlap decorrelation length as a function of
+!   latitude for use in the radiation scheme
+!
+! INTERFACE
+! ---------
+!   CLOUD_OVERLAP_DECORR_LEN is called from RADLSWR and RADIATION_SCHEME
+!
+! AUTHOR
+! ------
+!   Robin Hogan, ECMWF (using code extracted from radlswr.F90)
+!   Original: 2016-02-16
+!
+! MODIFICATIONS
+! -------------
+!
+! -------------------------------------------------------------------
+
+USE PARKIND1 , ONLY : JPIM, JPRB
+USE YOMHOOK  , ONLY : LHOOK, DR_HOOK
+USE YOMCST   , ONLY : RPI
+USE MODD_PARAM_ECRAD_N   , ONLY : XDECORR_CF,XDECORR_CW
+
+! -------------------------------------------------------------------
+
+IMPLICIT NONE
+
+! INPUT ARGUMENTS
+
+! *** Array dimensions and ranges
+INTEGER(KIND=JPIM),INTENT(IN) :: KIDIA    ! Start column to process
+INTEGER(KIND=JPIM),INTENT(IN) :: KFDIA    ! End column to process
+INTEGER(KIND=JPIM),INTENT(IN) :: KLON     ! Number of columns
+
+! *** Single-level variables 
+REAL(KIND=JPRB),   INTENT(IN) :: PGEMU(KLON) ! Sine of latitude
+
+! *** Configuration variable controlling the overlap scheme
+INTEGER(KIND=JPIM),INTENT(IN) :: NDECOLAT
+
+! OUTPUT ARGUMENTS
+
+! *** Decorrelation lengths for cloud edges and cloud water content,
+! *** in km
+REAL(KIND=JPRB), INTENT(OUT)           :: PDECORR_LEN_EDGES_KM(KLON)
+REAL(KIND=JPRB), INTENT(OUT), OPTIONAL :: PDECORR_LEN_WATER_KM(KLON)
+  
+! Ratio of water-content to cloud-edge decorrelation lengths
+REAL(KIND=JPRB), INTENT(OUT), OPTIONAL :: PDECORR_LEN_RATIO
+
+! LOCAL VARIABLES
+
+REAL(KIND=JPRB) :: ZRADIANS_TO_DEGREES, ZABS_LAT_DEG, ZCOS_LAT
+
+INTEGER(KIND=JPIM) :: JL
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+! -------------------------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('CLOUD_OVERLAP_DECORR_LEN',0,ZHOOK_HANDLE)
+  
+! -------------------------------------------------------------------
+IF (NDECOLAT == 0) THEN
+
+  ! Decorrelation lengths are constant values
+  PDECORR_LEN_EDGES_KM(KIDIA:KFDIA) = XDECORR_CF
+  IF (PRESENT(PDECORR_LEN_WATER_KM)) THEN
+    PDECORR_LEN_WATER_KM(KIDIA:KFDIA) = XDECORR_CW
+  ENDIF
+  IF (PRESENT(PDECORR_LEN_RATIO)) THEN
+    PDECORR_LEN_RATIO = XDECORR_CW / XDECORR_CF
+  ENDIF
+
+ELSE
+
+  ZRADIANS_TO_DEGREES = 180.0_JPRB / RPI
+
+  IF (NDECOLAT == 1) THEN
+    ! Shonk et al. (2010) Eq. 13 formula
+    DO JL = KIDIA,KFDIA
+      ZABS_LAT_DEG = ABS(ASIN(PGEMU(JL)) * ZRADIANS_TO_DEGREES)
+      PDECORR_LEN_EDGES_KM(JL) = 2.899_JPRB - 0.02759_JPRB * ZABS_LAT_DEG
+    ENDDO
+  ELSE ! NDECOLAT == 2
+    DO JL = KIDIA,KFDIA
+      ! Shonk et al. (2010) but smoothed over the equator
+      ZCOS_LAT = COS(ASIN(PGEMU(JL)))
+      PDECORR_LEN_EDGES_KM(JL) = 0.75_JPRB + 2.149_JPRB * ZCOS_LAT*ZCOS_LAT
+    ENDDO
+  ENDIF
+
+  ! Both NDECOLAT = 1 and 2 assume that the decorrelation length for
+  ! cloud water content is half that for cloud edges
+  IF (PRESENT(PDECORR_LEN_WATER_KM)) THEN
+    PDECORR_LEN_WATER_KM(KIDIA:KFDIA) = PDECORR_LEN_EDGES_KM(KIDIA:KFDIA) * 0.5_JPRB
+  ENDIF
+
+  IF (PRESENT(PDECORR_LEN_RATIO)) THEN
+    PDECORR_LEN_RATIO = 0.5_JPRB
+  ENDIF
+
+ENDIF
+
+! -------------------------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('CLOUD_OVERLAP_DECORR_LEN',1,ZHOOK_HANDLE)
+
+END SUBROUTINE CLOUD_OVERLAP_DECORR_LEN
diff --git a/src/LIB/RAD/ecrad-1.0.1_mnh/ifs/cos_sza.F90 b/src/LIB/RAD/ecrad-1.0.1_mnh/ifs/cos_sza.F90
new file mode 100644 (file)
index 0000000..f02aeb1
--- /dev/null
@@ -0,0 +1,345 @@
+SUBROUTINE COS_SZA(KSTART,KEND,KCOL,PGEMU,PGELAM,LDRADIATIONTIMESTEP,PMU0)
+
+!**** *COS_SZA*   
+
+!     Purpose.
+!     --------
+!        Compute the cosine of the solar zenith angle.  Note that this
+!        is needed for three different things: (1) as input to the
+!        radiation scheme in which it is used to compute the path
+!        length of the direct solar beam through the atmosphere, (2)
+!        every timestep to scale the solar fluxes by the incoming
+!        solar radiation at top-of-atmosphere, and (3) to compute the
+!        albedo of the ocean.  For (1) we ideally want an average
+!        value for the duration of a radiation timestep while for (2)
+!        we want an average value for the duration of a model
+!        timestep.
+
+!**   Interface.
+!     ----------
+!        *CALL* *COS_SZA(...)
+
+!        Explicit arguments : 
+!        ------------------
+!            PGEMU - Sine of latitude
+!            PGELAM - Geographic longitude in radians
+!            LDRadiationTimestep - Is this for a radiation timestep?
+!            PMU0 - Output cosine of solar zenith angle
+
+!        Implicit arguments :
+!        --------------------
+!            YRRIP%RWSOVR, RWSOVRM - Solar time for model/radiation timesteps
+!            RCODECM, RSIDECM - Sine/cosine of solar declination
+!            YRERAD%LAverageSZA - Average solar zenith angle in time interval?
+!            YRRIP%TSTEP - Model timestep in seconds
+!            YRERAD%NRADFR - Radiation frequency in timesteps
+
+!     Method.
+!     -------
+!        Compute cosine of the solar zenith angle, mu0, from lat, lon
+!        and solar time using standard formula.  If
+!        YRERAD%LAverageSZA=FALSE then this is done at a single time,
+!        which is assumed to be the mid-point of either the model or
+!        the radiation timestep.  If YRERAD%LAverageSZA=TRUE then we
+!        compute the average over the model timestep exactly by first
+!        computing sunrise/sunset times. For radiation timesteps, mu0
+!        is to be used to compute the path length of the direct solar
+!        beam through the atmosphere, and the fluxes are subsequently
+!        weighted by mu0.  Therefore night-time values are not used,
+!        so we average mu0 only when the sun is above the horizon.
+
+!     Externals.
+!     ----------
+
+!     Reference.
+!     ----------
+!        ECMWF Research Department documentation of the IFS
+!
+!        See also: Zhou, L., M. Zhang, Q. Bao, and Y. Liu (2015), On
+!        the incident solar radiation in CMIP5
+!        models. Geophys. Res. Lett., 42, 1930–1935. doi:
+!        10.1002/2015GL063239.
+
+!     Author.
+!     -------
+!      Robin Hogan, ECMWF, May 2015
+
+!     Modifications:
+!     --------------
+
+USE PARKIND1 , ONLY : JPIM, JPRB
+USE YOMHOOK  , ONLY : LHOOK, DR_HOOK
+USE YOMCST   , ONLY : RPI, RDAY
+! USE YOMRIP   , ONLY : YRRIP
+USE MODD_RADIATIONS_N , ONLY : XCOSDEL, XSINDEL, XZENITH ! no difference between yoerip and yomrip here
+! USE YOERIP   , ONLY : YRERIP
+USE MODD_PARAM_ECRAD_N  , ONLY : NRADFR, LCENTREDTIMESZA, LAVERAGESZA
+USE YOMLUN   , ONLY : NULOUT
+
+USE MODD_PARAM_RAD_n,  ONLY : XDTRAD
+USE MODD_RADIATIONS_n, ONLY : XSINDEL, XCOSDEL, XTSIDER
+USE MODD_TIME_n,       ONLY : TDTRAD_FULL
+USE MODD_DYN_n,       ONLY : XTSTEP
+
+!     ------------------------------------------------------------------
+
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM),INTENT(IN) :: KSTART      ! Start column to process
+INTEGER(KIND=JPIM),INTENT(IN) :: KEND        ! Last column to process
+INTEGER(KIND=JPIM),INTENT(IN) :: KCOL        ! Number of columns in arrays
+REAL(KIND=JPRB),   INTENT(IN) :: PGEMU(KCOL) ! Sine of latitude
+REAL(KIND=JPRB),   INTENT(IN) :: PGELAM(KCOL)! Longitude in radians
+LOGICAL, INTENT(IN) :: LDRADIATIONTIMESTEP   ! Is this for a radiation timestep?
+REAL(KIND=JPRB),  INTENT(OUT) :: PMU0(KCOL)  ! Cosine of solar zenith angle
+
+! Solar time at the start and end of the time interval
+REAL(KIND=JPRB) :: ZSOLARTIMESTART, ZSOLARTIMEEND
+
+! The time of half a model/radiation timestep, in radians
+REAL(KIND=JPRB) :: ZHALFTIMESTEP
+
+! For efficiency we precompute sin(solar declination)*sin(latitude)
+REAL(KIND=JPRB) :: ZSINDECSINLAT(KSTART:KEND)
+!...and cos(solar declination)*cos(latitude)
+REAL(KIND=JPRB) :: ZCOSDECCOSLAT(KSTART:KEND)
+! ...and cosine of latitude
+REAL(KIND=JPRB) :: ZCOSLAT(KSTART:KEND)
+
+! Tangent of solar declination
+REAL(KIND=JPRB) :: ZTANDEC
+
+! Hour angles (=local solar time in radians plus pi)
+REAL(KIND=JPRB) :: ZHOURANGLESTART, ZHOURANGLEEND
+REAL(KIND=JPRB) :: ZHOURANGLESUNSET, ZCOSHOURANGLESUNSET
+
+INTEGER(KIND=JPIM) :: JCOL        ! Column index
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+REAL(KIND=JPRB) :: ZTIME,ZUT
+REAL(KIND=JPRB) :: ZTUT,ZSOLANG
+
+!     ------------------------------------------------------------------
+IF (LHOOK) CALL DR_HOOK('COS_SZA',0,ZHOOK_HANDLE)
+
+! An average solar zenith angle can only be computed if the solar time
+! is centred on the time interval
+IF (LAVERAGESZA .AND. .NOT. LCENTREDTIMESZA) THEN
+  WRITE(NULOUT,*) 'ERROR IN COS_SZA: LAverageSZA=TRUE but LCentredTimeSZA=FALSE'
+  CALL ABOR1('COS_SZA: ABOR1 CALLED')
+ENDIF
+
+DO JCOL = KSTART,KEND
+  ZCOSLAT(JCOL) = SQRT(1.0_JPRB - PGEMU(JCOL)**2)
+ENDDO
+
+! Computation of solar hour angle from sunposn
+ZTIME     = TDTRAD_FULL%TIME + 0.5*XDTRAD
+ZUT       = MOD( 24.0+MOD(ZTIME/3600.,24.0),24.0 )
+ZTUT = ZUT - XTSIDER
+ZSOLANG = (ZTUT-12.0)*15.0*(RPI/180.)          ! hour angle in radians
+
+IF (LDRADIATIONTIMESTEP) THEN
+  ! Compute the effective cosine of solar zenith angle for a radiation
+  ! timestep
+
+  ! Precompute quantities that may be used more than once
+  DO JCOL = KSTART,KEND
+    ZSINDECSINLAT(JCOL) = XSINDEL * PGEMU(JCOL)  ! this is the current declination, not that of radiation (averaged over time step)
+    ZCOSDECCOSLAT(JCOL) = XCOSDEL * ZCOSLAT(JCOL)
+  ENDDO
+
+  IF (.NOT. LAVERAGESZA) THEN
+    ! Original method: compute the value at the centre of the
+    ! radiation timestep (assuming that LCentredTimeSZA=TRUE - see
+    ! updtim.F90)
+    DO JCOL = KSTART,KEND
+      ! It would be more efficient to do it like this...
+      ! PMU0(JCOL)=MAX(0.0_JPRB, ZSinDecSinLat(JCOL) &
+      !      & - ZCosDecCosLat(JCOL) * COS(YRERIP%RWSOVRM + PGELAM(JCOL)))
+      ! ...but for bit reproducibility with previous cycle we do it
+      ! like this:
+      PMU0(JCOL) = MAX(0.0_JPRB, ZSINDECSINLAT(JCOL) &
+           & - XCOSDEL*COS(ZSOLANG)*ZCOSLAT(JCOL)*COS(PGELAM(JCOL)) &
+           & + XCOSDEL*SIN(ZSOLANG)*ZCOSLAT(JCOL)*SIN(PGELAM(JCOL)))
+    ENDDO
+
+  ELSE
+    ! Compute the average MU0 for the period of the radiation
+    ! timestep, excluding times when the sun is below the horizon
+
+    ! First compute the sine and cosine of the times of the start and
+    ! end of the radiation timestep
+    ZHALFTIMESTEP = XTSTEP * REAL(NRADFR) * RPI / RDAY
+    ZSOLARTIMESTART = ZSOLANG - ZHALFTIMESTEP
+    ZSOLARTIMEEND   = ZSOLANG + ZHALFTIMESTEP
+
+    ! Compute tangent of solar declination, with check in case someone
+    ! simulates a planet completely tipped over
+    ZTANDEC = XSINDEL / MAX(XCOSDEL, 1.0E-12)
+
+    DO JCOL = KSTART,KEND
+      ! Sunrise equation: cos(hour angle at sunset) =
+      ! -tan(declination)*tan(latitude)
+      ZCOSHOURANGLESUNSET = -ZTANDEC * PGEMU(JCOL) &
+           &              / MAX(ZCOSLAT(JCOL), 1.0E-12)
+      IF (ZCOSHOURANGLESUNSET > 1.0) THEN
+        ! Perpetual darkness
+        PMU0(JCOL) = 0.0_JPRB
+      ELSE
+        ! Compute hour angle at start and end of time interval,
+        ! ensuring that the hour angle of the centre of the time
+        ! window is in the range -PI to +PI (equivalent to ensuring
+        ! that local solar time = solar time + longitude is in the
+        ! range 0 to 2PI)
+        IF (ZSOLANG + PGELAM(JCOL) < 2.0_JPRB*RPI) THEN
+          ZHOURANGLESTART = ZSOLARTIMESTART + PGELAM(JCOL) - RPI
+          ZHOURANGLEEND   = ZSOLARTIMEEND   + PGELAM(JCOL) - RPI 
+        ELSE
+          ZHOURANGLESTART = ZSOLARTIMESTART + PGELAM(JCOL) - 3.0_JPRB*RPI
+          ZHOURANGLEEND   = ZSOLARTIMEEND   + PGELAM(JCOL) - 3.0_JPRB*RPI
+        ENDIF
+
+        IF (ZCOSHOURANGLESUNSET >= -1.0) THEN
+          ! Not perpetual daylight or perpetual darkness, so we need
+          ! to check for sunrise or sunset lying within the time
+          ! interval
+          ZHOURANGLESUNSET = ACOS(ZCOSHOURANGLESUNSET)
+          IF (ZHOURANGLEEND <= -ZHOURANGLESUNSET &
+               & .OR. ZHOURANGLESTART >= ZHOURANGLESUNSET) THEN
+            ! The time interval is either completely before sunrise or
+            ! completely after sunset
+            PMU0(JCOL) = 0.0_JPRB
+            CYCLE
+          ENDIF
+
+          ! Bound the start and end hour angles by sunrise and sunset
+          ZHOURANGLESTART = MAX(-ZHOURANGLESUNSET, &
+               &                MIN(ZHOURANGLESTART, ZHOURANGLESUNSET))
+          ZHOURANGLEEND   = MAX(-ZHOURANGLESUNSET, &
+               &                MIN(ZHOURANGLEEND,   ZHOURANGLESUNSET))
+        ENDIF
+
+        IF (ZHOURANGLEEND - ZHOURANGLESTART > 1.0E-8) THEN
+          ! Compute average MU0 in the interval ZHourAngleStart to
+          ! ZHourAngleEnd
+          PMU0(JCOL) = ZSINDECSINLAT(JCOL) &
+               & + (ZCOSDECCOSLAT(JCOL) &
+               &    * (SIN(ZHOURANGLEEND) - SIN(ZHOURANGLESTART))) &
+               & / (ZHOURANGLEEND - ZHOURANGLESTART)
+
+          ! Just in case...
+          IF (PMU0(JCOL) < 0.0_JPRB) THEN
+            PMU0(JCOL) = 0.0_JPRB
+          ENDIF
+        ELSE
+          ! Too close to sunrise/sunset for a reliable calculation
+          PMU0(JCOL) = 0.0_JPRB
+        ENDIF
+
+      ENDIF
+    ENDDO
+  ENDIF
+
+ELSE
+  ! Compute the cosine of solar zenith angle for a model timestep
+
+  ! Precompute quantities that may be used more than once
+  DO JCOL = KSTART,KEND
+    ZSINDECSINLAT(JCOL) = XSINDEL * PGEMU(JCOL)
+    ZCOSDECCOSLAT(JCOL) = XCOSDEL * ZCOSLAT(JCOL)
+  ENDDO
+
+  IF (.NOT. LAVERAGESZA) THEN
+    ! Original method: compute the value at the centre of the
+    ! model timestep
+    DO JCOL = KSTART,KEND
+      ! It would be more efficient to do it like this...
+      ! PMU0(JCOL) = MAX(0.0_JPRB, ZSinDecSinLat(JCOL)        &
+      !      & - ZCosDecCosLat(JCOL)*COS(YRRIP%RWSOVR + PGELAM(JCOL)))
+      ! ...but for bit reproducibility with previous cycle we do it
+      ! like this:
+      PMU0(JCOL) = MAX(0.0_JPRB, ZSINDECSINLAT(JCOL) &
+           & - XCOSDEL*COS(ZSOLANG)*ZCOSLAT(JCOL)*COS(PGELAM(JCOL)) &
+           & + XCOSDEL*SIN(ZSOLANG)*ZCOSLAT(JCOL)*SIN(PGELAM(JCOL)))
+    ENDDO
+
+  ELSE
+    ! Compute the average MU0 for the period of the model timestep
+
+    ! First compute the sine and cosine of the times of the start and
+    ! end of the model timestep
+    ZHALFTIMESTEP   = XTSTEP * RPI / RDAY
+    ZSOLARTIMESTART = ZSOLANG - ZHALFTIMESTEP
+    ZSOLARTIMEEND   = ZSOLANG + ZHALFTIMESTEP
+
+    ! Compute tangent of solar declination, with check in case someone
+    ! simulates a planet completely tipped over
+    ZTANDEC = XSINDEL / MAX(XCOSDEL, 1.0E-12)
+
+    DO JCOL = KSTART,KEND
+      ! Sunrise equation: cos(hour angle at sunset) =
+      ! -tan(declination)*tan(latitude)
+      ZCOSHOURANGLESUNSET = -ZTANDEC * PGEMU(JCOL) &
+           &              / MAX(ZCOSLAT(JCOL), 1.0E-12)
+      IF (ZCOSHOURANGLESUNSET > 1.0) THEN
+        ! Perpetual darkness
+        PMU0(JCOL) = 0.0_JPRB
+      ELSE
+        ! Compute hour angle at start and end of time interval,
+        ! ensuring that the hour angle of the centre of the time
+        ! window is in the range -PI to +PI (equivalent to ensuring
+        ! that local solar time = solar time + longitude is in the
+        ! range 0 to 2PI)
+        IF (ZSOLANG + PGELAM(JCOL) < 2.0_JPRB*RPI) THEN
+          ZHOURANGLESTART = ZSOLARTIMESTART + PGELAM(JCOL) - RPI
+          ZHOURANGLEEND   = ZSOLARTIMEEND   + PGELAM(JCOL) - RPI 
+        ELSE
+          ZHOURANGLESTART = ZSOLARTIMESTART + PGELAM(JCOL) - 3.0_JPRB*RPI
+          ZHOURANGLEEND   = ZSOLARTIMEEND   + PGELAM(JCOL) - 3.0_JPRB*RPI
+        ENDIF
+
+        IF (ZCOSHOURANGLESUNSET >= -1.0) THEN
+          ! Not perpetual daylight or perpetual darkness, so we need
+          ! to check for sunrise or sunset lying within the time
+          ! interval
+          ZHOURANGLESUNSET = ACOS(ZCOSHOURANGLESUNSET)
+          IF (ZHOURANGLEEND <= -ZHOURANGLESUNSET &
+               & .OR. ZHOURANGLESTART >= ZHOURANGLESUNSET) THEN
+            ! The time interval is either completely before sunrise or
+            ! completely after sunset
+            PMU0(JCOL) = 0.0_JPRB
+            CYCLE
+          ENDIF
+
+          ! Bound the start and end hour angles by sunrise and sunset
+          ZHOURANGLESTART = MAX(-ZHOURANGLESUNSET, &
+               &                MIN(ZHOURANGLESTART, ZHOURANGLESUNSET))
+          ZHOURANGLEEND   = MAX(-ZHOURANGLESUNSET, &
+               &                MIN(ZHOURANGLEEND,   ZHOURANGLESUNSET))
+        ENDIF
+
+        ! Compute average MU0 in the model timestep, although the
+        ! numerator considers only the time from ZHourAngleStart to
+        ! ZHourAngleEnd that the sun is above the horizon
+        PMU0(JCOL) = (ZSINDECSINLAT(JCOL) * (ZHOURANGLEEND-ZHOURANGLESTART)   &
+           & + ZCOSDECCOSLAT(JCOL)*(SIN(ZHOURANGLEEND)-SIN(ZHOURANGLESTART))) &
+           & / (2.0_JPRB * ZHALFTIMESTEP)
+
+        ! This shouldn't ever result in negative values, but just in
+        ! case
+        IF (PMU0(JCOL) < 0.0_JPRB) THEN
+          PMU0(JCOL) = 0.0_JPRB
+        ENDIF
+
+      ENDIF
+    ENDDO
+  ENDIF
+
+ENDIF
+
+
+!     ------------------------------------------------------------------
+IF (LHOOK) CALL DR_HOOK('COS_SZA',1,ZHOOK_HANDLE)
+END SUBROUTINE COS_SZA
diff --git a/src/LIB/RAD/ecrad-1.0.1_mnh/ifs/ice_effective_radius.F90 b/src/LIB/RAD/ecrad-1.0.1_mnh/ifs/ice_effective_radius.F90
new file mode 100644 (file)
index 0000000..8d078cc
--- /dev/null
@@ -0,0 +1,196 @@
+!      #################################
+       MODULE MODI_ICE_EFFECTIVE_RADIUS
+!      #################################
+INTERFACE
+
+SUBROUTINE ICE_EFFECTIVE_RADIUS &
+     & (KIDIA, KFDIA, KLON, KLEV, &
+     &  PPRESSURE, PTEMPERATURE, PCLOUD_FRAC, PQ_ICE, PQ_SNOW, PGEMU, &
+     &  PRE_UM)
+
+USE PARKIND1 , ONLY : JPIM, JPRB
+! INPUT ARGUMENTS
+
+! *** Array dimensions and ranges
+INTEGER(KIND=JPIM),INTENT(IN) :: KIDIA    ! Start column to process
+INTEGER(KIND=JPIM),INTENT(IN) :: KFDIA    ! End column to process
+INTEGER(KIND=JPIM),INTENT(IN) :: KLON     ! Number of columns
+INTEGER(KIND=JPIM),INTENT(IN) :: KLEV     ! Number of levels
+
+! *** Variables on model levels
+REAL(KIND=JPRB),   INTENT(IN) :: PPRESSURE(KLON,KLEV)    ! (Pa)
+REAL(KIND=JPRB),   INTENT(IN) :: PTEMPERATURE(KLON,KLEV) ! (K)
+REAL(KIND=JPRB),   INTENT(IN) :: PCLOUD_FRAC(KLON,KLEV)  ! (kg/kg)
+REAL(KIND=JPRB),   INTENT(IN) :: PQ_ICE(KLON,KLEV)       ! (kg/kg)
+REAL(KIND=JPRB),   INTENT(IN) :: PQ_SNOW(KLON,KLEV)      ! (kg/kg)
+
+! *** Single level variable
+REAL(KIND=JPRB),   INTENT(IN) :: PGEMU(KLON) ! Sine of latitude
+
+! OUTPUT ARGUMENT
+! Effective radius
+REAL(KIND=JPRB),  INTENT(OUT) :: PRE_UM(KLON,KLEV) ! (microns)
+
+END SUBROUTINE ICE_EFFECTIVE_RADIUS
+END INTERFACE
+END MODULE MODI_ICE_EFFECTIVE_RADIUS
+
+SUBROUTINE ICE_EFFECTIVE_RADIUS &
+     & (KIDIA, KFDIA, KLON, KLEV, &
+     &  PPRESSURE, PTEMPERATURE, PCLOUD_FRAC, PQ_ICE, PQ_SNOW, PGEMU, &
+     &  PRE_UM)
+     
+! ICE_EFFECTIVE_RADIUS
+!
+! PURPOSE
+! -------
+!   Calculate effective radius of ice clouds
+!
+! AUTHOR
+! ------
+!   Robin Hogan, ECMWF (using code extracted from radlswr.F90)
+!   Original: 2016-02-24
+!
+! MODIFICATIONS
+! -------------
+!
+!
+! -------------------------------------------------------------------
+USE PARKIND1 , ONLY : JPIM, JPRB
+USE YOMHOOK  , ONLY : LHOOK, DR_HOOK
+! USE YOERAD   , ONLY : YRERAD
+USE YOM_YGFL , ONLY : YGFL
+! USE YOECLDP  , ONLY : YRECLDP
+USE YOERDU   , ONLY : REPLOG, REPSCW
+USE YOMLUN   , ONLY : NULERR
+USE YOMCST   , ONLY : RD, RPI, RTT
+USE MODD_PARAM_ECRAD_n , ONLY : NRADIP
+! INPUT ARGUMENTS
+
+! *** Array dimensions and ranges
+INTEGER(KIND=JPIM),INTENT(IN) :: KIDIA    ! Start column to process
+INTEGER(KIND=JPIM),INTENT(IN) :: KFDIA    ! End column to process
+INTEGER(KIND=JPIM),INTENT(IN) :: KLON     ! Number of columns
+INTEGER(KIND=JPIM),INTENT(IN) :: KLEV     ! Number of levels
+
+! *** Variables on model levels
+REAL(KIND=JPRB),   INTENT(IN) :: PPRESSURE(KLON,KLEV)    ! (Pa)
+REAL(KIND=JPRB),   INTENT(IN) :: PTEMPERATURE(KLON,KLEV) ! (K)
+REAL(KIND=JPRB),   INTENT(IN) :: PCLOUD_FRAC(KLON,KLEV)  ! (kg/kg)
+REAL(KIND=JPRB),   INTENT(IN) :: PQ_ICE(KLON,KLEV)       ! (kg/kg)
+REAL(KIND=JPRB),   INTENT(IN) :: PQ_SNOW(KLON,KLEV)      ! (kg/kg)
+
+! *** Single level variable
+REAL(KIND=JPRB),   INTENT(IN) :: PGEMU(KLON) ! Sine of latitude
+
+! OUTPUT ARGUMENT
+! Effective radius
+REAL(KIND=JPRB),  INTENT(OUT) :: PRE_UM(KLON,KLEV) ! (microns)
+
+! LOCAL VARIABLES
+
+REAL(KIND=JPRB) :: ZIWC_INCLOUD_GM3 ! In-cloud ice+snow water content in g m-3
+REAL(KIND=JPRB) :: ZAIR_DENSITY_GM3 ! Air density in g m-3
+
+REAL(KIND=JPRB) :: ZTEMPERATURE_C   ! Temperature, degrees Celcius
+REAL(KIND=JPRB) :: ZTEMP_FACTOR     ! Temperature, Kelvin minus 83.15
+REAL(KIND=JPRB) :: ZAIWC, ZBIWC     ! Factors in empirical relationship
+REAL(KIND=JPRB) :: ZDEFAULT_RE_UM   ! Default effective radius in microns 
+REAL(KIND=JPRB) :: ZDIAMETER_UM     ! Effective diameter in microns
+
+! Min effective diameter in microns; may vary with latitude
+REAL(KIND=JPRB) :: ZMIN_DIAMETER_UM(KLON)
+
+INTEGER :: JL, JK
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+! -------------------------------------------------------------------
+
+#include "abor1.intfb.h"
+
+! -------------------------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('ICE_EFFECTIVE_RADIUS',0,ZHOOK_HANDLE)
+
+! -------------------------------------------------------------------
+SELECT CASE(NRADIP)
+CASE(0)
+  ! Ice effective radius fixed at 40 microns
+  PRE_UM(KIDIA:KFDIA,:) = 40.0_JPRB  
+
+CASE(1,2)
+  ! Ice effective radius from Liou and Ou (1994)
+  DO JK = 1,KLEV
+    DO JL = KIDIA,KFDIA
+      ! Convert Kelvin to Celcius, preventing positive numbers
+      ZTEMPERATURE_C = MIN(PTEMPERATURE(JL,JK) - RTT, -0.1)
+      ! Liou and Ou's empirical formula
+      PRE_UM(JL,JK) = 326.3_JPRB + ZTEMPERATURE_C * (12.42_JPRB &
+           &  + ZTEMPERATURE_C * (0.197_JPRB + ZTEMPERATURE_C * 0.0012_JPRB))
+      IF (NRADIP == 1) THEN
+        ! Original Liou and Ou (1994) bounds of 40-130 microns
+        PRE_UM(JL,JK) = MAX(PRE_UM(JL,JK), 40.0_JPRB)
+        PRE_UM(JL,JK) = MIN(PRE_UM(JL,JK),130.0_JPRB)
+      ELSE
+        ! Formulation following Jakob, Klein modifications to ice
+        ! content
+        PRE_UM(JL,JK) = MAX(PRE_UM(JL,JK), 30.0_JPRB)
+        PRE_UM(JL,JK) = MIN(PRE_UM(JL,JK), 60.0_JPRB)
+      ENDIF
+    ENDDO
+  ENDDO
+
+CASE(3)
+  ! Ice effective radius = f(T,IWC) from Sun and Rikus (1999), revised
+  ! by Sun (2001)
+
+  ! Default effective radius is computed from an effective diameter of
+  ! 80 microns; note that multiplying by re2de actually converts from
+  ! effective diameter to effective radius.
+  ZDEFAULT_RE_UM = 80.0_JPRB * XRE2DE
+
+  ! Minimum effective diameter may vary with latitude
+  IF (NMINICE == 0) THEN
+    ! Constant effective diameter
+    ZMIN_DIAMETER_UM(KIDIA:KFDIA) = XRMINICE
+  ELSE
+    ! Ice effective radius varies with latitude, smaller at poles
+    DO JL = KIDIA,KFDIA
+      ZMIN_DIAMETER_UM(JL) = 20.0_JPRB + (XRMINICE - 20.0_JPRB) &
+           &                          * COS(ASIN(PGEMU(JL)))
+    ENDDO
+  ENDIF
+
+  DO JK = 1,KLEV
+    DO JL = KIDIA,KFDIA
+      IF (PCLOUD_FRAC(JL,JK) > 0.001_JPRB &
+           &  .AND. (PQ_ICE(JL,JK)+PQ_SNOW(JL,JK)) > 0.0_JPRB) THEN
+        ZAIR_DENSITY_GM3 = 1000.0_JPRB * PPRESSURE(JL,JK) / (RD*PTEMPERATURE(JL,JK))
+        ZIWC_INCLOUD_GM3 = ZAIR_DENSITY_GM3 * (PQ_ICE(JL,JK) + PQ_SNOW(JL,JK)) &
+             &           / PCLOUD_FRAC(JL,JK)
+        ZTEMPERATURE_C = PTEMPERATURE(JL,JK) - RTT
+        ! Sun, 2001 (corrected from Sun & Rikus, 1999)
+        ZAIWC = 45.8966_JPRB * ZIWC_INCLOUD_GM3**0.2214_JPRB
+        ZBIWC = 0.7957_JPRB  * ZIWC_INCLOUD_GM3**0.2535_JPRB
+        ZDIAMETER_UM = (1.2351_JPRB + 0.0105_JPRB * ZTEMPERATURE_C) &
+             & * (ZAIWC + ZBIWC*(PTEMPERATURE(JL,JK) - 83.15_JPRB))
+        ZDIAMETER_UM = MIN ( MAX( ZDIAMETER_UM, ZMIN_DIAMETER_UM(JL)), 155.0_JPRB)
+        PRE_UM(JL,JK) = ZDIAMETER_UM * XRE2DE
+      ELSE
+        PRE_UM(JL,JK) = ZDEFAULT_RE_UM
+      ENDIF
+    ENDDO
+  ENDDO
+  
+CASE DEFAULT
+  WRITE(NULERR,'(A,I0,A)') 'ICE EFFECTIVE RADIUS OPTION NRADLP=',NRADIP,' NOT AVAILABLE'
+  CALL ABOR1('ERROR IN ICE_EFFECTIVE_RADIUS')
+
+END SELECT
+
+! -------------------------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('ICE_EFFECTIVE_RADIUS',1,ZHOOK_HANDLE)
+  
+END SUBROUTINE ICE_EFFECTIVE_RADIUS
diff --git a/src/LIB/RAD/ecrad-1.0.1_mnh/ifs/liquid_effective_radius.F90 b/src/LIB/RAD/ecrad-1.0.1_mnh/ifs/liquid_effective_radius.F90
new file mode 100644 (file)
index 0000000..7a1348a
--- /dev/null
@@ -0,0 +1,300 @@
+MODULE MODI_LIQUID_EFFECTIVE_RADIUS
+
+INTERFACE
+
+SUBROUTINE LIQUID_EFFECTIVE_RADIUS &
+     & (KIDIA, KFDIA, KLON, KLEV, &
+     &  PPRESSURE, PTEMPERATURE, PCLOUD_FRAC, PQ_LIQ, PQ_RAIN, &
+     &  PLAND_FRAC, PCCN_LAND, PCCN_SEA, &
+     &  PRE_UM)
+
+
+USE PARKIND1 , ONLY : JPIM, JPRB
+
+
+! INPUT ARGUMENTS
+
+! *** Array dimensions and ranges
+INTEGER(KIND=JPIM),INTENT(IN) :: KIDIA    ! Start column to process
+INTEGER(KIND=JPIM),INTENT(IN) :: KFDIA    ! End column to process
+INTEGER(KIND=JPIM),INTENT(IN) :: KLON     ! Number of columns
+INTEGER(KIND=JPIM),INTENT(IN) :: KLEV     ! Number of levels
+
+! *** Variables on model levels
+REAL(KIND=JPRB),   INTENT(IN) :: PPRESSURE(KLON,KLEV)    ! (Pa)
+REAL(KIND=JPRB),   INTENT(IN) :: PTEMPERATURE(KLON,KLEV) ! (K)
+REAL(KIND=JPRB),   INTENT(IN) :: PCLOUD_FRAC(KLON,KLEV)
+REAL(KIND=JPRB),   INTENT(IN) :: PQ_LIQ(KLON,KLEV)       ! (kg/kg)
+REAL(KIND=JPRB),   INTENT(IN) :: PQ_RAIN(KLON,KLEV)      ! (kg/kg)
+
+! *** Single-level variables 
+REAL(KIND=JPRB),   INTENT(IN) :: PLAND_FRAC(KLON)        ! 1=land, 0=sea
+REAL(KIND=JPRB),   INTENT(IN) :: PCCN_LAND(KLON)
+REAL(KIND=JPRB),   INTENT(IN) :: PCCN_SEA(KLON)
+
+! OUTPUT ARGUMENT
+
+! Effective radius
+REAL(KIND=JPRB),  INTENT(OUT) :: PRE_UM(KLON,KLEV) ! (microns)
+
+END SUBROUTINE LIQUID_EFFECTIVE_RADIUS
+END INTERFACE
+END MODULE MODI_LIQUID_EFFECTIVE_RADIUS
+
+SUBROUTINE LIQUID_EFFECTIVE_RADIUS &
+     & (KIDIA, KFDIA, KLON, KLEV, &
+     &  PPRESSURE, PTEMPERATURE, PCLOUD_FRAC, PQ_LIQ, PQ_RAIN, &
+     &  PLAND_FRAC, PCCN_LAND, PCCN_SEA, &
+     &  PRE_UM)
+
+! LIQUID_EFFECTIVE_RADIUS
+!
+! PURPOSE
+! -------
+!   Calculate effective radius of liquid clouds
+!
+! AUTHOR
+! ------
+!   Robin Hogan, ECMWF (using code extracted from radlswr.F90)
+!   Original: 2015-09-24
+!
+! MODIFICATIONS
+! -------------
+!
+!
+! -------------------------------------------------------------------
+
+USE PARKIND1 , ONLY : JPIM, JPRB
+USE YOMHOOK  , ONLY : LHOOK, DR_HOOK
+!USE YOERAD   , ONLY : YRERAD
+USE MODD_PARAM_ECRAD_n , ONLY : NRADLP, NAERMACC, NMCVAR, XCCNSEA, XCCNLND, NAERCLD, &
+                            &   NACTAERO, LCCNO, LCCNL
+
+USE YOM_YGFL , ONLY : YGFL
+! USE YOECLDP  , ONLY : YRECLDP
+USE YOERDU   , ONLY : REPLOG, REPSCW
+USE YOMLUN   , ONLY : NULERR
+USE YOMCST   , ONLY : RD, RPI
+
+! -------------------------------------------------------------------
+
+IMPLICIT NONE
+
+! INPUT ARGUMENTS
+
+! *** Array dimensions and ranges
+INTEGER(KIND=JPIM),INTENT(IN) :: KIDIA    ! Start column to process
+INTEGER(KIND=JPIM),INTENT(IN) :: KFDIA    ! End column to process
+INTEGER(KIND=JPIM),INTENT(IN) :: KLON     ! Number of columns
+INTEGER(KIND=JPIM),INTENT(IN) :: KLEV     ! Number of levels
+
+! *** Variables on model levels
+REAL(KIND=JPRB),   INTENT(IN) :: PPRESSURE(KLON,KLEV)    ! (Pa)
+REAL(KIND=JPRB),   INTENT(IN) :: PTEMPERATURE(KLON,KLEV) ! (K)
+REAL(KIND=JPRB),   INTENT(IN) :: PCLOUD_FRAC(KLON,KLEV)
+REAL(KIND=JPRB),   INTENT(IN) :: PQ_LIQ(KLON,KLEV)       ! (kg/kg)
+REAL(KIND=JPRB),   INTENT(IN) :: PQ_RAIN(KLON,KLEV)      ! (kg/kg)
+
+! *** Single-level variables 
+REAL(KIND=JPRB),   INTENT(IN) :: PLAND_FRAC(KLON)        ! 1=land, 0=sea
+REAL(KIND=JPRB),   INTENT(IN) :: PCCN_LAND(KLON)
+REAL(KIND=JPRB),   INTENT(IN) :: PCCN_SEA(KLON)
+
+! OUTPUT ARGUMENT
+
+! Effective radius
+REAL(KIND=JPRB),  INTENT(OUT) :: PRE_UM(KLON,KLEV) ! (microns)
+
+! PARAMETERS
+
+! Minimum and maximum effective radius, in microns
+REAL(KIND=JPRB), PARAMETER :: PP_MIN_RE_UM =  4.0_JPRB
+REAL(KIND=JPRB), PARAMETER :: PP_MAX_RE_UM = 30.0_JPRB
+
+! LOCAL VARIABLES
+INTEGER :: IRADLP ! ID of effective radius scheme to use
+INTEGER :: NACTIVE_AEROSOL ! Number of active aerosol
+REAL(KIND=JPRB) :: ZCCN    ! CCN concentration (units?)
+
+REAL(KIND=JPRB) :: ZSPECTRAL_DISPERSION
+REAL(KIND=JPRB) :: ZNTOT_CM3 ! Number conc in cm-3
+REAL(KIND=JPRB) :: ZRE_CUBED
+REAL(KIND=JPRB) :: ZLWC_GM3, ZRWC_GM3 ! In-cloud liquid, rain content in g m-3
+REAL(KIND=JPRB) :: ZAIR_DENSITY_GM3   ! Air density in g m-3
+REAL(KIND=JPRB) :: ZRAIN_RATIO        ! Ratio of rain to liquid water content
+REAL(KIND=JPRB) :: ZWOOD_FACTOR, ZRATIO
+REAL(KIND=JPRB) :: ZNUM, ZDEN, ZNTOT,ZD
+
+INTEGER :: JL, JK
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+! -------------------------------------------------------------------
+
+#include "abor1.intfb.h"
+
+! -------------------------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('LIQUID_EFFECTIVE_RADIUS',0,ZHOOK_HANDLE)
+
+! -------------------------------------------------------------------
+
+! Reproduce logic from RADLSWR
+NACTIVE_AEROSOL = NACTAERO
+IF (NACTAERO == 0 .AND. NAERMACC == 1) NACTIVE_AEROSOL = NMCVAR
+IRADLP = NRADLP
+IF (NACTIVE_AEROSOL >= 12 .AND. NAERCLD > 0 ) IRADLP=3 
+
+SELECT CASE(IRADLP)
+CASE(0)
+  ! Very old parameterization as a function of pressure, used in ERA-15
+  PRE_UM(KIDIA:KFDIA,:) = 10.0_JPRB &
+       &  + (100000.0_JPRB-PPRESSURE(KIDIA:KFDIA,:))*3.5_JPRB
+  
+CASE(1)
+  ! Simple distinction between land (10um) and ocean (13um) by Zhang
+  ! and Rossow
+  DO JL = KIDIA,KFDIA
+    IF (PLAND_FRAC(JL) < 0.5_JPRB) THEN
+      PRE_UM(JL,:) = 13.0_JPRB
+    ELSE
+      PRE_UM(JL,:) = 10.0_JPRB
+    ENDIF
+  ENDDO
+  
+CASE(2)
+  ! Martin et al. (JAS 1994)
+  ! Old ECMWF version
+  DO JL = KIDIA,KFDIA 
+    IF (PLAND_FRAC(JL) < 0.5_JPRB) THEN
+        ZCCN=150.
+        ZD=0.33
+        ZNTOT=-1.15E-03*ZCCN*ZCCN+0.963*ZCCN+5.30
+    ELSE
+        ZCCN=900.
+        ZD=0.43
+        ZNTOT=-2.10E-04*ZCCN*ZCCN+0.568*ZCCN-27.9
+    ENDIF
+    
+   ! Only consider cloudy regions
+    DO JK = 1,KLEV
+        IF (PCLOUD_FRAC(JL,JK) >= 0.001_JPRB &
+            &  .AND. (PQ_LIQ(JL,JK)+PQ_RAIN(JL,JK)) > 0.0_JPRB) THEN
+
+            ! Compute liquid and rain water contents
+            ZAIR_DENSITY_GM3 = 1000.0_JPRB * PPRESSURE(JL,JK) &
+                    &           / (RD*PTEMPERATURE(JL,JK))
+            ! In-cloud mean water contents found by dividing by cloud
+            ! fraction
+            ZLWC_GM3 = ZAIR_DENSITY_GM3 * PQ_LIQ(JL,JK)  / PCLOUD_FRAC(JL,JK)
+            ZRWC_GM3 = ZAIR_DENSITY_GM3 * PQ_RAIN(JL,JK) / PCLOUD_FRAC(JL,JK)
+    
+            ZNUM=3.*(ZLWC_GM3+ZRWC_GM3)*(1.+3.*ZD*ZD)**2 ! conversion mixing ratio into LWC
+            ZDEN=4.*RPI*ZNTOT*(1.+ZD*ZD)**3
+            PRE_UM(JL,JK) =100.*(ZNUM/ZDEN)**0.333
+            PRE_UM(JL,JK)=MAX(PRE_UM(JL,JK), 4.)
+            PRE_UM(JL,JK)=MIN(PRE_UM(JL,JK),16.)
+        ENDIF
+    ENDDO  
+    
+  ENDDO 
+! print*, "PRE_UM"
+! print*, PRE_UM 
+! pause
+! 
+! print*, "PQ_LIQ+PQ_RAIN"
+! print*, PQ_LIQ+PQ_RAIN
+! pause 
+
+CASE(3) 
+ ! Improved version in ECRAD
+  DO JL = KIDIA,KFDIA
+    ! First compute the cloud droplet concentration
+    IF (PLAND_FRAC(JL) < 0.5_JPRB) THEN
+      ! Sea case
+      IF (LCCNO) THEN
+        ZCCN = PCCN_SEA(JL)
+      ELSE
+        ZCCN = XCCNSEA
+      ENDIF
+      ZSPECTRAL_DISPERSION = 0.77_JPRB
+      ! Cloud droplet concentration in cm-3 (activated CCN) over
+      ! ocean
+      ZNTOT_CM3 = -1.15E-03_JPRB*ZCCN*ZCCN + 0.963_JPRB*ZCCN + 5.30_JPRB
+    ELSE
+      ! Land case
+      IF (LCCNL) THEN 
+        ZCCN=PCCN_LAND(JL)
+      ELSE  
+        ZCCN=XCCNLND
+      ENDIF
+      ZSPECTRAL_DISPERSION = 0.69_JPRB
+      ! Cloud droplet concentration in cm-3 (activated CCN) over
+      ! land
+      ZNTOT_CM3 = -2.10E-04_JPRB*ZCCN*ZCCN + 0.568_JPRB*ZCCN - 27.9_JPRB
+    ENDIF
+    
+    ZRATIO = (0.222_JPRB/ZSPECTRAL_DISPERSION)**0.333_JPRB
+    
+    DO JK = 1,KLEV
+
+      ! Only consider cloudy regions
+      IF (PCLOUD_FRAC(JL,JK) >= 0.001_JPRB &
+           &  .AND. (PQ_LIQ(JL,JK)+PQ_RAIN(JL,JK)) > 0.0_JPRB) THEN
+
+        ! Compute liquid and rain water contents
+        ZAIR_DENSITY_GM3 = 1000.0_JPRB * PPRESSURE(JL,JK) &
+             &           / (RD*PTEMPERATURE(JL,JK))
+        ! In-cloud mean water contents found by dividing by cloud
+        ! fraction
+        ZLWC_GM3 = ZAIR_DENSITY_GM3 * PQ_LIQ(JL,JK)  / PCLOUD_FRAC(JL,JK)
+        ZRWC_GM3 = ZAIR_DENSITY_GM3 * PQ_RAIN(JL,JK) / PCLOUD_FRAC(JL,JK)
+      
+        ! Wood's (2000, eq. 19) adjustment to Martin et al's
+        ! parameterization
+        IF (ZLWC_GM3 > REPSCW) THEN
+          ZRAIN_RATIO = ZRWC_GM3 / ZLWC_GM3
+          ZWOOD_FACTOR = ((1.0_JPRB + ZRAIN_RATIO)**0.666_JPRB) &
+               &     / (1.0_JPRB + 0.2_JPRB * ZRATIO*ZRAIN_RATIO)
+        ELSE
+          ZWOOD_FACTOR = 1.0_JPRB
+        ENDIF
+      
+        ! g m-3 and cm-3 units cancel out with density of water
+        ! 10^6/(1000*1000); need a factor of 10^6 to convert to
+        ! microns and cubed root is factor of 100 which appears in
+        ! equation below
+        ZRE_CUBED = (3.0_JPRB * (ZLWC_GM3 + ZRWC_GM3)) &
+             &    / (4.0_JPRB*RPI*ZNTOT_CM3*ZSPECTRAL_DISPERSION)
+        IF (ZRE_CUBED > REPLOG) THEN
+          PRE_UM(JL,JK) = ZWOOD_FACTOR*100.0_JPRB*EXP(0.333_JPRB*LOG(ZRE_CUBED))
+          ! Make sure effective radius is bounded in range 4-30 microns
+          PRE_UM(JL,JK) = MAX(PP_MIN_RE_UM, MIN(PRE_UM(JL,JK), PP_MAX_RE_UM))
+        ELSE
+          PRE_UM(JL,JK) = PP_MIN_RE_UM
+        ENDIF
+
+      ELSE
+        ! Cloud fraction or liquid+rain water content too low to
+        ! consider this a cloud
+        PRE_UM(JL,JK) = PP_MIN_RE_UM
+
+      ENDIF
+
+    ENDDO
+    
+  ENDDO
+  
+
+  
+CASE DEFAULT
+  WRITE(NULERR,'(A,I0,A)') 'LIQUID EFFECTIVE RADIUS OPTION IRADLP=',IRADLP,' NOT AVAILABLE'
+  CALL ABOR1('ERROR IN LIQUID_EFFECTIVE_RADIUS')
+END SELECT
+
+! -------------------------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('LIQUID_EFFECTIVE_RADIUS',1,ZHOOK_HANDLE)
+  
+END SUBROUTINE LIQUID_EFFECTIVE_RADIUS
diff --git a/src/LIB/RAD/ecrad-1.0.1_mnh/ifs/radiation_scheme.F90 b/src/LIB/RAD/ecrad-1.0.1_mnh/ifs/radiation_scheme.F90
new file mode 100644 (file)
index 0000000..e33efcc
--- /dev/null
@@ -0,0 +1,621 @@
+!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier
+!MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence
+!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt  
+!MNH_LIC for details. version 1.
+!-----------------------------------------------------------------
+!--------------- special set of characters for RCS information
+!-----------------------------------------------------------------
+! $Source: /home/cvsroot/MNH-VX-Y-Z/src/MNH/ecmwf_radiation_vers2.f90,v $ $Revision: 1.3.2.4.2.2.2.1 $
+! masdev4_7 BUG1 2007/06/15 17:47:17
+!-----------------------------------------------------------------
+!      #################################
+       MODULE MODI_RADIATION_SCHEME
+!      #################################
+
+CONTAINS
+
+SUBROUTINE RADIATION_SCHEME &
+     & (KIDIA, KFDIA, KLON, KLEV, KAEROSOL, &
+     &  PSOLAR_IRRADIANCE, &
+     &  PMU0, PTEMPERATURE_SKIN, PALBEDO_DIF, PALBEDO_DIR, &
+     &  PEMIS, PEMIS_WINDOW, &
+     &  PCCN_LAND, PCCN_SEA, &
+     &  PGELAM, PGEMU, PLAND_SEA_MASK, &
+     &  PPRESSURE, PTEMPERATURE, &
+     &  PPRESSURE_H, PTEMPERATURE_H, &
+     &  PQ, PCO2, PCH4, PN2O, PNO2, PCFC11, PCFC12, PHCFC22, PCCL4, PO3_DP, &
+     &  PCLOUD_FRAC, PQ_LIQUID, PQ_ICE, PQ_RAIN, PQ_SNOW, &
+     &  PAEROSOL_OLD, PAEROSOL, &
+     &  PFLUX_SW, PFLUX_LW, PFLUX_SW_CLEAR, PFLUX_LW_CLEAR, &
+     &  PFLUX_SW_SURF, PFLUX_LW_SURF, PFLUX_SW_SURF_CLEAR, PFLUX_LW_SURF_CLEAR, &