/[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.17 by mlosch, Wed Sep 25 19:36:50 2002 UTC revision 1.18 by dimitri, Tue Feb 18 05:33:54 2003 UTC
# Line 225  C Penetrating SW radiation Line 225  C Penetrating SW radiation
225        call SWFRAC(        call SWFRAC(
226       I     two,minusone,       I     two,minusone,
227       I     myCurrentTime,myThid,       I     myCurrentTime,myThid,
228       O     swfracb)       U     swfracb)
229        DO j=jMin,jMax        DO j=jMin,jMax
230         DO i=iMin,iMax         DO i=iMin,iMax
231          gT(i,j,klev,bi,bj) = gT(i,j,klev,bi,bj)          gT(i,j,klev,bi,bj) = gT(i,j,klev,bi,bj)
Legend:
Removed from v.1.17  
changed lines
  Added in v.1.18
  ViewVC Help
Powered by ViewVC 1.1.22