Changeset 3269 for trunk/LMDZ.GENERIC
- Timestamp:
- Mar 14, 2024, 2:03:31 PM (9 months ago)
- Location:
- trunk/LMDZ.GENERIC
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LMDZ.GENERIC/changelog.txt
r3268 r3269 1886 1886 - Preliminary cleanup+commenting in hydrol.F90 1887 1887 - Changes in computation of snow albedo when ok_slab_ocean is activated 1888 - add diagnostics in physiq_mod.F90 to compute net surface longwave flux (required for intercomparison projects) -
trunk/LMDZ.GENERIC/libf/phystd/physiq_mod.F90
r3268 r3269 452 452 real int_dtaui1(ngrid,nlayer,L_NSPECTI),int_dtauv1(ngrid,nlayer,L_NSPECTV) ! For optical thickness diagnostics. 453 453 real tf, ntf 454 455 real net_fluxsurf_lw(ngrid) ! net longwave flux at the surface (for diagnostics only) 454 456 455 457 real nconsMAX, vdifcncons(ngrid), cadjncons(ngrid) ! Vdfic water conservation test. By RW … … 1122 1124 GSR=0.0 1123 1125 fluxrad_sky(1:ngrid)=emis(1:ngrid)*fluxsurf_lw(1:ngrid)+fluxsurfabs_sw(1:ngrid) 1126 net_fluxsurf_lw(1:ngrid)=emis(1:ngrid)*fluxsurf_lw(1:ngrid) 1124 1127 1125 1128 !if(noradsurf)then ! no lower surface; SW flux just disappears … … 1176 1179 zplanck(1:ngrid)=tsurf(1:ngrid)*tsurf(1:ngrid) 1177 1180 zplanck(1:ngrid)=emis(1:ngrid)*sigma*zplanck(1:ngrid)*zplanck(1:ngrid) 1181 net_fluxsurf_lw(1:ngrid)=net_fluxsurf_lw(1:ngrid)-zplanck(1:ngrid) 1178 1182 fluxrad(1:ngrid)=fluxrad_sky(1:ngrid)-zplanck(1:ngrid) 1179 1183 pdt(1:ngrid,1:nlayer)=pdt(1:ngrid,1:nlayer)+dtrad(1:ngrid,1:nlayer) … … 2534 2538 ! call writediagfi(ngrid,"fluxsurfswcs","sw surface flux (cs).","W m-2",2,fluxsurf_sw1) 2535 2539 ! call writediagfi(ngrid,"fluxsurflwcs","lw back radiation (cs).","W m-2",2,fluxsurf_lw1) 2540 ! call writediagfi(ngrid,"netfluxsurflw","lw net surface flux","W m-2",2,net_fluxsurf_lw) 2536 2541 2537 2542 if(ok_slab_ocean) then
Note: See TracChangeset
for help on using the changeset viewer.