/[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.42 by jmc, Thu May 3 21:41:35 2007 UTC revision 1.50 by dimitri, Wed Nov 28 00:18:17 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  cph#ifndef ALLOW_AUTODIFF_TAMC
308    cph I didnt put this ifndef here.
309        IF (linFSConserveTr) THEN        IF (linFSConserveTr) THEN
310         DO j=1,sNy         DO j=1,sNy
311          DO i=1,sNx          DO i=1,sNx
# Line 315  C     Add heat in top-layer Line 316  C     Add heat in top-layer
316          ENDDO          ENDDO
317         ENDDO         ENDDO
318        ENDIF        ENDIF
319  #endif /* ndfef ALLOW_AUTODIFF_TAMC */  cph#endif /* ndfef ALLOW_AUTODIFF_TAMC */
320    
321  #ifdef ALLOW_SHELFICE  #ifdef ALLOW_SHELFICE
322        IF ( useShelfIce )        IF ( useShelfIce )
# Line 343  c     IF ( usePenetratingSW ) THEN Line 344  c     IF ( usePenetratingSW ) THEN
344           gT(i,j,klev,bi,bj) = gT(i,j,klev,bi,bj)           gT(i,j,klev,bi,bj) = gT(i,j,klev,bi,bj)
345       &   -Qsw(i,j,bi,bj)*(swfracb(1)*maskC(i,j,klev,bi,bj)       &   -Qsw(i,j,bi,bj)*(swfracb(1)*maskC(i,j,klev,bi,bj)
346       &                   -swfracb(2)*maskC(i,j,kp1, bi,bj))       &                   -swfracb(2)*maskC(i,j,kp1, bi,bj))
347       &    *recip_Cp*recip_rhoConst       &    *recip_Cp*mass2rUnit
348       &    *recip_drF(klev)*_recip_hFacC(i,j,kLev,bi,bj)       &    *recip_drF(klev)*_recip_hFacC(i,j,kLev,bi,bj)
349          ENDDO          ENDDO
350         ENDDO         ENDDO
# Line 351  c     ENDIF Line 352  c     ENDIF
352  #endif  #endif
353    
354  #ifdef ALLOW_RBCS  #ifdef ALLOW_RBCS
355         if (useRBCS) then         IF (useRBCS) THEN
356            call RBCS_ADD_TENDENCY(bi,bj,klev, 1,            CALL RBCS_ADD_TENDENCY(bi,bj,klev, 1,
357       &                            myTime, myThid )       &                            myTime, myThid )
358         endif         ENDIF
359  #endif  #endif
360    
361  #ifdef ALLOW_OBCS  #ifdef ALLOW_OBCS
# Line 455  C     Add fresh-water in top-layer Line 456  C     Add fresh-water in top-layer
456         ENDDO         ENDDO
457        ENDIF        ENDIF
458    
459  #ifndef ALLOW_AUTODIFF_TAMC  cph#ifndef ALLOW_AUTODIFF_TAMC
460    cph I didnt put this ifndef here.
461        IF (linFSConserveTr) THEN        IF (linFSConserveTr) THEN
462         DO j=1,sNy         DO j=1,sNy
463          DO i=1,sNx          DO i=1,sNx
# Line 466  C     Add fresh-water in top-layer Line 468  C     Add fresh-water in top-layer
468          ENDDO          ENDDO
469         ENDDO         ENDDO
470        ENDIF        ENDIF
471  #endif /* ndfef ALLOW_AUTODIFF_TAMC */  cph#endif /* ndfef ALLOW_AUTODIFF_TAMC */
472    
473  #ifdef ALLOW_SHELFICE  #ifdef ALLOW_SHELFICE
474        IF ( useShelfIce )        IF ( useShelfIce )
# Line 475  C     Add fresh-water in top-layer Line 477  C     Add fresh-water in top-layer
477       I     myTime, myThid )       I     myTime, myThid )
478  #endif /* ALLOW_SHELFICE */  #endif /* ALLOW_SHELFICE */
479    
480    #ifdef ALLOW_SALT_PLUME
481          IF ( useSaltPlume )
482         &     CALL SALT_PLUME_TENDENCY_APPLY_S(
483         I     iMin,iMax, jMin,jMax, bi,bj, kLev,
484         I     myTime, myThid )
485    #endif /* ALLOW_SALT_PLUME */
486    
487  #ifdef ALLOW_RBCS  #ifdef ALLOW_RBCS
488         if (useRBCS) then         IF (useRBCS) THEN
489            call RBCS_ADD_TENDENCY(bi,bj,klev, 2,            CALL RBCS_ADD_TENDENCY(bi,bj,klev, 2,
490       &                            myTime, myThid )       &                            myTime, myThid )
491         endif         ENDIF
492  #endif  #endif /* ALLOW_RBCS */
493    
494  #ifdef ALLOW_OBCS  #ifdef ALLOW_OBCS
495        IF (useOBCS) THEN        IF (useOBCS) THEN
# Line 488  C     Add fresh-water in top-layer Line 497  C     Add fresh-water in top-layer
497       I           iMin,iMax, jMin,jMax, bi,bj, kLev,       I           iMin,iMax, jMin,jMax, bi,bj, kLev,
498       I           myTime, myThid )       I           myTime, myThid )
499        ENDIF        ENDIF
500  #endif  #endif /* ALLOW_OBCS */
501    
502        RETURN        RETURN
503        END        END
Legend:
Removed from v.1.42  
changed lines
  Added in v.1.50
  ViewVC Help
Powered by ViewVC 1.1.22