Changeset 2714
- Timestamp:
- Jun 21, 2022, 11:05:41 AM (3 years ago)
- Location:
- trunk/LMDZ.GENERIC/libf/phystd
- Files:
-
- 5 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LMDZ.GENERIC/libf/phystd/condensation_generic_mod.F90
r2711 r2714 21 21 ! Authors 22 22 ! ------- 23 ! Adapted from largescale.F90 by Lucas Teinturier (2022)23 ! Adapted from largescale.F90 by Lucas Teinturier & Noé Clément (2022) 24 24 ! largescale.F90 adapted from the LMDTERRE code by R. Wordsworth (2009) 25 25 ! Original author Z. X. Li (1993) -
trunk/LMDZ.GENERIC/libf/phystd/dyn1d/rcm1d.F
r2713 r2714 687 687 q(:,iq)=0. !kg/kg of atmosphere 688 688 qsurf(iq) = 0. !kg/kg of atmosphere 689 ! Look for a "profile_ Fe_vap" input file*689 ! Look for a "profile_...._vap" input file 690 690 tracer_profile_file_name="" 691 691 tracer_profile_file_name='profile_'//txt -
trunk/LMDZ.GENERIC/libf/phystd/generic_cloud_common_h.F90
r2710 r2714 1 1 module generic_cloud_common_h 2 3 !============================================================================ 4 ! Purpose 5 ! ------- 6 ! Set up relevant constants and parameters for generic condensable tracers cycles, 7 ! and generic condensable tracers cloud properties 8 ! 9 ! Authors 10 ! ------- 11 ! Adapted from watercommon_h.F90 12 ! by Lucas Teinturier & Noé Clément (2022) 13 !============================================================================ 14 2 15 use comcstfi_mod, only: r, cpp, mugaz 3 16 implicit none -
trunk/LMDZ.GENERIC/libf/phystd/phys_state_var_mod.F90
r2550 r2714 115 115 !$OMP THREADPRIVATE(madjdE,madjdEz,lscaledE,lscaledEz) 116 116 117 real,dimension(:),allocatable,save :: genericconddE ! Heat from generic condensation (W.m-2) 118 !$OMP THREADPRIVATE(genericconddE) 119 117 120 real,dimension(:),allocatable,save :: H2Omaxcol ! Maximum possible H2O column amount (at 100% saturation) (kg.m-2). 118 121 !$OMP THREADPRIVATE(H2Omaxcol) … … 202 205 ALLOCATE(lscaledE(klon)) 203 206 ALLOCATE(lscaledEz(klon,klev)) 207 ALLOCATE(genericconddE(klon)) 204 208 ALLOCATE(H2Omaxcol(klon)) 205 209 ! This is defined in comsaison_h … … 293 297 DEALLOCATE(lscaledE) 294 298 DEALLOCATE(lscaledEz) 299 DEALLOCATE(genericconddE) 295 300 DEALLOCATE(H2Omaxcol) 296 301 DEALLOCATE(mu0) -
trunk/LMDZ.GENERIC/libf/phystd/physiq_mod.F90
r2706 r2714 1556 1556 pdq(1:ngrid,1:nlayer,1:nq) = pdq(1:ngrid,1:nlayer,1:nq)+dqvaplscale_generic(1:ngrid,1:nlayer,1:nq) 1557 1557 pdq(1:ngrid,1:nlayer,1:nq) = pdq(1:ngrid,1:nlayer,1:nq)+dqcldlscale_generic(1:ngrid,1:nlayer,1:nq) 1558 1559 if(enertest)then 1560 do ig=1,ngrid 1561 genericconddE(ig) = cpp*SUM(mass(:,:)*dtlscale_generic(:,:)) 1562 enddo 1563 1564 call planetwide_sumval(cpp*massarea(:,:)*dtlscale_generic(:,:)/totarea_planet,dEtot) 1565 1566 if (is_master) print*,'In generic condensation atmospheric energy change =',dEtot,' W m-2' 1567 end if 1558 1568 endif !generic_condensation 1559 1569 … … 1605 1615 1606 1616 end if ! end of 'sedimentation' 1617 1618 write(*,*) 'end of sedimentation pdt', pdt 1607 1619 1608 1620 … … 2266 2278 ! call writediagfi(ngrid,"h2o_max_col","maximum H2O column amount","kg.m^-2",2,H2Omaxcol) 2267 2279 2280 endif 2281 2282 if (generic_condensation) then 2283 2284 call writediagfi(ngrid,"genericconddE","heat from generic condensation","W m-2",2,genericconddE) 2285 2268 2286 endif 2269 2287
Note: See TracChangeset
for help on using the changeset viewer.