Changeset 5133 for LMDZ6/branches/Amaury_dev/libf/phylmd/rrtm
- Timestamp:
- Jul 26, 2024, 2:20:54 PM (4 months ago)
- Location:
- LMDZ6/branches/Amaury_dev/libf/phylmd/rrtm
- Files:
-
- 18 added
- 8 edited
-
aeropt_5wv_rrtm.F90 (added)
-
aeropt_6bands_rrtm.F90 (added)
-
aeropt_lw_rrtm.F90 (added)
-
dump2ds.F (added)
-
eq_regions_mod.F90 (added)
-
gstats.F90 (added)
-
radlsw.F90 (modified) (1 diff)
-
read_rsun_rrtm.F90 (added)
-
readaerosol_optic_rrtm.F90 (added)
-
readaerosolstrato1_rrtm.F90 (added)
-
readaerosolstrato2_rrtm.F90 (added)
-
recmwf_aero.F90 (added)
-
rrtm_gasabs1a_140gp.F90 (added)
-
rrtm_rtrn1a_140gp.F90 (added)
-
rrtm_taumol1.F90 (added)
-
rrtm_taumol2.F90 (modified) (1 diff)
-
set99.F (added)
-
suecrad.F90 (added)
-
suphec.F90 (modified) (2 diffs)
-
sw.F90 (modified) (1 diff)
-
sw1s.F90 (modified) (1 diff)
-
swni.F90 (modified) (1 diff)
-
swr.F90 (modified) (1 diff)
-
swuvo3.F90 (modified) (1 diff)
-
yomhook.F90 (added)
-
yomoml.F90 (added)
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/Amaury_dev/libf/phylmd/rrtm/radlsw.F90
r3539 r5133 15 15 & PFLUX,PFLUC,PFSDN ,PFSUP , PFSCDN , PFSCUP) 16 16 17 use write_field_phy17 USE lmdz_writefield_phy, ONLY: writefield_phy 18 18 19 19 !**** *RADLSW* - INTERFACE TO ECMWF LW AND SW RADIATION SCHEMES -
LMDZ6/branches/Amaury_dev/libf/phylmd/rrtm/rrtm_taumol2.F90
r4242 r5133 23 23 USE YOERRTBG2, ONLY : CORR1 ,CORR2 24 24 25 USE print_control_mod, ONLY: mydebug=>debug , lunout, prt_level, &25 USE lmdz_print_control, ONLY: mydebug=>debug , lunout, prt_level, & 26 26 & alert_first_call, call_alert, prt_alerte 27 27 -
LMDZ6/branches/Amaury_dev/libf/phylmd/rrtm/suphec.F90
r2799 r5133 87 87 USE YOM_PHYS_GRID ,ONLY : PHYS_GRID 88 88 USE YOMCT0 , ONLY : LSCMEC ,LROUGH ,REXTZ0M ,REXTZ0H 89 USE vertical_layers_mod, ONLY: ap,bp89 USE lmdz_vertical_layers, ONLY: ap,bp 90 90 91 91 IMPLICIT NONE … … 184 184 VP00=101325. !!!!! A REVOIR (MPL) 185 185 ZPRES(NFLEVG)=VP00 186 ! on recupere ap et bp de dyn3d ( vertical_layers_mod) MPL 19.05.09186 ! on recupere ap et bp de dyn3d (lmdz_vertical_layers) MPL 19.05.09 187 187 ! Attention, VAH et VBH sont inverses, comme les niveaux 188 188 ! plev(l)=PAPRS(klon,nlayer+1-l) de 1 a nlayer (apllmd.F) -
LMDZ6/branches/Amaury_dev/libf/phylmd/rrtm/sw.F90
r2010 r5133 73 73 !USE YOERAD , ONLY : NSW 74 74 ! NSW mis dans .def MPL 20140211 75 USE write_field_phy75 USE lmdz_writefield_phy, ONLY: writefield_phy 76 76 77 77 IMPLICIT NONE -
LMDZ6/branches/Amaury_dev/libf/phylmd/rrtm/sw1s.F90
r2192 r5133 72 72 !USE YOERAD , ONLY : NSW 73 73 ! NSW mis dans .def MPL 20140211 74 USE write_field_phy74 USE lmdz_writefield_phy, ONLY: writefield_phy 75 75 76 76 IMPLICIT NONE -
LMDZ6/branches/Amaury_dev/libf/phylmd/rrtm/swni.F90
r2401 r5133 80 80 !--MODIFCODE 81 81 USE YOERDU , ONLY : REPLOG ,REPSCQ ,REPSC 82 USE write_field_phy82 USE lmdz_writefield_phy, ONLY: writefield_phy 83 83 84 84 IMPLICIT NONE -
LMDZ6/branches/Amaury_dev/libf/phylmd/rrtm/swr.F90
r2596 r5133 65 65 USE YOECLD , ONLY : REPSEC 66 66 USE YOEOVLP , ONLY : RA1OVLP 67 USE write_field_phy67 USE lmdz_writefield_phy, ONLY: writefield_phy 68 68 69 69 IMPLICIT NONE -
LMDZ6/branches/Amaury_dev/libf/phylmd/rrtm/swuvo3.F90
r1990 r5133 58 58 USE YOESW , ONLY : NEXPO3, REXPO3 59 59 USE YOMJFH , ONLY : N_VMASS 60 USE write_field_phy60 USE lmdz_writefield_phy 61 61 62 62 IMPLICIT NONE
Note: See TracChangeset
for help on using the changeset viewer.
