Changeset 889 for LMDZ4/trunk
- Timestamp:
- Feb 5, 2008, 11:28:30 AM (17 years ago)
- Location:
- LMDZ4/trunk/libf/phylmd
- Files:
-
- 4 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ4/trunk/libf/phylmd/clesphys.h
r828 r889 33 33 !IM fmagic : parametre pour regler l albedo sur ocean 34 34 REAL fmagic 35 ! Hauteur (imposee) du contenu en eau du sol 36 REAL qsol0 35 37 !IM lev_histhf : niveau sorties 6h 36 38 !IM lev_histday : niveau sorties journalieres … … 57 59 & , ecrit_mth, ecrit_tra, ecrit_reg & 58 60 & , freq_ISCCP, ecrit_ISCCP, ip_ebil_phy & 59 & , ok_slab_sicOBS, ok_lic_melt, cvl_corr 61 & , ok_slab_sicOBS, ok_lic_melt, cvl_corr & 62 & , qsol0 60 63 61 64 !$OMP THREADPRIVATE(/clesphys/) -
LMDZ4/trunk/libf/phylmd/conf_phys.F90
r883 r889 6 6 7 7 subroutine conf_phys(ocean, ok_veget, ok_journe, ok_mensuel, ok_instan, ok_hf, & 8 & solarlong0, qsol0,seuil_inversion, &8 & solarlong0,seuil_inversion, & 9 9 & fact_cldcon, facttemps,ok_newmicro,iflag_radia,& 10 10 & iflag_cldcon, & … … 95 95 REAL,SAVE :: rad_froid_omp, rad_chau1_omp, rad_chau2_omp 96 96 REAL,SAVE :: inertie_sol_omp,inertie_sno_omp,inertie_ice_omp 97 REAL :: qsol098 97 REAL,SAVE :: qsol0_omp 99 98 REAL :: solarlong0 -
LMDZ4/trunk/libf/phylmd/pbl_surface_mod.F90
r888 r889 536 536 537 537 !**************************************************************************************** 538 ! Force soil water content to qsol0 if qsol0>0 and VEGET=F (use bucket 539 ! instead of ORCHIDEE) 540 if (qsol0>0.) then 541 print*,'WARNING : On impose qsol=',qsol0 542 qsol(:)=qsol0 543 endif 544 !**************************************************************************************** 545 546 !**************************************************************************************** 538 547 ! 2) Initialization to zero 539 548 ! Done for all local variables that will be compressed later -
LMDZ4/trunk/libf/phylmd/physiq.F
r888 r889 687 687 c 688 688 REAL qsol(klon) 689 REAL,save :: qsol0690 689 REAL,save :: solarlong0 691 690 c … … 1739 1738 call conf_phys(ocean, ok_veget, ok_journe, ok_mensuel, 1740 1739 . ok_instan, ok_hf, 1741 . solarlong0, qsol0,seuil_inversion,1740 . solarlong0,seuil_inversion, 1742 1741 . fact_cldcon, facttemps,ok_newmicro,iflag_radia, 1743 1742 . iflag_cldcon,iflag_ratqs,ratqsbas,ratqshaut, … … 2308 2307 c dsens, devap, zxsnow, zxfluxt, zxfluxq, q2m, fluxq 2309 2308 c 2310 2311 if (qsol0>0.) qsol(:)=qsol02312 2309 2313 2310 CALL pbl_surface(
Note: See TracChangeset
for help on using the changeset viewer.