/[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.4 by adcroft, Wed May 5 14:52:49 1999 UTC revision 1.5 by adcroft, Tue May 18 18:01:13 1999 UTC
# Line 155  C     Add heat in top-layer Line 155  C     Add heat in top-layer
155         ENDDO         ENDDO
156        ENDIF        ENDIF
157    
158    #ifdef SHORTWAVE_HEATING
159    C Penetrating SW radiation
160          DO j=jMin,jMax
161           DO i=iMin,iMax
162            gT(i,j,k,bi,bj) = gT(i,j,k,bi,bj)
163         &    - maskC(i,j)*Qsw(i,j,bi,bj)*swfracb(k)
164         &      *recip_Cp*recip_rhoNil*recip_dRf(k)
165           ENDDO
166          ENDDO
167    #endif
168    
169        RETURN        RETURN
170        END        END
171  CStartOfInterface  CStartOfInterface
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22