/[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.7 by jmc, Fri Apr 27 15:51:28 2007 UTC revision 1.8 by mlosch, Thu May 3 21:51:12 2007 UTC
# Line 92  C     hsLocal, hlLocal :: sensible & lat Line 92  C     hsLocal, hlLocal :: sensible & lat
92        _RL     x        _RL     x
93        _RL     tau        _RL     tau
94        _RL     tmpbulk        _RL     tmpbulk
95          _RL     czol
96    
97  C     additional variables that are copied from bulkf_formula_lay:  C     additional variables that are copied from bulkf_formula_lay:
98  C     upward LW at surface (W m-2)  C     upward LW at surface (W m-2)
# Line 142  C     == end of interface == Line 143  C     == end of interface ==
143       &         + sNx*sNy*max1*max2*max3*act4       &         + sNx*sNy*max1*max2*max3*act4
144  #endif  #endif
145    
146    C-- Set surface parameters :
147          czol = hu*karman*gravity_mks
148    
149  C     copy a few variables to names used in bulkf_formula_lay  C     copy a few variables to names used in bulkf_formula_lay
150        Tsf    =  tsfCel+cen2kel        Tsf    =  tsfCel+cen2kel
151        Ts2    = Tsf*Tsf        Ts2    = Tsf*Tsf
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22