Changeset 1500


Ignore:
Timestamp:
03/15/11 13:19:24 (7 years ago)
Author:
fairhead
Message:

Modification to take into account precipitation over ice.
The ok_precip_fonte parameter needs to be put to .false. in one of
the *.def files to ensure that the model will give comparable results to
already submitted AR5 simulations


Modification pour prendre en compte les précipitations sur la glace.
Pour assurer la continuité avec les simulations AR5 déjà 'soumises', le
paramètre ok_precip_fonte doit être à .false.

Location:
LMDZ4/branches/LMDZ4_AR5/libf/phylmd
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • LMDZ4/branches/LMDZ4_AR5/libf/phylmd/clesphys.h

    r1374 r1500  
    6969       LOGICAL :: ok_strato 
    7070       LOGICAL :: ok_hines 
     71       LOGICAL :: ok_precip_fonte 
    7172 
    7273       COMMON/clesphys/cycle_diurne, soil_model, new_oliq,              & 
     
    8889     &     , ok_lic_melt, cvl_corr, aer_type                            & 
    8990     &     , qsol0, iflag_rrtm, ok_strato,ok_hines,ecrit_LES            & 
    90      &     , co2_ppm0 
     91     &     , co2_ppm0, ok_precip_fonte 
    9192      
    9293!$OMP THREADPRIVATE(/clesphys/) 
  • LMDZ4/branches/LMDZ4_AR5/libf/phylmd/conf_phys.F90

    r1374 r1500  
    160160  LOGICAL,SAVE      :: carbon_cycle_tr_omp 
    161161  LOGICAL,SAVE      :: carbon_cycle_cpl_omp 
     162  LOGICAL,SAVE :: ok_precip_fonte_omp 
    162163 
    163164  integer, intent(out):: read_climoz ! read ozone climatology, OpenMP shared 
     
    11801181  ok_hfCOSP_omp = .false. 
    11811182  call getin('ok_hfCOSP',ok_hfCOSP_omp) 
     1183 
     1184! 
     1185!Config Key  = ok_hfCOSP 
     1186!Config Desc = 
     1187!Config Def  = .false. 
     1188!Config Help = 
     1189! 
     1190  ok_precip_fonte_omp = .false. 
     1191  call getin('ok_precip_fonte',ok_precip_fonte_omp) 
     1192 
    11821193 
    11831194! 
     
    15381549    ok_journeCOSP = ok_journeCOSP_omp 
    15391550    ok_hfCOSP = ok_hfCOSP_omp 
     1551    ok_precip_fonte = ok_precip_fonte_omp 
    15401552    seuil_inversion=seuil_inversion_omp 
    15411553    lonmin_ins = lonmin_ins_omp 
     
    16911703  write(numout,*)' ok_journeCOSP = ',ok_journeCOSP 
    16921704  write(numout,*)' ok_hfCOSP =',ok_hfCOSP 
     1705  write(numout,*)' ok_precip_fonte =',ok_precip_fonte 
    16931706  write(numout,*)' solarlong0 = ', solarlong0 
    16941707  write(numout,*)' qsol0 = ', qsol0 
  • LMDZ4/branches/LMDZ4_AR5/libf/phylmd/fonte_neige_mod.F90

    r793 r1500  
    267267               (1. - coeff_rel) * run_off_lic_0(j) 
    268268          run_off_lic_0(j) = run_off_lic(i) 
    269           run_off_lic(i)   = run_off_lic(i) + fqfonte(i)/dtime 
     269          if (ok_precip_fonte) then 
     270            run_off_lic(i)   = run_off_lic(i) + fqfonte(i) + precip_rain(i) 
     271          else 
     272            run_off_lic(i)   = run_off_lic(i) + fqfonte(i)/dtime 
     273          endif 
    270274       END DO 
    271275    ENDIF 
Note: See TracChangeset for help on using the changeset viewer.