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

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

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

revision 1.4 by jmc, Fri Jul 25 18:52:41 2014 UTC revision 1.5 by heimbach, Thu Aug 7 18:43:33 2014 UTC
# Line 641  C     Ocean: Add temperature surface for Line 641  C     Ocean: Add temperature surface for
641         ENDDO         ENDDO
642        ENDIF        ENDIF
643    
644    #ifdef ALLOW_GEOTHERMAL_FLUX
645          IF ( usingZCoords ) THEN
646           DO j=1,sNy
647            DO i=1,sNx
648             IF ( k.EQ.kLowC(i,j,bi,bj) ) THEN
649              gT_arr(i,j)=gT_arr(i,j)
650         &      + geothermalFlux(i,j,bi,bj)
651         &        *recip_Cp*mass2rUnit
652         &        *recip_drF(k)*_recip_hFacC(i,j,k,bi,bj)
653             ENDIF
654            ENDDO
655           ENDDO
656          ENDIF
657    #endif /* ALLOW_GEOTHERMAL_FLUX */
658    
659  #ifdef SHORTWAVE_HEATING  #ifdef SHORTWAVE_HEATING
660  C Penetrating SW radiation  C Penetrating SW radiation
661  c     IF ( usePenetratingSW ) THEN  c     IF ( usePenetratingSW ) THEN
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22