/[MITgcm]/MITgcm/model/src/external_forcing.F
ViewVC logotype

Diff of /MITgcm/model/src/external_forcing.F

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

revision 1.41 by dfer, Fri Jan 5 20:26:09 2007 UTC revision 1.42 by jmc, Thu May 3 21:41:35 2007 UTC
# Line 330  c     IF ( usePenetratingSW ) THEN Line 330  c     IF ( usePenetratingSW ) THEN
330         swfracb(1)=abs(rF(klev))         swfracb(1)=abs(rF(klev))
331         swfracb(2)=abs(rF(klev+1))         swfracb(2)=abs(rF(klev+1))
332         CALL SWFRAC(         CALL SWFRAC(
333       I     two,minusone,       I             two, minusone,
334       I     myTime,myThid,       U             swfracb,
335       U     swfracb)       I             myTime, 1, myThid )
336         kp1 = klev+1         kp1 = klev+1
337         IF (klev.EQ.Nr) THEN         IF (klev.EQ.Nr) THEN
338          kp1 = klev          kp1 = klev
Legend:
Removed from v.1.41  
changed lines
  Added in v.1.42
  ViewVC Help
Powered by ViewVC 1.1.22