Changeset 2244 for LMDZ5/trunk/libf


Ignore:
Timestamp:
Mar 24, 2015, 3:17:55 PM (10 years ago)
Author:
fhourdin
Message:

Correction pour le 1D + toilettage
Bugfixing for 1D + cleaning

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

Legend:

Unmodified
Added
Removed
  • LMDZ5/trunk/libf/phylmd/compar1d.h

    r2191 r2244  
    99      real :: tsurf
    1010      real :: rugos
    11       real :: qsol(1:2)
     11      real :: xqsol(1:2)
    1212      real :: qsurf
    1313      real :: psurf
     
    3232      common/com_par1d/                                                 &
    3333     & nat_surf,tsurf,rugos,                                            &
    34      & qsol,qsurf,psurf,zsurf,albedo,time,time_ini,xlat,xlon,airefi,    &
     34     & xqsol,qsurf,psurf,zsurf,albedo,time,time_ini,xlat,xlon,airefi,   &
    3535     & wtsurf,wqsurf,restart_runoff,xagesno,qsolinp,zpicinp,            &
    3636     & forcing_type,tend_u,tend_v,tend_w,tend_t,tend_q,tend_rayo,       &
  • LMDZ5/trunk/libf/phylmd/dyn1d/lmdz1d.F90

    r2243 r2244  
    188188      real :: run_off_lic_0(1)
    189189      real :: fder(1),snsrf(1,nbsrf),qsurfsrf(1,nbsrf)
    190       real :: evap(1,nbsrf),frugs(1,nbsrf)
    191190      real :: tsoil(1,nsoilmx,nbsrf)
    192       real :: agesno(1,nbsrf)
     191!     real :: agesno(1,nbsrf)
    193192
    194193!---------------------------------------------------------------------
     
    629628        snsrf(1,:)=0.        ! couverture de neige des sous surface
    630629        qsurfsrf(1,:)=qsurf ! humidite de l'air des sous surface
    631         evap=0.
    632         frugs(1,:)=rugos     ! couverture de neige des sous surface
     630        fevap=0.
     631        z0m(1,:)=rugos     ! couverture de neige des sous surface
     632        z0h(1,:)=rugos     ! couverture de neige des sous surface
    633633        agesno  = xagesno
    634634        tsoil(:,:,:)=tsurf
     
    646646!       tsoil(1,11,1)=308.00
    647647!-----------------------------------------------------------------------
    648         call pbl_surface_init(qsol, fder, snsrf, qsurfsrf,                  &
    649      &                                    evap, frugs, agesno, tsoil)
     648        call pbl_surface_init(fder, snsrf, qsurfsrf, tsoil)
    650649
    651650!------------------ prepare limit conditions for limit.nc -----------------
  • LMDZ5/trunk/libf/phylmd/pbl_surface_mod.F90

    r2243 r2244  
    18251825               AcoefH, AcoefQ, BcoefH, BcoefQ, &
    18261826               AcoefU, AcoefV, BcoefU, BcoefV, &
    1827                ypsref, yu1, yv1, ygustiness, yrugoro, pctsrf, &
     1827               ypsref, yu1, yv1, ygustiness, pctsrf, &
    18281828               ysnow, yqsurf, yqsol, yagesno, ytsoil, &
    18291829!albedo SB >>>
  • LMDZ5/trunk/libf/phylmd/surf_seaice_mod.F90

    r2243 r2244  
    1717       AcoefH, AcoefQ, BcoefH, BcoefQ, &
    1818       AcoefU, AcoefV, BcoefU, BcoefV, &
    19        ps, u1, v1, gustiness, rugoro, pctsrf, &
     19       ps, u1, v1, gustiness, pctsrf, &
    2020       snow, qsurf, qsol, agesno, tsoil, &
    2121       z0m, z0h, SFRWL, alb_dir_new, alb_dif_new, evap, fluxsens, fluxlat, & 
     
    5858    REAL, DIMENSION(klon), INTENT(IN)        :: ps
    5959    REAL, DIMENSION(klon), INTENT(IN)        :: u1, v1, gustiness
    60     REAL, DIMENSION(klon), INTENT(IN)        :: rugoro
    6160    REAL, DIMENSION(klon,nbsrf), INTENT(IN)  :: pctsrf
    6261
Note: See TracChangeset for help on using the changeset viewer.