Ignore:
Timestamp:
Jun 8, 2009, 12:28:43 PM (16 years ago)
Author:
idelkadi
Message:

Rajout des facteurs f_cdrag_stable, f_cdrag_ter et f_cdrag_oce dans le calcul Cdrags (lus dans physiq.def)
Rajout du facteur f_rugoro pour rugoro (lu dans physiq.def)
Rajout de guitin pour lire les parametres de sorties dans physiq.def (sorties dans des regions limitees, ...)

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ4/branches/LMDZ4-dev/libf/phylmd/conf_phys.F90

    r1154 r1168  
    8484  integer,SAVE        :: iflag_cldcon_omp, ip_ebil_phy_omp
    8585  integer,SAVE        :: iflag_ratqs_omp
     86
     87  Real,SAVE           :: f_cdrag_stable_omp,f_cdrag_ter_omp,f_cdrag_oce_omp
     88  Real,SAVE           :: f_rugoro_omp   
    8689
    8790! Local
    … …  
    11021105!
    11031106!
     1107! PARAMETRES CDRAG
     1108!
     1109!Config Key  = f_cdrag_stable
     1110!Config Desc =
     1111!Config Def  = 0.8
     1112!Config Help =
     1113!
     1114  f_cdrag_stable_omp = 0.8
     1115  call getin('f_cdrag_stable',f_cdrag_stable_omp)
     1116!
     1117!Config Key  = f_cdrag_ter
     1118!Config Desc =
     1119!Config Def  = 0.8
     1120!Config Help =
     1121!
     1122  f_cdrag_ter_omp = 0.8
     1123  call getin('f_cdrag_ter',f_cdrag_ter_omp)
     1124!
     1125!Config Key  = f_cdrag_oce
     1126!Config Desc =
     1127!Config Def  = 0.8
     1128!Config Help =
     1129!
     1130  f_cdrag_oce_omp = 0.8
     1131  call getin('f_cdrag_oce',f_cdrag_oce_omp)
     1132!
     1133! RUGORO
     1134!Config Key  = f_rugoro
     1135!Config Desc =
     1136!Config Def  = 0.
     1137!Config Help =
     1138!
     1139  f_rugoro_omp = 0.
     1140  call getin('f_rugoro',f_rugoro_omp)
     1141
    11041142! PARAMETERS FOR CONVECTIVE INHIBITION BY TROPOS. DRYNESS
    11051143!
    … …  
    13371375    cvl_corr = cvl_corr_omp
    13381376    ok_lic_melt = ok_lic_melt_omp
     1377    f_cdrag_stable=f_cdrag_stable_omp
     1378    f_cdrag_ter=f_cdrag_ter_omp
     1379    f_cdrag_oce=f_cdrag_oce_omp
     1380    f_rugoro=f_rugoro_omp
    13391381    supcrit1 = supcrit1_omp
    13401382    supcrit2 = supcrit2_omp
    … …  
    14601502  write(numout,*)' inertie_ice = ', inertie_ice
    14611503  write(numout,*)' inertie_sno = ', inertie_sno
     1504  write(numout,*)' f_cdrag_stable = ',f_cdrag_stable
     1505  write(numout,*)' f_cdrag_ter = ',f_cdrag_ter
     1506  write(numout,*)' f_cdrag_oce = ',f_cdrag_oce
     1507  write(numout,*)' f_rugoro = ',f_rugoro
    14621508  write(numout,*)' supcrit1 = ', supcrit1
    14631509  write(numout,*)' supcrit2 = ', supcrit2
Note: See TracChangeset for help on using the changeset viewer.