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

Timestamp:

Sep 13, 2001, 4:22:58 PM (23 years ago)

Author:

lmdzadmin

Message:

Calcul fder pour la sous-surface glace
LF

File:

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

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

@@ -387 +387 @@
 !
     if (ocean == 'couple') then
-!     nexca = 0
       if (nexca == 0) then
         abort_message='nexca = 0 dans interfoce_cpl'
@@ -525 +524 @@
          &   petAcoef, peqAcoef, petBcoef, peqBcoef, &
          &   tsurf_new, evap, fluxlat, fluxsens, dflux_s, dflux_l)
+
+    fder = fder + dflux_s + dflux_l
 
       IF (ocean /= 'couple') THEN