/[MITgcm]/MITgcm/pkg/thsice/thsice_get_exf.F
ViewVC logotype

Diff of /MITgcm/pkg/thsice/thsice_get_exf.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.6 by heimbach, Tue Apr 17 23:42:33 2007 UTC revision 1.7 by jmc, Fri Apr 27 15:51:28 2007 UTC
# Line 58  C     myThid      :: Thread no. that cal Line 58  C     myThid      :: Thread no. that cal
58        _RL  dEvdT        _RL  dEvdT
59  CEOP  CEOP
60    
 #ifdef ALLOW_THSICE  
61  #ifdef ALLOW_EXF  #ifdef ALLOW_EXF
62    #ifdef ALLOW_ATM_TEMP
63    
64  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
65  C     === Local variables ===  C     === Local variables ===
# Line 287  C--- Upward long wave radiation Line 287  C--- Upward long wave radiation
287  C--   Total derivative with respect to surface temperature  C--   Total derivative with respect to surface temperature
288             df0dT = -dflwupdT+dfshdT+dflhdT             df0dT = -dflwupdT+dfshdT+dflhdT
289    
290    #ifdef ALLOW_DOWNWARD_RADIATION
291             flwNet_dwn  = lwdown(i,j,bi,bj) - flwup             flwNet_dwn  = lwdown(i,j,bi,bj) - flwup
292    #else
293          STOP 'ABNORMAL END: S/R THSICE_GET_EXF: DOWNWARD_RADIATION undef'
294    #endif
295             flxExceptSw = flwNet_dwn + hsLocal + hlLocal             flxExceptSw = flwNet_dwn + hsLocal + hlLocal
296    
297            endif            endif
298    
299  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
300    
301    #else /* ALLOW_ATM_TEMP */
302          STOP 'ABNORMAL END: S/R THSICE_GET_EXF: ATM_TEMP undef'
303    #endif /* ALLOW_ATM_TEMP */
304  #endif /* ALLOW_EXF */  #endif /* ALLOW_EXF */
 #endif /* ALLOW_THSICE */  
305    
306        RETURN        RETURN
307        END        END
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22