/[MITgcm]/MITgcm/pkg/exf/exf_bulkformulae.F
ViewVC logotype

Diff of /MITgcm/pkg/exf/exf_bulkformulae.F

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

revision 1.28 by heimbach, Sun Oct 21 04:45:16 2012 UTC revision 1.29 by jmc, Sat Dec 8 15:24:13 2012 UTC
# Line 283  C-   Pot. Temp and saturated specific hu Line 283  C-   Pot. Temp and saturated specific hu
283            IF ( atemp(i,j,bi,bj) .NE. 0. _d 0 ) THEN            IF ( atemp(i,j,bi,bj) .NE. 0. _d 0 ) THEN
284  C-   Surface Temp.  C-   Surface Temp.
285             Tsf = theta(i,j,ksrf,bi,bj) + cen2kel             Tsf = theta(i,j,ksrf,bi,bj) + cen2kel
286             IF ( sstExtrapol.GT.0. _d 0 ) THEN             IF ( Nr.GE.2 .AND. sstExtrapol.GT.0. _d 0 ) THEN
287              SSTtmp = sstExtrapol              SSTtmp = sstExtrapol
288       &              *( theta(i,j,ksrf,bi,bj)-theta(i,j,ksrfp1,bi,bj) )       &              *( theta(i,j,ksrf,bi,bj)-theta(i,j,ksrfp1,bi,bj) )
289       &              *  maskC(i,j,ksrfp1,bi,bj)       &              *  maskC(i,j,ksrfp1,bi,bj)
Legend:
Removed from v.1.28  
changed lines
  Added in v.1.29
  ViewVC Help
Powered by ViewVC 1.1.22