Ignore:
Timestamp:
Sep 13, 2001, 4:22:58 PM (23 years ago)
Author:
lmdzadmin
Message:

Calcul fder pour la sous-surface glace
LF

File:
1 edited

Legend:

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

    r262 r273  
    387387!
    388388    if (ocean == 'couple') then
    389 !     nexca = 0
    390389      if (nexca == 0) then
    391390        abort_message='nexca = 0 dans interfoce_cpl'
     
    525524         &   petAcoef, peqAcoef, petBcoef, peqBcoef, &
    526525         &   tsurf_new, evap, fluxlat, fluxsens, dflux_s, dflux_l)
     526
     527    fder = fder + dflux_s + dflux_l
    527528
    528529      IF (ocean /= 'couple') THEN
Note: See TracChangeset for help on using the changeset viewer.