/[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.1 by mlosch, Tue May 30 22:49:00 2006 UTC revision 1.2 by mlosch, Tue Jun 6 18:52:13 2006 UTC
# Line 325  C--   Total derivative with respect to s Line 325  C--   Total derivative with respect to s
325             df0dT = -dflwupdT+dfshdT+dflhdT             df0dT = -dflwupdT+dfshdT+dflhdT
326                        
327             flwNet_dwn  = lwdown(i,j,bi,bj) - flwup             flwNet_dwn  = lwdown(i,j,bi,bj) - flwup
328             flxExceptSw = flwNet_dwn + hs(i,j,bi,bj) + hl(i,i,bi,bj)             flxExceptSw = flwNet_dwn + hs(i,j,bi,bj) + hl(i,j,bi,bj)
329  C      C    
330             evapLoc     = evap(i,j,bi,bj)*rhoNil             evapLoc     = evap(i,j,bi,bj)*rhoNil
331  C     This is where the copies from bulkf_formula_lay and thsice_get_bulkf  C     This is where the copies from bulkf_formula_lay and thsice_get_bulkf
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22