Changeset 3411 for LMDZ6/branches/DYNAMICO-conv/libf/phylmd/radlwsw_m.F90
- Timestamp:
- Nov 5, 2018, 3:24:59 PM (6 years ago)
- Location:
- LMDZ6/branches/DYNAMICO-conv
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/DYNAMICO-conv
- Property svn:mergeinfo changed
/LMDZ6/trunk removed
- Property svn:mergeinfo changed
-
LMDZ6/branches/DYNAMICO-conv/libf/phylmd/radlwsw_m.F90
r3356 r3411 28 28 sollwdown,& 29 29 topsw0,toplw0,solsw0,sollw0,& 30 lwdn c0, lwdn0, lwdn, lwupc0, lwup0, lwup,&31 swdn c0, swdn0, swdn, swupc0, swup0, swup,&30 lwdn0, lwdn, lwup0, lwup,& 31 swdn0, swdn, swup0, swup,& 32 32 topswad_aero, solswad_aero,& 33 33 topswai_aero, solswai_aero, & … … 148 148 ! ZFSDWN(klon,KLEV+1) ; TOTAL SW DWN FLUXES ! added by MPL 080411 149 149 ! ZFCDWN(klon,KLEV+1) ; CLEAR SKY SW DWN FLUXES ! added by MPL 080411 150 ! ZFCCDWN(klon,KLEV+1) ; CLEAR SKY CLEAN (NO AEROSOL) SW DWN FLUXES ! added by OB 211117151 150 ! ZFSUP (klon,KLEV+1) ; TOTAL SW UP FLUXES ! added by MPL 080411 152 151 ! ZFCUP (klon,KLEV+1) ; CLEAR SKY SW UP FLUXES ! added by MPL 080411 153 ! ZFCCUP (klon,KLEV+1) ; CLEAR SKY CLEAN (NO AEROSOL) SW UP FLUXES ! added by OB 211117154 ! ZFLCCDWN(klon,KLEV+1) ; CLEAR SKY CLEAN (NO AEROSOL) LW DWN FLUXES ! added by OB 211117155 ! ZFLCCUP (klon,KLEV+1) ; CLEAR SKY CLEAN (NO AEROSOL) LW UP FLUXES ! added by OB 211117156 152 157 153 !====================================================================== … … 230 226 REAL, INTENT(out) :: topsw0(KLON), toplw0(KLON), solsw0(KLON), sollw0(KLON) 231 227 REAL, INTENT(out) :: sollwdown(KLON) 232 REAL, INTENT(out) :: swdn(KLON,kflev+1),swdn0(KLON,kflev+1) , swdnc0(KLON,kflev+1)233 REAL, INTENT(out) :: swup(KLON,kflev+1),swup0(KLON,kflev+1) , swupc0(KLON,kflev+1)234 REAL, INTENT(out) :: lwdn(KLON,kflev+1),lwdn0(KLON,kflev+1) , lwdnc0(KLON,kflev+1)235 REAL, INTENT(out) :: lwup(KLON,kflev+1),lwup0(KLON,kflev+1) , lwupc0(KLON,kflev+1)228 REAL, INTENT(out) :: swdn(KLON,kflev+1),swdn0(KLON,kflev+1) 229 REAL, INTENT(out) :: swup(KLON,kflev+1),swup0(KLON,kflev+1) 230 REAL, INTENT(out) :: lwdn(KLON,kflev+1),lwdn0(KLON,kflev+1) 231 REAL, INTENT(out) :: lwup(KLON,kflev+1),lwup0(KLON,kflev+1) 236 232 REAL, INTENT(out) :: topswad_aero(KLON), solswad_aero(KLON) ! output: aerosol direct forcing at TOA and surface 237 233 REAL, INTENT(out) :: topswai_aero(KLON), solswai_aero(KLON) ! output: aerosol indirect forcing atTOA and surface … … 256 252 REAL(KIND=8) ZFSUP0(KDLON,KFLEV+1) 257 253 REAL(KIND=8) ZFSDN0(KDLON,KFLEV+1) 258 REAL(KIND=8) ZFSUPC0(KDLON,KFLEV+1)259 REAL(KIND=8) ZFSDNC0(KDLON,KFLEV+1)260 254 REAL(KIND=8) ZFLUP(KDLON,KFLEV+1) 261 255 REAL(KIND=8) ZFLDN(KDLON,KFLEV+1) 262 256 REAL(KIND=8) ZFLUP0(KDLON,KFLEV+1) 263 257 REAL(KIND=8) ZFLDN0(KDLON,KFLEV+1) 264 REAL(KIND=8) ZFLUPC0(KDLON,KFLEV+1)265 REAL(KIND=8) ZFLDNC0(KDLON,KFLEV+1)266 258 REAL(KIND=8) zx_alpha1, zx_alpha2 267 259 INTEGER k, kk, i, j, iof, nb_gr … … 372 364 REAL(KIND=8) ZFSDWN_i (klon,klev+1) 373 365 REAL(KIND=8) ZFCDWN_i (klon,klev+1) 374 REAL(KIND=8) ZFCCDWN_i (klon,klev+1)375 366 REAL(KIND=8) ZFSUP_i (klon,klev+1) 376 367 REAL(KIND=8) ZFCUP_i (klon,klev+1) 377 REAL(KIND=8) ZFCCUP_i (klon,klev+1)378 REAL(KIND=8) ZFLCCDWN_i (klon,klev+1)379 REAL(KIND=8) ZFLCCUP_i (klon,klev+1)380 368 ! 3 lignes suivantes a activer pour CCMVAL (MPL 20100412) 381 369 ! REAL(KIND=8) RSUN(3,2) … … 588 576 ZFSUP0(i,k)=0. 589 577 ZFSDN0(i,k)=0. 590 ZFSUPC0(i,k)=0.591 ZFSDNC0(i,k)=0.592 ZFLUPC0(i,k)=0.593 ZFLDNC0(i,k)=0.594 578 ZSWFT0_i(i,k)=0. 595 579 ZFCUP_i(i,k)=0. 596 580 ZFCDWN_i(i,k)=0. 597 ZFCCUP_i(i,k)=0.598 ZFCCDWN_i(i,k)=0.599 ZFLCCUP_i(i,k)=0.600 ZFLCCDWN_i(i,k)=0.601 581 ENDDO 602 582 ENDDO … … 701 681 ZFSDWN_i(i,k)=0. 702 682 ZFCDWN_i(i,k)=0. 703 ZFCCDWN_i(i,k)=0.704 683 ZFSUP_i(i,k)=0. 705 684 ZFCUP_i(i,k)=0. 706 ZFCCUP_i(i,k)=0.707 ZFLCCDWN_i(i,k)=0.708 ZFLCCUP_i(i,k)=0.709 685 ENDDO 710 686 ENDDO … … 852 828 PTAU_LW_TOT, PTAU_LW_NAT, & ! rajoute par C. Kleinschmitt 853 829 ZFLUX_i , ZFLUC_i ,& 854 ZFSDWN_i , ZFSUP_i , ZFCDWN_i, ZFCUP_i, ZFCCDWN_i, ZFCCUP_i, ZFLCCDWN_i, ZFLCCUP_i,&830 ZFSDWN_i , ZFSUP_i , ZFCDWN_i, ZFCUP_i,& 855 831 ZTOPSWADAERO,ZSOLSWADAERO,& ! rajoute par OB pour diagnostics 856 832 ZTOPSWAD0AERO,ZSOLSWAD0AERO,& … … 933 909 ZFSDN(i,k+1) = ZFSDWN_i(i,k+1)*fract(i) 934 910 ZFSDN0(i,k+1) = ZFCDWN_i(i,k+1)*fract(i) 935 ZFSDNC0(i,k+1)= ZFCCDWN_i(i,k+1)*fract(i)936 911 ZFSUP (i,k+1) = ZFSUP_i(i,k+1)*fract(i) 937 912 ZFSUP0(i,k+1) = ZFCUP_i(i,k+1)*fract(i) 938 ZFSUPC0(i,k+1)= ZFCCUP_i(i,k+1)*fract(i)939 ZFLDNC0(i,k+1)= ZFLCCDWN_i(i,k+1)940 ZFLUPC0(i,k+1)= ZFLCCUP_i(i,k+1)941 913 ! Nouveau calcul car visiblement ZSWFT et ZSWFC sont nuls dans RRTM cy32 942 914 ! en sortie de radlsw.F90 - MPL 7.01.09 … … 1050 1022 1051 1023 DO k = 1, kflev+1 1052 swdnc0( iof+i,k) = ZFSDNC0( i,k)1053 1024 swdn0 ( iof+i,k) = ZFSDN0 ( i,k) 1054 1025 swdn ( iof+i,k) = ZFSDN ( i,k) 1055 swupc0( iof+i,k) = ZFSUPC0( i,k)1056 1026 swup0 ( iof+i,k) = ZFSUP0 ( i,k) 1057 1027 swup ( iof+i,k) = ZFSUP ( i,k) 1058 lwdnc0( iof+i,k) = ZFLDNC0( i,k)1059 lwupc0( iof+i,k) = ZFLUPC0( i,k)1060 1028 ENDDO 1061 1029 ENDDO
Note: See TracChangeset
for help on using the changeset viewer.