Changeset 224 for LMDZ.3.3/branches/rel-LF/libf/phylmd

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:

• LMDZ.3.3/branches/rel-LF/libf/phylmd/interface_surf.F90 (modified) (3 diffs)

LMDZ.3.3/branches/rel-LF/libf/phylmd/interface_surf.F90

@@ -26 +26 @@
 
   PRIVATE
-  PUBLIC :: interfsurf,interfsurf_hq,gath2cpl 
+  PUBLIC :: interfsurf,interfsurf_hq, gath2cpl 
 
   INTERFACE interfsurf
@@ -345 +345 @@
 !  appel a sechiba
 !
-      scatter = .true.
-      call getin('SCATTER',scatter)
-      if (.not. scatter) then
+!      scatter = .false.
+!      call getin('SCATTER',scatter)
+!      if (.not. scatter) then
         call interfsol(itime, klon, dtime, date0, nisurf, knon, &
      &  knindex, rlon, rlat, cufi, cvfi, iim, jjm, pctsrf, &
@@ -357 +357 @@
      &  evap, fluxsens, fluxlat, &              
      &  tsol_rad, tsurf_new, alb_new, emis_new, z0_new, dflux_l, dflux_s)
-      else
-        call interfsol_scat(itime, klon, dtime, date0, nisurf, knon, &
-     &  knindex, rlon, rlat, cufi, cvfi, iim, jjm, pctsrf, &
-     &  debut, lafin, ok_veget, &
-     &  zlev,  u1_lay, v1_lay, temp_air, spechum, epot_air, ccanopy, & 
-     &  tq_cdrag, petAcoef, peqAcoef, petBcoef, peqBcoef, &
-     &  precip_rain, precip_snow, sollwdown, swnet, swdown, &
-     &  tsurf, p1lay/100., ps, radsol, &
-     &  evap, fluxsens, fluxlat, &              
-     &  tsol_rad, tsurf_new, alb_new, emis_new, z0_new, dflux_l, dflux_s)
-      endif
+!      else
+!        call interfsol_scat(itime, klon, dtime, date0, nisurf, knon, &
+!     &  knindex, rlon, rlat, cufi, cvfi, iim, jjm, pctsrf, &
+!     &  debut, lafin, ok_veget, &
+!     &  zlev,  u1_lay, v1_lay, temp_air, spechum, epot_air, ccanopy, & 
+!     &  tq_cdrag, petAcoef, peqAcoef, petBcoef, peqBcoef, &
+!     &  precip_rain, precip_snow, sollwdown, swnet, swdown, &
+!     &  tsurf, p1lay/100., ps, radsol, &
+!     &  evap, fluxsens, fluxlat, &              
+!     &  tsol_rad, tsurf_new, alb_new, emis_new, z0_new, dflux_l, dflux_s)
+!      endif
     endif    
 !