Changeset 889 for LMDZ4/trunk


Ignore:
Timestamp:
Feb 5, 2008, 11:28:30 AM (17 years ago)
Author:
Laurent Fairhead
Message:

Modifs pour que l'aquaplanete marche FH
LF

Location:
LMDZ4/trunk/libf/phylmd
Files:
4 edited

Legend:

Unmodified
Added
Removed
  • LMDZ4/trunk/libf/phylmd/clesphys.h

    r828 r889  
    3333!IM fmagic : parametre pour regler l albedo sur ocean
    3434       REAL fmagic
     35! Hauteur (imposee) du contenu en eau du sol
     36           REAL qsol0
    3537!IM lev_histhf  : niveau sorties 6h
    3638!IM lev_histday : niveau sorties journalieres
     
    5759     &     , ecrit_mth, ecrit_tra, ecrit_reg                            &
    5860     &     , 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
    6063     
    6164!$OMP THREADPRIVATE(/clesphys/)
  • LMDZ4/trunk/libf/phylmd/conf_phys.F90

    r883 r889  
    66
    77  subroutine conf_phys(ocean, ok_veget, ok_journe, ok_mensuel, ok_instan, ok_hf, &
    8  &                     solarlong0,qsol0,seuil_inversion, &
     8 &                     solarlong0,seuil_inversion, &
    99 &                     fact_cldcon, facttemps,ok_newmicro,iflag_radia,&
    1010 &                     iflag_cldcon, &
     
    9595  REAL,SAVE :: rad_froid_omp, rad_chau1_omp, rad_chau2_omp
    9696  REAL,SAVE :: inertie_sol_omp,inertie_sno_omp,inertie_ice_omp
    97   REAL      :: qsol0
    9897  REAL,SAVE :: qsol0_omp
    9998  REAL      :: solarlong0
  • LMDZ4/trunk/libf/phylmd/pbl_surface_mod.F90

    r888 r889  
    536536         
    537537!****************************************************************************************
     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!****************************************************************************************
    538547! 2) Initialization to zero
    539548!    Done for all local variables that will be compressed later
  • LMDZ4/trunk/libf/phylmd/physiq.F

    r888 r889  
    687687c
    688688      REAL qsol(klon)
    689       REAL,save :: qsol0
    690689      REAL,save ::  solarlong0
    691690c
     
    17391738         call conf_phys(ocean, ok_veget, ok_journe, ok_mensuel,
    17401739     .                  ok_instan, ok_hf,
    1741      .                  solarlong0,qsol0,seuil_inversion,
     1740     .                  solarlong0,seuil_inversion,
    17421741     .                  fact_cldcon, facttemps,ok_newmicro,iflag_radia,
    17431742     .                  iflag_cldcon,iflag_ratqs,ratqsbas,ratqshaut,
     
    23082307c   dsens, devap, zxsnow, zxfluxt, zxfluxq, q2m, fluxq
    23092308c
    2310 
    2311       if (qsol0>0.) qsol(:)=qsol0
    23122309
    23132310      CALL pbl_surface(
Note: See TracChangeset for help on using the changeset viewer.