Ignore:
Timestamp:
2023-11-02T16:48:24+01:00 (15 months ago)
Author:
josefine.ghattas
Message:

Integrated changeset [8233] done in the trunk with option USE_RATIO_Z0M_Z0H, see ticket #949

Location:
branches/ORCHIDEE_2_2/ORCHIDEE
Files:
3 edited

Legend:

Unmodified
Added
Removed

  • branches/ORCHIDEE_2_2/ORCHIDEE

  • branches/ORCHIDEE_2_2/ORCHIDEE/src_parameters/constantes.f90

    r7820 r8273  
    652652 
    653653    IF ( rough_dyn ) THEN 
     654        
     655       !Config Key   = USE_RATIO_Z0M_Z0H 
     656       !Config Desc  = To impose a constant ratio as in ROUGH_DYN=F 
     657       !Config Def   = FALSE 
     658       !Config If    = ROUGH_DYN 
     659       !Config Help  =  
     660       !Config Units = [-]  
     661       CALL getin_p('USE_RATIO_Z0M_Z0H', use_ratio_z0m_z0h) 
     662 
    654663       ! 
    655664       !Config Key   = C1 

  • branches/ORCHIDEE_2_2/ORCHIDEE/src_parameters/constantes_var.f90

    r7709 r8273  
    557557                                            !! (true/false) 
    558558!$OMP THREADPRIVATE(rough_dyn) 
     559  LOGICAL, SAVE :: use_ratio_z0m_z0h = .FALSE. !! To impose a constant ratio as done in ROUGH_DYN=F 
     560!$OMP THREADPRIVATE(use_ratio_z0m_z0h) 
    559561 
    560562  LOGICAL, SAVE :: new_watstress = .FALSE. 
Note: See TracChangeset for help on using the changeset viewer.