Ignore:
Timestamp:
Jul 3, 2014, 2:27:38 PM (10 years ago)
Author:
Laurent Fairhead
Message:

Paramétrisation de la fréquence de couplage océan/atmosphère


Parametrising the ocean/atmosphere coupling timestep

Location:
LMDZ5/trunk/libf/phylmd
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • LMDZ5/trunk/libf/phylmd/conf_phys_m.F90

    r2072 r2075  
    9999    real,SAVE           :: ratqshaut_omp
    100100    real,SAVE           :: tau_ratqs_omp
     101    REAL, SAVE          :: t_coupl_omp
    101102    integer,SAVE        :: iflag_radia_omp
    102103    integer,SAVE        :: iflag_rrtm_omp
     
    228229       WRITE(lunout,*)'You have to update your parameter file physiq.def to succed running'
    229230       CALL abort_gcm('conf_phys','Variable OCEAN no longer existing, use variable name type_ocean',1)
     231    END IF
     232
     233    !Config Key  = t_coupl
     234    !Config Desc = Pas de temps du couplage atm/oce en sec.
     235    !Config Def  = 86400
     236    !Config Help = This is only for testing purpose
     237    !
     238    t_coupl_omp = 86400.
     239    call getin('t_coupl', t_coupl_omp)
     240    IF (t_coupl_omp == 0) THEN
     241       WRITE(lunout,*)'ERROR! Timestep of coupling between atmosphere and ocean'
     242       WRITE(lunout,*)'cannot be zero.'
     243       CALL abort_gcm('conf_phys','t_coupl = 0.',1)
    230244    END IF
    231245
     
    18231837    type_ocean = type_ocean_omp
    18241838    version_ocean = version_ocean_omp
     1839    t_coupl = t_coupl_omp
    18251840
    18261841    ok_veget=.true.
  • LMDZ5/trunk/libf/phylmd/cpl_mod.F90

    r1907 r2075  
    132132     
    133133    npas = itaufin/ iphysiq
    134     nexca = 86400 / dtime
     134!    nexca = 86400 / dtime
     135    nexca = t_coupl / dtime
    135136    WRITE(lunout,*)' ##### Ocean couple #####'
    136137    WRITE(lunout,*)' Valeurs des pas de temps'
  • LMDZ5/trunk/libf/phylmd/surface_data.F90

    r2057 r2075  
    2626  !$OMP THREADPRIVATE(version_ocean)
    2727
     28  ! Pas de temps couplage atm/oce (en secondes)
     29  REAL, SAVE             :: t_coupl
     30  !$OMP THREADPRIVATE(t_coupl)
     31
    2832END MODULE surface_data
Note: See TracChangeset for help on using the changeset viewer.