Ignore:
Timestamp:
Jun 14, 2001, 11:01:22 AM (23 years ago)
Author:
lmdzadmin
Message:

On ne passe plus que l'interface intersurf_gathered de sechiba. La
possibilite de passage par intersurf_main2d est annule
LF

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ.3.3/branches/rel-LF/libf/phylmd/interface_surf.F90

    r223 r224  
    2626
    2727  PRIVATE
    28   PUBLIC :: interfsurf,interfsurf_hq,gath2cpl
     28  PUBLIC :: interfsurf,interfsurf_hq, gath2cpl
    2929
    3030  INTERFACE interfsurf
     
    345345!  appel a sechiba
    346346!
    347       scatter = .true.
    348       call getin('SCATTER',scatter)
    349       if (.not. scatter) then
     347!      scatter = .false.
     348!      call getin('SCATTER',scatter)
     349!      if (.not. scatter) then
    350350        call interfsol(itime, klon, dtime, date0, nisurf, knon, &
    351351     &  knindex, rlon, rlat, cufi, cvfi, iim, jjm, pctsrf, &
     
    357357     &  evap, fluxsens, fluxlat, &             
    358358     &  tsol_rad, tsurf_new, alb_new, emis_new, z0_new, dflux_l, dflux_s)
    359       else
    360         call interfsol_scat(itime, klon, dtime, date0, nisurf, knon, &
    361      &  knindex, rlon, rlat, cufi, cvfi, iim, jjm, pctsrf, &
    362      &  debut, lafin, ok_veget, &
    363      &  zlev,  u1_lay, v1_lay, temp_air, spechum, epot_air, ccanopy, &
    364      &  tq_cdrag, petAcoef, peqAcoef, petBcoef, peqBcoef, &
    365      &  precip_rain, precip_snow, sollwdown, swnet, swdown, &
    366      &  tsurf, p1lay/100., ps, radsol, &
    367      &  evap, fluxsens, fluxlat, &             
    368      &  tsol_rad, tsurf_new, alb_new, emis_new, z0_new, dflux_l, dflux_s)
    369       endif
     359!      else
     360!        call interfsol_scat(itime, klon, dtime, date0, nisurf, knon, &
     361!     &  knindex, rlon, rlat, cufi, cvfi, iim, jjm, pctsrf, &
     362!     &  debut, lafin, ok_veget, &
     363!     &  zlev,  u1_lay, v1_lay, temp_air, spechum, epot_air, ccanopy, &
     364!     &  tq_cdrag, petAcoef, peqAcoef, petBcoef, peqBcoef, &
     365!     &  precip_rain, precip_snow, sollwdown, swnet, swdown, &
     366!     &  tsurf, p1lay/100., ps, radsol, &
     367!     &  evap, fluxsens, fluxlat, &             
     368!     &  tsol_rad, tsurf_new, alb_new, emis_new, z0_new, dflux_l, dflux_s)
     369!      endif
    370370    endif   
    371371!
Note: See TracChangeset for help on using the changeset viewer.