Changeset 1204


Ignore:
Timestamp:
Jul 7, 2009, 5:04:03 PM (15 years ago)
Author:
Laurent Fairhead
Message:

Nettoyage du contrôle des coefficients de frottement en surface séparément
sur terre et sur océan (disparition de f_cdrag_stable)
PasB

Location:
LMDZ4/branches/LMDZ4-dev/libf/phylmd
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • LMDZ4/branches/LMDZ4-dev/libf/phylmd/clcdrag.F90

    r1168 r1204  
     1!
     2!$Id$
    13!
    24SUBROUTINE clcdrag(knon, nsrf, paprs, pplay,&
     
    9395           FRIH = AMAX1(1./ (1.+3.*CB*zri(i)*ZSCF), 0.1 )
    9496!!$  PB          zcfh1(i) = zcdn(i) * FRIH
    95            zcfh1(i) = f_cdrag_stable * zcdn(i) * FRIH
     97!!$ PB           zcfh1(i) = f_cdrag_stable * zcdn(i) * FRIH
     98           zcfh1(i) = f_cdrag_ter * zcdn(i) * FRIH
     99           IF(nsrf.EQ.is_oce) zcfh1(i) = f_cdrag_oce * zcdn(i) * FRIH
     100!!$ PB
    96101           pcfm(i) = zcfm1(i)
    97102           pcfh(i) = zcfh1(i)
  • LMDZ4/branches/LMDZ4-dev/libf/phylmd/clesphys.h

    r1176 r1204  
    3636           REAL qsol0
    3737! Frottement au sol (Cdrag)
    38        Real f_cdrag_stable,f_cdrag_ter,f_cdrag_oce
     38       Real f_cdrag_ter,f_cdrag_oce
    3939! Rugoro
    4040       Real f_rugoro
     
    6363     &     , top_height, overlap, cdmmax, cdhmax, ksta, ksta_ter        &
    6464     &     , ok_kzmin, fmagic, pmagic                                   &
    65      &     , f_cdrag_stable,f_cdrag_ter,f_cdrag_oce,f_rugoro            &
     65     &     , f_cdrag_ter,f_cdrag_oce,f_rugoro                           &
    6666     &     , lev_histhf, lev_histday, lev_histmth                       &
    6767     &     , type_run, ok_isccp, ok_regdyn                              &
  • LMDZ4/branches/LMDZ4-dev/libf/phylmd/conf_phys.F90

    r1181 r1204  
    8585  integer,SAVE        :: iflag_ratqs_omp
    8686
    87   Real,SAVE           :: f_cdrag_stable_omp,f_cdrag_ter_omp,f_cdrag_oce_omp
     87  Real,SAVE           :: f_cdrag_ter_omp,f_cdrag_oce_omp
    8888  Real,SAVE           :: f_rugoro_omp   
    8989
     
    11151115!
    11161116! PARAMETRES CDRAG
    1117 !
    1118 !Config Key  = f_cdrag_stable
    1119 !Config Desc =
    1120 !Config Def  = 0.8
    1121 !Config Help =
    1122 !
    1123   f_cdrag_stable_omp = 0.8
    1124   call getin('f_cdrag_stable',f_cdrag_stable_omp)
    11251117!
    11261118!Config Key  = f_cdrag_ter
     
    13851377    cvl_corr = cvl_corr_omp
    13861378    ok_lic_melt = ok_lic_melt_omp
    1387     f_cdrag_stable=f_cdrag_stable_omp
    13881379    f_cdrag_ter=f_cdrag_ter_omp
    13891380    f_cdrag_oce=f_cdrag_oce_omp
     
    15121503  write(numout,*)' inertie_ice = ', inertie_ice
    15131504  write(numout,*)' inertie_sno = ', inertie_sno
    1514   write(numout,*)' f_cdrag_stable = ',f_cdrag_stable
    15151505  write(numout,*)' f_cdrag_ter = ',f_cdrag_ter
    15161506  write(numout,*)' f_cdrag_oce = ',f_cdrag_oce
Note: See TracChangeset for help on using the changeset viewer.