/[lmdze]/trunk/libf/phylmd/physiq.f90
ViewVC logotype

Diff of /trunk/libf/phylmd/physiq.f90

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 35 by guez, Tue Jun 8 15:37:21 2010 UTC revision 38 by guez, Thu Jan 6 17:52:19 2011 UTC
# Line 31  contains Line 31  contains
31           ok_kzmin           ok_kzmin
32      use clesphys2, only: iflag_con, ok_orolf, ok_orodr, nbapp_rad, &      use clesphys2, only: iflag_con, ok_orolf, ok_orodr, nbapp_rad, &
33           cycle_diurne, new_oliq, soil_model           cycle_diurne, new_oliq, soil_model
34        use clmain_m, only: clmain
35      use comgeomphy      use comgeomphy
36      use conf_gcm_m, only: raz_date, offline      use conf_gcm_m, only: raz_date, offline
37      use conf_phys_m, only: conf_phys      use conf_phys_m, only: conf_phys
# Line 58  contains Line 59  contains
59      use radepsi      use radepsi
60      use radopt      use radopt
61      use temps, only: itau_phy, day_ref, annee_ref      use temps, only: itau_phy, day_ref, annee_ref
62      use yoethf      use yoethf_m
63      use YOMCST, only: rcpd, rtt, rlvtt, rg, ra, rsigma, retv, romega      use SUPHEC_M, only: rcpd, rtt, rlvtt, rg, ra, rsigma, retv, romega
64    
65      ! Declaration des constantes et des fonctions thermodynamiques :      ! Declaration des constantes et des fonctions thermodynamiques :
66      use fcttre, only: thermcep, foeew, qsats, qsatl      use fcttre, only: thermcep, foeew, qsats, qsatl
# Line 404  contains Line 405  contains
405    
406      EXTERNAL alboc     ! calculer l'albedo sur ocean      EXTERNAL alboc     ! calculer l'albedo sur ocean
407      EXTERNAL ajsec     ! ajustement sec      EXTERNAL ajsec     ! ajustement sec
     EXTERNAL clmain    ! couche limite  
408      !KE43      !KE43
409      EXTERNAL conema3  ! convect4.3      EXTERNAL conema3  ! convect4.3
410      EXTERNAL fisrtilp  ! schema de condensation a grande echelle (pluie)      EXTERNAL fisrtilp  ! schema de condensation a grande echelle (pluie)
# Line 1035  contains Line 1035  contains
1035    
1036      fder = dlw      fder = dlw
1037    
1038        ! Couche limite:
1039      CALL clmain(pdtphys, itap, date0, pctsrf, pctsrf_new, &      CALL clmain(pdtphys, itap, date0, pctsrf, pctsrf_new, &
1040           t_seri, q_seri, u_seri, v_seri, &           t_seri, q_seri, u_seri, v_seri, &
1041           julien, rmu0, co2_ppm,  &           julien, rmu0, co2_ppm,  &
Legend:
Removed from v.35  
changed lines
  Added in v.38
  ViewVC Help
Powered by ViewVC 1.1.21