Changeset 564 for LMDZ.3.3/branches/rel-LF/libf

Timestamp:

Dec 10, 2004, 12:01:34 PM (20 years ago)

Author:

lmdzadmin

Message:

Encore quelques initialisations pour le portage AC
LF

File:

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

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

@@ -68 +68 @@
       & evap, fluxsens, fluxlat, dflux_l, dflux_s, &              
       & tsol_rad, tsurf_new, alb_new, alblw, emis_new, &
-!IM cf. JLD      & z0_new, pctsrf_new, agesno)
       & z0_new, pctsrf_new, agesno,fqcalving,ffonte, run_off_lic_0)
 
@@ -365 +364 @@
      &   petAcoef, peqAcoef, petBcoef, peqBcoef, &
      &   tsurf_new, evap, fluxlat, fluxsens, dflux_s, dflux_l, &
-!IM cf JLD
      &   fqcalving,ffonte, run_off_lic_0)
 
@@ -702 +700 @@
      &   petAcoef, peqAcoef, petBcoef, peqBcoef, &
      &   tsurf_new, evap, fluxlat, fluxsens, dflux_s, dflux_l, &
-!IM cf JLD
      &   fqcalving,ffonte, run_off_lic_0)
 
@@ -1166 +1163 @@
      & zlev,  u1_lay, v1_lay, spechum, temp_air, epot_air, ccanopy, &
      & cdrag, petA_orc, peqA_orc, petB_orc, peqB_orc, &
-!IM cf. JP +++
      & precip_rain, precip_snow, lwdown, swnet, swdown_vrai, ps, &
-!IM cf. JP ---
      & evap, fluxsens, fluxlat, coastalflow, riverflow, &
      & tsol_rad, tsurf_new, qsurf, albedo_out, emis_new, z0_new, &
@@ -2583 +2578 @@
      & petAcoef, peqAcoef, petBcoef, peqBcoef, &
      & tsurf_new, evap, fluxlat, fluxsens, dflux_s, dflux_l, &
-!IM cf JLD
      & fqcalving,ffonte,run_off_lic_0)