Changeset 6163
- Timestamp:
- Apr 10, 2026, 10:24:25 AM (2 hours ago)
- Location:
- LMDZ6/trunk/libf
- Files:
-
- 2 edited
- 1 moved
-
phylmd/lmdz_call_radiatifcodes_m.F90 (moved) (moved from LMDZ6/trunk/libf/phylmd/radlwsw_m.F90) (5 diffs)
-
phylmd/physiq_mod.F90 (modified) (7 diffs)
-
phylmdiso/physiq_mod.F90 (modified) (7 diffs)
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmd/lmdz_call_radiatifcodes_m.F90
r6162 r6163 3 3 ! 4 4 5 MODULE radlwsw_m5 MODULE lmdz_call_radiatifcodes_m 6 6 7 7 IMPLICIT NONE … … 9 9 contains 10 10 11 SUBROUTINE radlwsw( &11 SUBROUTINE lmdz_call_radiatifcodes( & 12 12 debut, dist, rmu0, fract, & 13 13 paprs, pplay, tsol, SFRWL,alb_dir, alb_dif, & … … 37 37 ! A. Idelkadi, F. Hourdin, L. Fairhead, mars 2026 : 38 38 ! Recriture de l interface entre LMDZ et les codes radiatifs oldrad/rrtm/ecrad => 39 ! radlwsw_m.F9039 ! lmdz_call_radiatifcodes_m.F90 40 40 ! ------------------------------------------------------------------------------------------ 41 41 ! -> - Declarations => in / out / locales … … 260 260 REAL(KIND=8) ZFLDN0(KDLON,KFLEV+1) 261 261 CHARACTER (LEN=80) :: abort_message 262 CHARACTER (LEN=80) :: modname=' radlwsw_m'262 CHARACTER (LEN=80) :: modname='lmdz_call_radiatifcodes_m' 263 263 264 264 PRINT*,'size(wo, 1), klon, size(wo, 2), klev', & 265 265 size(wo, 1), klon, size(wo, 2), klev 266 266 267 CALL assert(size(wo, 1) == klon, size(wo, 2) == klev, " radlwswwo")267 CALL assert(size(wo, 1) == klon, size(wo, 2) == klev, "lmdz_call_radiatifcodes wo") 268 268 269 269 ! … … 360 360 !====================================================================== 361 361 362 END SUBROUTINE radlwsw363 END MODULE radlwsw_m362 END SUBROUTINE lmdz_call_radiatifcodes 363 END MODULE lmdz_call_radiatifcodes_m -
LMDZ6/trunk/libf/phylmd/physiq_mod.F90
r6159 r6163 119 119 USE readaerosol_mod, ONLY : init_aero_fromfile 120 120 USE readaerosolstrato_m, ONLY : init_readaerosolstrato 121 USE radlwsw_m, ONLY: radlwsw121 USE lmdz_call_radiatifcodes_m, ONLY: lmdz_call_radiatifcodes 122 122 USE regr_horiz_time_climoz_m, ONLY: regr_horiz_time_climoz 123 123 USE regr_pr_time_av_m, ONLY: regr_pr_time_av … … 1106 1106 ! retros liees aux CRF 1107 1107 REAL, dimension(klon, klev) :: cldtaurad ! epaisseur optique 1108 ! pour radlwswpour1108 ! pour lmdz_call_radiatifcodes pour 1109 1109 ! tester "CRF off" 1110 1110 REAL, dimension(klon, klev) :: cldtaupirad ! epaisseur optique 1111 ! pour radlwswpour1111 ! pour lmdz_call_radiatifcodes pour 1112 1112 ! tester "CRF off" 1113 1113 REAL, dimension(klon, klev) :: cldemirad ! emissivite pour 1114 ! radlwswpour tester1114 ! lmdz_call_radiatifcodes pour tester 1115 1115 ! "CRF off" 1116 1116 REAL, dimension(klon, klev) :: cldfrarad ! fraction nuageuse … … 2570 2570 ! Calculs de l'orbite. 2571 2571 ! Necessaires pour le rayonnement et la surface (calcul de l'albedo). 2572 ! doit donc etre plac\'e avant radlwswet pbl_surface2572 ! doit donc etre plac\'e avant lmdz_call_radiatifcodes et pbl_surface 2573 2573 2574 2574 ! !! jyg 17 Sep 2010 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! … … 4428 4428 4429 4429 IF (prt_level .GE.10) THEN 4430 print *,' -> radlwsw, number 1 '4430 print *,' ->lmdz_call_radiatifcodes, number 1 ' 4431 4431 ENDIF 4432 4432 ! 4433 ! AI namelist utilise pour l appel principal de radlwsw(ecrad)4433 ! AI namelist utilise pour l appel principal de lmdz_call_radiatifcodes (ecrad) 4434 4434 namelist_ecrad_file='namelist_ecrad' 4435 4435 ! 4436 CALL radlwsw&4436 CALL lmdz_call_radiatifcodes & 4437 4437 (debut, dist, rmu0, fract, & 4438 4438 !albedo SB >>> … … 4507 4507 ! 4508 4508 IF (prt_level .GE.10) THEN 4509 print *,' -> radlwsw, number 2 '4509 print *,' ->lmdz_call_radiatifcodes, number 2 ' 4510 4510 ENDIF 4511 4511 ! 4512 4512 namelist_ecrad_file='namelist_ecrad' 4513 4513 ! 4514 CALL radlwsw&4514 CALL lmdz_call_radiatifcodes & 4515 4515 (debut, dist, rmu0, fract, & 4516 4516 !albedo SB >>> … … 4562 4562 ! print*,'ok_2xcall_ecrad = ',ok_2xcall_ecrad 4563 4563 namelist_ecrad_file='namelist_ecrad_s2' 4564 CALL radlwsw&4564 CALL lmdz_call_radiatifcodes & 4565 4565 (debut, dist, rmu0, fract, & 4566 4566 paprs, pplay,zxtsol,SFRWL,albsol_dir, albsol_dif, & … … 4634 4634 4635 4635 ! 4636 ! Calculer radsol a l'exterieur de radlwsw4636 ! Calculer radsol a l'exterieur de lmdz_call_radiatifcodes 4637 4637 ! pour prendre en compte le cycle diurne 4638 4638 ! recode par Olivier Boucher en sept 2015 -
LMDZ6/trunk/libf/phylmdiso/physiq_mod.F90
r6159 r6163 92 92 USE readaerosol_mod, ONLY : init_aero_fromfile 93 93 USE readaerosolstrato_m, ONLY : init_readaerosolstrato 94 USE radlwsw_m, ONLY: radlwsw94 USE lmdz_call_radiatifcodes_m, ONLY: lmdz_call_radiatifcodes 95 95 USE reevap_mod, ONLY: reevap 96 96 USE regr_horiz_time_climoz_m, ONLY: regr_horiz_time_climoz … … 1180 1180 ! retros liees aux CRF 1181 1181 REAL, DIMENSION(klon, klev) :: cldtaurad ! epaisseur optique 1182 ! pour radlwswpour1182 ! pour lmdz_call_radiatifcodes pour 1183 1183 ! tester "CRF off" 1184 1184 REAL, DIMENSION(klon, klev) :: cldtaupirad ! epaisseur optique 1185 ! pour radlwswpour1185 ! pour lmdz_call_radiatifcodes pour 1186 1186 ! tester "CRF off" 1187 1187 REAL, DIMENSION(klon, klev) :: cldemirad ! emissivite pour 1188 ! radlwswpour tester1188 ! lmdz_call_radiatifcodes pour tester 1189 1189 ! "CRF off" 1190 1190 REAL, DIMENSION(klon, klev) :: cldfrarad ! fraction nuageuse … … 2967 2967 ! Calculs de l'orbite. 2968 2968 ! Necessaires pour le rayonnement et la surface (calcul de l'albedo). 2969 ! doit donc etre place avant radlwswet pbl_surface2969 ! doit donc etre place avant lmdz_call_radiatifcodes et pbl_surface 2970 2970 2971 2971 ! !! jyg 17 Sep 2010 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! … … 5977 5977 5978 5978 IF (prt_level .GE.10) THEN 5979 print *,' -> radlwsw, number 1 '5979 print *,' ->lmdz_call_radiatifcodes, number 1 ' 5980 5980 ENDIF 5981 5981 ! 5982 ! AI namelist utilise pour l appel principal de radlwsw(ecrad)5982 ! AI namelist utilise pour l appel principal de lmdz_call_radiatifcodes (ecrad) 5983 5983 namelist_ecrad_file='namelist_ecrad' 5984 5984 ! 5985 CALL radlwsw&5985 CALL lmdz_call_radiatifcodes & 5986 5986 (debut, dist, rmu0, fract, & 5987 5987 !albedo SB >>> … … 6056 6056 ! 6057 6057 IF (prt_level .GE.10) THEN 6058 print *,' -> radlwsw, number 2 '6058 print *,' ->lmdz_call_radiatifcodes, number 2 ' 6059 6059 ENDIF 6060 6060 ! 6061 6061 namelist_ecrad_file='namelist_ecrad' 6062 6062 ! 6063 CALL radlwsw&6063 CALL lmdz_call_radiatifcodes & 6064 6064 (debut, dist, rmu0, fract, & 6065 6065 !albedo SB >>> … … 6111 6111 ! print*,'ok_2xcall_ecrad = ',ok_2xcall_ecrad 6112 6112 namelist_ecrad_file='namelist_ecrad_s2' 6113 CALL radlwsw&6113 CALL lmdz_call_radiatifcodes & 6114 6114 (debut, dist, rmu0, fract, & 6115 6115 paprs, pplay,zxtsol,SFRWL,albsol_dir, albsol_dif, & … … 6183 6183 6184 6184 ! 6185 ! Calculer radsol a l'exterieur de radlwsw6185 ! Calculer radsol a l'exterieur de lmdz_call_radiatifcodes 6186 6186 ! pour prendre en compte le cycle diurne 6187 6187 ! recode par Olivier Boucher en sept 2015
Note: See TracChangeset
for help on using the changeset viewer.
