/[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.40 by dfer, Fri Jan 5 01:29:31 2007 UTC revision 1.42 by jmc, Thu May 3 21:41:35 2007 UTC
# Line 304  C     Add heat in top-layer Line 304  C     Add heat in top-layer
304         ENDDO         ENDDO
305        ENDIF        ENDIF
306    
307    #ifndef ALLOW_AUTODIFF_TAMC
308        IF (linFSConserveTr) THEN        IF (linFSConserveTr) THEN
309         DO j=1,sNy         DO j=1,sNy
310          DO i=1,sNx          DO i=1,sNx
# Line 314  C     Add heat in top-layer Line 315  C     Add heat in top-layer
315          ENDDO          ENDDO
316         ENDDO         ENDDO
317        ENDIF        ENDIF
318    #endif /* ndfef ALLOW_AUTODIFF_TAMC */
319    
320  #ifdef ALLOW_SHELFICE  #ifdef ALLOW_SHELFICE
321        IF ( useShelfIce )        IF ( useShelfIce )
# Line 328  c     IF ( usePenetratingSW ) THEN Line 330  c     IF ( usePenetratingSW ) THEN
330         swfracb(1)=abs(rF(klev))         swfracb(1)=abs(rF(klev))
331         swfracb(2)=abs(rF(klev+1))         swfracb(2)=abs(rF(klev+1))
332         CALL SWFRAC(         CALL SWFRAC(
333       I     two,minusone,       I             two, minusone,
334       I     myTime,myThid,       U             swfracb,
335       U     swfracb)       I             myTime, 1, myThid )
336         kp1 = klev+1         kp1 = klev+1
337         IF (klev.EQ.Nr) THEN         IF (klev.EQ.Nr) THEN
338          kp1 = klev          kp1 = klev
# Line 453  C     Add fresh-water in top-layer Line 455  C     Add fresh-water in top-layer
455         ENDDO         ENDDO
456        ENDIF        ENDIF
457    
458    #ifndef ALLOW_AUTODIFF_TAMC
459        IF (linFSConserveTr) THEN        IF (linFSConserveTr) THEN
460         DO j=1,sNy         DO j=1,sNy
461          DO i=1,sNx          DO i=1,sNx
# Line 463  C     Add fresh-water in top-layer Line 466  C     Add fresh-water in top-layer
466          ENDDO          ENDDO
467         ENDDO         ENDDO
468        ENDIF        ENDIF
469    #endif /* ndfef ALLOW_AUTODIFF_TAMC */
470    
471  #ifdef ALLOW_SHELFICE  #ifdef ALLOW_SHELFICE
472        IF ( useShelfIce )        IF ( useShelfIce )
Legend:
Removed from v.1.40  
changed lines
  Added in v.1.42
  ViewVC Help
Powered by ViewVC 1.1.22