Parent Directory
| 
Revision Log
| 
Revision Graph
| 
Patch
| revision 1.13.6.4.2.1 by dimitri, Wed Feb 12 06:45:54 2003 UTC | revision 1.16 by heimbach, Sat Jul 13 04:59:42 2002 UTC | |
|---|---|---|
| # | Line 1 | Line 1 |
| 1 | C $Header$ | |
| 2 | C $Name$ | |
| 3 | ||
| 4 | #include "CPP_OPTIONS.h" | #include "CPP_OPTIONS.h" |
| #ifdef ALLOW_OBCS | ||
| # include "OBCS_OPTIONS.h" | ||
| #endif | ||
| 5 | ||
| 6 | CBOP | CBOP |
| 7 | C !ROUTINE: EXTERNAL_FORCING_U | C !ROUTINE: EXTERNAL_FORCING_U |
| # | Line 202 C Penetrating SW radiation | Line 201 C Penetrating SW radiation |
| 201 | call SWFRAC( | call SWFRAC( |
| 202 | I two,minusone, | I two,minusone, |
| 203 | I myCurrentTime,myThid, | I myCurrentTime,myThid, |
| 204 | U swfracb) | O swfracb) |
| 205 | DO j=jMin,jMax | DO j=jMin,jMax |
| 206 | DO i=iMin,iMax | DO i=iMin,iMax |
| 207 | gT(i,j,klev,bi,bj) = gT(i,j,klev,bi,bj) | gT(i,j,klev,bi,bj) = gT(i,j,klev,bi,bj) |
|
||||||||
| ViewVC Help | |
| Powered by ViewVC 1.1.22 |