- Timestamp:
- Jun 29, 2018, 12:31:11 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/branches/DYNAMICO-conv/libf/phylmd/rrtm/recmwf_aero.F90
r2529 r3356 24 24 !--end 25 25 & PFLUX,PFLUC,& 26 & PFSDN ,PFSUP , PFSCDN , PFSCUP, &26 & PFSDN ,PFSUP , PFSCDN , PFSCUP, PFSCCDN, PFSCCUP, PFLCCDN, PFLCCUP,& 27 27 !--OB diagnostics 28 28 & PTOPSWADAERO,PSOLSWADAERO,& … … 82 82 ! ok_ade---input-L- apply the Aerosol Direct Effect or not? 83 83 ! ok_aie---input-L- apply the Aerosol Indirect Effect or not? 84 ! flag_aerosol-input-I- aerosol flag from 0 to 684 ! flag_aerosol-input-I- aerosol flag from 0 to 7 85 85 ! flag_aerosol_strat-input-I- use stratospheric aerosols flag (T/F) 86 86 ! PPIZA_NAT : (KPROMA,KLEV,NSW); Single scattering albedo of natural aerosol … … 110 110 ! PFSCDN(KPROMA,KLEV+1) ; SW clear sky flux down 111 111 ! PFSCUP(KPROMA,KLEV+1) ; SW clear sky flux up 112 ! PFSCCDN(KPROMA,KLEV+1) ; SW clear sky clean (no aerosol) flux down 113 ! PFSCCUP(KPROMA,KLEV+1) ; SW clear sky clean (no aerosol) flux up 114 ! PFLCCDN(KPROMA,KLEV+1) ; LW clear sky clean (no aerosol) flux down 115 ! PFLCCUP(KPROMA,KLEV+1) ; LW clear sky clean (no aerosol) flux up 112 116 113 117 … … 152 156 USE YOERDI , ONLY : RRAE ,REPCLC ,REPH2O 153 157 USE YOMARPHY , ONLY : LRDUST 154 USE phys_output_mod, ONLY : swaero _diag158 USE phys_output_mod, ONLY : swaerofree_diag, swaero_diag 155 159 156 160 !----------------------------------------------------------------------- … … 241 245 REAL(KIND=JPRB) ,INTENT(OUT) :: PFSCDN(KPROMA,KLEV+1) ! SW clear sky flux down 242 246 REAL(KIND=JPRB) ,INTENT(OUT) :: PFSCUP(KPROMA,KLEV+1) ! SW clear sky flux up 247 REAL(KIND=JPRB) ,INTENT(OUT) :: PFSCCDN(KPROMA,KLEV+1) ! SW clear sky clean (no aerosol) flux down 248 REAL(KIND=JPRB) ,INTENT(OUT) :: PFSCCUP(KPROMA,KLEV+1) ! SW clear sky clean (no aerosol) flux up 249 REAL(KIND=JPRB) ,INTENT(OUT) :: PFLCCDN(KPROMA,KLEV+1) ! LW clear sky clean (no aerosol) flux down 250 REAL(KIND=JPRB) ,INTENT(OUT) :: PFLCCUP(KPROMA,KLEV+1) ! LW clear sky clean (no aerosol) flux up 243 251 244 252 ! ==== COMPUTED IN RADITE === … … 607 615 608 616 ! case with no aerosols at all is also computed IF ACTIVEFEEDBACK_ACTIVE is false 609 !IF (swaero_diag .OR. .not. AEROSOLFEEDBACK_ACTIVE .OR. flag_aerosol .EQ. 0 ) THEN 610 IF (.not. AEROSOLFEEDBACK_ACTIVE .OR. flag_aerosol .EQ. 0 ) THEN 617 IF (.not. AEROSOLFEEDBACK_ACTIVE .OR. flag_aerosol .EQ. 0 .OR. swaerofree_diag) THEN 611 618 612 619 ! ZERO aerosol effect … … 775 782 ENDIF 776 783 784 IF (swaerofree_diag) THEN 785 ! copy shortwave clear-sky clean (no aerosol) case 786 PFSCCUP(:,:) = ZFSUP0_AERO(:,:,5) 787 PFSCCDN(:,:) = ZFSDN0_AERO(:,:,5) 788 ! copy longwave clear-sky clean (no aerosol) case 789 PFLCCUP(:,:) = LWUP0_AERO(:,:,5) 790 PFLCCDN(:,:) = LWDN0_AERO(:,:,5) 791 ENDIF 792 777 793 !OB- HERE CHECK WITH MP IF BOTTOM AND TOP INDICES ARE OK !!!!!!!!!!!!!!!!!! 778 794 ! net anthropogenic forcing direct and 1st indirect effect diagnostics
Note: See TracChangeset
for help on using the changeset viewer.