/[MITgcm]/MITgcm/pkg/ebm/ebm_atmosphere.F
ViewVC logotype

Diff of /MITgcm/pkg/ebm/ebm_atmosphere.F

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

revision 1.7 by jmc, Thu Aug 6 13:52:52 2009 UTC revision 1.8 by jmc, Tue Aug 24 14:14:30 2010 UTC
# Line 131  c--------------------------------------- Line 131  c---------------------------------------
131       &     (T_var(3)*T_var(2) - T_var(4)*T_var(1))       &     (T_var(3)*T_var(2) - T_var(4)*T_var(1))
132          T0(1) = TtS - 0.5*T2(1)*((T_var(3)/T_var(1)) - 1.)          T0(1) = TtS - 0.5*T2(1)*((T_var(3)/T_var(1)) - 1.)
133  c----------------------------------------  c----------------------------------------
134  c       Northern hemisphere  c     Northern hemisphere
135  c----------------------------------------  c----------------------------------------
136          T2(2) =  2.*(TtN - TmlN)*T_var(1)*T_var(2)/          T2(2) =  2.*(TtN - TmlN)*T_var(1)*T_var(2)/
137       &     (T_var(3)*T_var(2) - T_var(4)*T_var(1))       &     (T_var(3)*T_var(2) - T_var(4)*T_var(1))
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22