--- MITgcm/model/src/external_forcing.F	2003/06/24 23:05:28	1.13.6.8
+++ MITgcm/model/src/external_forcing.F	2014/05/21 10:44:59	1.66
@@ -1,24 +1,33 @@
-C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/model/src/external_forcing.F,v 1.13.6.8 2003/06/24 23:05:28 heimbach Exp $
+C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/model/src/external_forcing.F,v 1.66 2014/05/21 10:44:59 heimbach Exp $
 C $Name:  $
 
+#include "PACKAGES_CONFIG.h"
 #include "CPP_OPTIONS.h"
-#ifdef ALLOW_OBCS
-# include "OBCS_OPTIONS.h"
+#ifdef ALLOW_SALT_PLUME
+#include "SALT_PLUME_OPTIONS.h"
 #endif
 
+C--  File external_forcing.F:
+C--   Contents
+C--   o EXTERNAL_FORCING_U
+C--   o EXTERNAL_FORCING_V
+C--   o EXTERNAL_FORCING_T
+C--   o EXTERNAL_FORCING_S
+
+C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
 CBOP
 C     !ROUTINE: EXTERNAL_FORCING_U
 C     !INTERFACE:
       SUBROUTINE EXTERNAL_FORCING_U(
-     I           iMin, iMax, jMin, jMax,bi,bj,kLev,
-     I           myCurrentTime,myThid)
+     I           iMin,iMax, jMin,jMax, bi,bj, kLev,
+     I           myTime, myThid )
 C     !DESCRIPTION: \bv
 C     *==========================================================*
-C     | S/R EXTERNAL_FORCING_U                                    
-C     | o Contains problem specific forcing for zonal velocity.   
+C     | S/R EXTERNAL_FORCING_U
+C     | o Contains problem specific forcing for zonal velocity.
 C     *==========================================================*
-C     | Adds terms to gU for forcing by external sources          
-C     | e.g. wind stress, bottom friction etc..................   
+C     | Adds terms to gU for forcing by external sources
+C     | e.g. wind stress, bottom friction etc ...
 C     *==========================================================*
 C     \ev
 
@@ -34,64 +43,118 @@
 
 C     !INPUT/OUTPUT PARAMETERS:
 C     == Routine arguments ==
-C     iMin - Working range of tile for applying forcing.
-C     iMax
-C     jMin
-C     jMax
-C     kLev
+C     iMin,iMax :: Working range of x-index for applying forcing.
+C     jMin,jMax :: Working range of y-index for applying forcing.
+C     bi,bj     :: Current tile indices
+C     kLev      :: Current vertical level index
+C     myTime    :: Current time in simulation
+C     myThid    :: Thread Id number
       INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj
-      _RL myCurrentTime
+      _RL myTime
       INTEGER myThid
 
 C     !LOCAL VARIABLES:
 C     == Local variables ==
-C     Loop counters
-      INTEGER I, J
-C     number of surface interface layer
+C     i,j       :: Loop counters
+C     kSurface  :: index of surface level
+      INTEGER i, j
       INTEGER kSurface
 CEOP
 
-      if ( buoyancyRelation .eq. 'OCEANICP' ) then
+      IF ( fluidIsAir ) THEN
+       kSurface = 0
+      ELSEIF ( usingPCoords ) THEN
        kSurface = Nr
-      else
+      ELSE
        kSurface = 1
-      endif
+      ENDIF
 
 C--   Forcing term
-C     Add windstress momentum impulse into the top-layer
+#ifdef ALLOW_AIM
+      IF ( useAIM ) CALL AIM_TENDENCY_APPLY_U(
+     &                      iMin,iMax, jMin,jMax, bi,bj, kLev,
+     &                      myTime, myThid )
+#endif /* ALLOW_AIM */
+
+#ifdef ALLOW_ATM_PHYS
+      IF ( useAtm_Phys ) CALL ATM_PHYS_TENDENCY_APPLY_U(
+     &                      iMin,iMax, jMin,jMax, bi,bj, kLev,
+     &                      myTime, myThid )
+#endif /* ALLOW_ATM_PHYS */
+
+#ifdef ALLOW_FIZHI
+      IF ( useFIZHI ) CALL FIZHI_TENDENCY_APPLY_U(
+     &                      iMin,iMax, jMin,jMax, bi,bj, kLev,
+     &                      myTime, myThid )
+#endif /* ALLOW_FIZHI */
+
+C     Ocean: Add momentum surface forcing (e.g., wind-stress) in surface level
       IF ( kLev .EQ. kSurface ) THEN
-       DO j=jMin,jMax
-        DO i=iMin,iMax
-         gU(i,j,kLev,bi,bj) = gU(i,j,kLev,bi,bj)
-     &   +foFacMom*surfaceTendencyU(i,j,bi,bj)
-     &   *_maskW(i,j,kLev,bi,bj)
+c      DO j=1,sNy
+C-jmc: Without CD-scheme, this is OK ; but with CD-scheme, needs to cover [0:sNy+1]
+       DO j=0,sNy+1
+        DO i=1,sNx+1
+          gU(i,j,kLev,bi,bj) = gU(i,j,kLev,bi,bj)
+     &      +foFacMom*surfaceForcingU(i,j,bi,bj)
+     &      *recip_drF(kLev)*_recip_hFacW(i,j,kLev,bi,bj)
+        ENDDO
+       ENDDO
+      ELSEIF ( kSurface.EQ.-1 ) THEN
+       DO j=0,sNy+1
+        DO i=1,sNx+1
+         IF ( kSurfW(i,j,bi,bj).EQ.kLev ) THEN
+          gU(i,j,kLev,bi,bj) = gU(i,j,kLev,bi,bj)
+     &      +foFacMom*surfaceForcingU(i,j,bi,bj)
+     &      *recip_drF(kLev)*_recip_hFacW(i,j,kLev,bi,bj)
+         ENDIF
         ENDDO
        ENDDO
       ENDIF
 
-#if (defined (ALLOW_OBCS) && defined (ALLOW_OBCS_SPONGE))
+#ifdef ALLOW_EDDYPSI
+       CALL TAUEDDY_EXTERNAL_FORCING_U(
+     I           iMin,iMax, jMin,jMax, bi,bj, kLev,
+     I           myTime, myThid )
+#endif
+
+#ifdef ALLOW_RBCS
+      IF (useRBCS) THEN
+        CALL RBCS_ADD_TENDENCY( bi, bj, klev, -1,
+     &                          myTime, myThid )
+      ENDIF
+#endif
+
+#ifdef ALLOW_OBCS
       IF (useOBCS) THEN
        CALL OBCS_SPONGE_U(
-     I           iMin, iMax, jMin, jMax,bi,bj,kLev,
-     I           myCurrentTime,myThid)
+     I           iMin,iMax, jMin,jMax, bi,bj, kLev,
+     I           myTime, myThid )
       ENDIF
 #endif
 
+#ifdef ALLOW_MYPACKAGE
+      IF ( useMYPACKAGE ) CALL MYPACKAGE_TENDENCY_APPLY_U(
+     &                      iMin,iMax, jMin,jMax, bi,bj, kLev,
+     &                      myTime, myThid )
+#endif /* ALLOW_MYPACKAGE */
+
       RETURN
       END
+
+C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
 CBOP
 C     !ROUTINE: EXTERNAL_FORCING_V
 C     !INTERFACE:
       SUBROUTINE EXTERNAL_FORCING_V(
-     I           iMin, iMax, jMin, jMax,bi,bj,kLev,
-     I           myCurrentTime,myThid)
+     I           iMin,iMax, jMin,jMax, bi,bj, kLev,
+     I           myTime, myThid )
 C     !DESCRIPTION: \bv
 C     *==========================================================*
-C     | S/R EXTERNAL_FORCING_V                                    
-C     | o Contains problem specific forcing for merid velocity.   
+C     | S/R EXTERNAL_FORCING_V
+C     | o Contains problem specific forcing for merid velocity.
 C     *==========================================================*
-C     | Adds terms to gV for forcing by external sources          
-C     | e.g. wind stress, bottom friction etc..................   
+C     | Adds terms to gV for forcing by external sources
+C     | e.g. wind stress, bottom friction etc ...
 C     *==========================================================*
 C     \ev
 
@@ -107,64 +170,118 @@
 
 C     !INPUT/OUTPUT PARAMETERS:
 C     == Routine arguments ==
-C     iMin - Working range of tile for applying forcing.
-C     iMax
-C     jMin
-C     jMax
-C     kLev
+C     iMin,iMax :: Working range of x-index for applying forcing.
+C     jMin,jMax :: Working range of y-index for applying forcing.
+C     bi,bj     :: Current tile indices
+C     kLev      :: Current vertical level index
+C     myTime    :: Current time in simulation
+C     myThid    :: Thread Id number
       INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj
-      _RL myCurrentTime
+      _RL myTime
       INTEGER myThid
 
 C     !LOCAL VARIABLES:
 C     == Local variables ==
-C     Loop counters
-      INTEGER I, J
-C     number of surface interface layer
+C     i,j       :: Loop counters
+C     kSurface  :: index of surface level
+      INTEGER i, j
       INTEGER kSurface
 CEOP
 
-      if ( buoyancyRelation .eq. 'OCEANICP' ) then
+      IF ( fluidIsAir ) THEN
+       kSurface = 0
+      ELSEIF ( usingPCoords ) THEN
        kSurface = Nr
-      else
+      ELSE
        kSurface = 1
-      endif
+      ENDIF
 
 C--   Forcing term
-C     Add windstress momentum impulse into the top-layer
+#ifdef ALLOW_AIM
+      IF ( useAIM ) CALL AIM_TENDENCY_APPLY_V(
+     &                      iMin,iMax, jMin,jMax, bi,bj, kLev,
+     &                      myTime, myThid )
+#endif /* ALLOW_AIM */
+
+#ifdef ALLOW_ATM_PHYS
+      IF ( useAtm_Phys ) CALL ATM_PHYS_TENDENCY_APPLY_V(
+     &                      iMin,iMax, jMin,jMax, bi,bj, kLev,
+     &                      myTime, myThid )
+#endif /* ALLOW_ATM_PHYS */
+
+#ifdef ALLOW_FIZHI
+      IF ( useFIZHI ) CALL FIZHI_TENDENCY_APPLY_V(
+     &                      iMin,iMax, jMin,jMax, bi,bj, kLev,
+     &                      myTime, myThid )
+#endif /* ALLOW_FIZHI */
+
+C     Ocean: Add momentum surface forcing (e.g., wind-stress) in surface level
       IF ( kLev .EQ. kSurface ) THEN
-       DO j=jMin,jMax
-        DO i=iMin,iMax
-         gV(i,j,kLev,bi,bj) = gV(i,j,kLev,bi,bj)
-     &   +foFacMom*surfaceTendencyV(i,j,bi,bj)
-     &   *_maskS(i,j,kLev,bi,bj)
+       DO j=1,sNy+1
+c       DO i=1,sNx
+C-jmc: Without CD-scheme, this is OK ; but with CD-scheme, needs to cover [0:sNx+1]
+        DO i=0,sNx+1
+          gV(i,j,kLev,bi,bj) = gV(i,j,kLev,bi,bj)
+     &      +foFacMom*surfaceForcingV(i,j,bi,bj)
+     &      *recip_drF(kLev)*_recip_hFacS(i,j,kLev,bi,bj)
+        ENDDO
+       ENDDO
+      ELSEIF ( kSurface.EQ.-1 ) THEN
+       DO j=1,sNy+1
+        DO i=0,sNx+1
+         IF ( kSurfS(i,j,bi,bj).EQ.kLev ) THEN
+          gV(i,j,kLev,bi,bj) = gV(i,j,kLev,bi,bj)
+     &      +foFacMom*surfaceForcingV(i,j,bi,bj)
+     &      *recip_drF(kLev)*_recip_hFacS(i,j,kLev,bi,bj)
+         ENDIF
         ENDDO
        ENDDO
       ENDIF
 
-#if (defined (ALLOW_OBCS) && defined (ALLOW_OBCS_SPONGE))
+#ifdef ALLOW_EDDYPSI
+       CALL TAUEDDY_EXTERNAL_FORCING_V(
+     I           iMin,iMax, jMin,jMax, bi,bj, kLev,
+     I           myTime, myThid )
+#endif
+
+#ifdef ALLOW_RBCS
+      IF (useRBCS) THEN
+        CALL RBCS_ADD_TENDENCY( bi, bj, klev, -2,
+     &                          myTime, myThid )
+      ENDIF
+#endif
+
+#ifdef ALLOW_OBCS
       IF (useOBCS) THEN
        CALL OBCS_SPONGE_V(
-     I           iMin, iMax, jMin, jMax,bi,bj,kLev,
-     I           myCurrentTime,myThid)
+     I           iMin,iMax, jMin,jMax, bi,bj, kLev,
+     I           myTime, myThid )
       ENDIF
 #endif
 
+#ifdef ALLOW_MYPACKAGE
+      IF ( useMYPACKAGE ) CALL MYPACKAGE_TENDENCY_APPLY_V(
+     &                      iMin,iMax, jMin,jMax, bi,bj, kLev,
+     &                      myTime, myThid )
+#endif /* ALLOW_MYPACKAGE */
+
       RETURN
       END
+
+C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
 CBOP
 C     !ROUTINE: EXTERNAL_FORCING_T
 C     !INTERFACE:
       SUBROUTINE EXTERNAL_FORCING_T(
-     I           iMin, iMax, jMin, jMax,bi,bj,kLev,
-     I           myCurrentTime,myThid)
+     I           iMin,iMax, jMin,jMax, bi,bj, kLev,
+     I           myTime, myThid )
 C     !DESCRIPTION: \bv
 C     *==========================================================*
-C     | S/R EXTERNAL_FORCING_T                                    
-C     | o Contains problem specific forcing for temperature.      
+C     | S/R EXTERNAL_FORCING_T
+C     | o Contains problem specific forcing for temperature.
 C     *==========================================================*
-C     | Adds terms to gT for forcing by external sources          
-C     | e.g. heat flux, climatalogical relaxation..............   
+C     | Adds terms to gT for forcing by external sources
+C     | e.g. heat flux, climatalogical relaxation, etc ...
 C     *==========================================================*
 C     \ev
 
@@ -177,91 +294,306 @@
 #include "GRID.h"
 #include "DYNVARS.h"
 #include "FFIELDS.h"
-#ifdef SHORTWAVE_HEATING
-      integer two
-      _RL minusone
-      parameter (two=2,minusone=-1.)
-      _RL swfracb(two)
-#endif
+#include "SURFACE.h"
 
 C     !INPUT/OUTPUT PARAMETERS:
 C     == Routine arguments ==
-C     iMin - Working range of tile for applying forcing.
-C     iMax
-C     jMin
-C     jMax
-C     kLev
+C     iMin,iMax :: Working range of x-index for applying forcing.
+C     jMin,jMax :: Working range of y-index for applying forcing.
+C     bi,bj     :: Current tile indices
+C     kLev      :: Current vertical level index
+C     myTime    :: Current time in simulation
+C     myThid    :: Thread Id number
       INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj
-      _RL myCurrentTime
+      _RL myTime
       INTEGER myThid
-CEndOfInterface
 
 C     !LOCAL VARIABLES:
 C     == Local variables ==
-C     Loop counters
-      INTEGER I, J
-C     number of surface interface layer
+C     i,j       :: Loop counters
+C     kSurface  :: index of surface level
+      INTEGER i, j
       INTEGER kSurface
+      INTEGER km, kc, kp
+      _RL tmpVar(1:sNx,1:sNy)
+      _RL tmpFac, delPI
 CEOP
+c#ifdef ALLOW_FRICTION_HEATING
+c     _RL tmpFac
+c#endif
+#ifdef SHORTWAVE_HEATING
+      _RL minusone
+      PARAMETER (minusOne=-1.)
+      _RL swfracb(2)
+      INTEGER kp1
+#endif
 
-      if ( buoyancyRelation .eq. 'OCEANICP' ) then
+      IF ( fluidIsAir ) THEN
+       kSurface = 0
+      ELSEIF ( usingZCoords .AND. useShelfIce ) THEN
+       kSurface = -1
+      ELSEIF ( usingPCoords ) THEN
        kSurface = Nr
-      else
+      ELSE
        kSurface = 1
-      endif
+      ENDIF
 
 C--   Forcing term
-C     Add heat in top-layer
+#ifdef ALLOW_AIM
+      IF ( useAIM ) CALL AIM_TENDENCY_APPLY_T(
+     &                      iMin,iMax, jMin,jMax, bi,bj, kLev,
+     &                      myTime, myThid )
+#endif /* ALLOW_AIM */
+
+#ifdef ALLOW_ATM_PHYS
+      IF ( useAtm_Phys ) CALL ATM_PHYS_TENDENCY_APPLY_T(
+     &                      iMin,iMax, jMin,jMax, bi,bj, kLev,
+     &                      myTime, myThid )
+#endif /* ALLOW_ATM_PHYS */
+
+#ifdef ALLOW_FIZHI
+      IF ( useFIZHI ) CALL FIZHI_TENDENCY_APPLY_T(
+     &                      iMin,iMax, jMin,jMax, bi,bj, kLev,
+     &                      myTime, myThid )
+#endif /* ALLOW_FIZHI */
+
+#ifdef ALLOW_ADDFLUID
+      IF ( selectAddFluid.NE.0 .AND. temp_addMass.NE.UNSET_RL ) THEN
+       IF ( ( selectAddFluid.GE.1 .AND. nonlinFreeSurf.GT.0 )
+     &      .OR. convertFW2Salt.EQ.-1. _d 0 ) THEN
+         DO j=1,sNy
+          DO i=1,sNx
+            gT(i,j,kLev,bi,bj) = gT(i,j,kLev,bi,bj)
+     &        + addMass(i,j,kLev,bi,bj)*mass2rUnit
+     &          *( temp_addMass - theta(i,j,kLev,bi,bj) )
+     &          *recip_rA(i,j,bi,bj)
+     &          *recip_drF(kLev)*_recip_hFacC(i,j,kLev,bi,bj)
+C    &          *recip_deepFac2C(kLev)*recip_rhoFacC(kLev)
+          ENDDO
+         ENDDO
+       ELSE
+         DO j=1,sNy
+          DO i=1,sNx
+            gT(i,j,kLev,bi,bj) = gT(i,j,kLev,bi,bj)
+     &        + addMass(i,j,kLev,bi,bj)*mass2rUnit
+     &          *( temp_addMass - tRef(kLev) )
+     &          *recip_rA(i,j,bi,bj)
+     &          *recip_drF(kLev)*_recip_hFacC(i,j,kLev,bi,bj)
+C    &          *recip_deepFac2C(kLev)*recip_rhoFacC(kLev)
+          ENDDO
+         ENDDO
+       ENDIF
+      ENDIF
+#endif /* ALLOW_ADDFLUID */
+
+#ifdef ALLOW_FRICTION_HEATING
+      IF ( addFrictionHeating ) THEN
+        IF ( fluidIsAir ) THEN
+C         conversion from in-situ Temp to Pot.Temp
+          tmpFac = (atm_Po/rC(kLev))**atm_kappa
+C         conversion from W/m^2/r_unit to K/s
+          tmpFac = (tmpFac/atm_Cp) * mass2rUnit
+        ELSE
+C         conversion from W/m^2/r_unit to K/s
+          tmpFac = mass2rUnit/HeatCapacity_Cp
+        ENDIF
+        DO j=1,sNy
+          DO i=1,sNx
+            gT(i,j,kLev,bi,bj) = gT(i,j,kLev,bi,bj)
+     &         + frictionHeating(i,j,kLev,bi,bj)
+     &          *tmpFac*recip_rA(i,j,bi,bj)
+     &          *recip_drF(kLev)*_recip_hFacC(i,j,kLev,bi,bj)
+          ENDDO
+        ENDDO
+      ENDIF
+#endif /* ALLOW_FRICTION_HEATING */
+
+      IF ( fluidIsAir .AND. atm_Rq.NE.zeroRL .AND. Nr.NE.1 ) THEN
+C--   Compressible fluid: account for difference between moist and dry air
+C     specific volume in Enthalpy equation (+ V.dP term), since only the
+C     dry air part is accounted for in the (dry) Pot.Temp formulation.
+C     Used centered averaging from interface to center (consistent with
+C     conversion term in KE eq) and same discretisation ( [T*Q]_bar_k )
+C     as for Theta_v in CALC_PHI_HYD
+
+C     conversion from in-situ Temp to Pot.Temp
+        tmpFac = (atm_Po/rC(kLev))**atm_kappa
+C     conversion from W/kg to K/s
+        tmpFac = tmpFac/atm_Cp
+        km = kLev-1
+        kc = kLev
+        kp = kLev+1
+        IF ( kLev.EQ.1 ) THEN
+          DO j=1,sNy
+           DO i=1,sNx
+            tmpVar(i,j) = 0.
+           ENDDO
+          ENDDO
+        ELSE
+          delPI = atm_Cp*( (rC(km)/atm_Po)**atm_kappa
+     &                   - (rC(kc)/atm_Po)**atm_kappa )
+          DO j=1,sNy
+           DO i=1,sNx
+            tmpVar(i,j) = wVel(i,j,kc,bi,bj)*delPI*atm_Rq
+     &                  *( theta(i,j,km,bi,bj)*salt(i,j,km,bi,bj)
+     &                   + theta(i,j,kc,bi,bj)*salt(i,j,kc,bi,bj)
+     &                   )*maskC(i,j,km,bi,bj)*0.25 _d 0
+           ENDDO
+          ENDDO
+        ENDIF
+        IF ( kLev.LT.Nr ) THEN
+          delPI = atm_Cp*( (rC(kc)/atm_Po)**atm_kappa
+     &                   - (rC(kp)/atm_Po)**atm_kappa )
+          DO j=1,sNy
+           DO i=1,sNx
+            tmpVar(i,j) = tmpVar(i,j)
+     &                  + wVel(i,j,kp,bi,bj)*delPI*atm_Rq
+     &                  *( theta(i,j,kc,bi,bj)*salt(i,j,kc,bi,bj)
+     &                   + theta(i,j,kp,bi,bj)*salt(i,j,kp,bi,bj)
+     &                   )*maskC(i,j,kp,bi,bj)*0.25 _d 0
+           ENDDO
+          ENDDO
+        ENDIF
+        DO j=1,sNy
+          DO i=1,sNx
+            gT(i,j,kLev,bi,bj) = gT(i,j,kLev,bi,bj)
+     &         + tmpVar(i,j)*tmpFac
+     &          *recip_drF(kLev)*_recip_hFacC(i,j,kLev,bi,bj)
+          ENDDO
+        ENDDO
+#ifdef ALLOW_DIAGNOSTICS
+        IF ( useDiagnostics ) THEN
+C     conversion to W/m^2
+          tmpFac = rUnit2mass
+          CALL DIAGNOSTICS_SCALE_FILL( tmpVar, tmpFac, 1,
+     &                     'MoistCor', kc, 1, 3, bi,bj,myThid )
+        ENDIF
+#endif /* ALLOW_DIAGNOSTICS */
+      ENDIF
+
+C     Ocean: Add temperature surface forcing (e.g., heat-flux) in surface level
       IF ( kLev .EQ. kSurface ) THEN
-       DO j=jMin,jMax
-        DO i=iMin,iMax
-         gT(i,j,kLev,bi,bj)=gT(i,j,kLev,bi,bj)
-     &     +maskC(i,j,kLev,bi,bj)*surfaceTendencyT(i,j,bi,bj)
+       DO j=1,sNy
+        DO i=1,sNx
+          gT(i,j,kLev,bi,bj)=gT(i,j,kLev,bi,bj)
+     &      +surfaceForcingT(i,j,bi,bj)
+     &      *recip_drF(kLev)*_recip_hFacC(i,j,kLev,bi,bj)
+        ENDDO
+       ENDDO
+      ELSEIF ( kSurface.EQ.-1 ) THEN
+       DO j=1,sNy
+        DO i=1,sNx
+         IF ( kSurfC(i,j,bi,bj).EQ.kLev ) THEN
+          gT(i,j,kLev,bi,bj)=gT(i,j,kLev,bi,bj)
+     &      +surfaceForcingT(i,j,bi,bj)
+     &      *recip_drF(kLev)*_recip_hFacC(i,j,kLev,bi,bj)
+         ENDIF
         ENDDO
        ENDDO
       ENDIF
 
+      IF (linFSConserveTr) THEN
+       DO j=1,sNy
+        DO i=1,sNx
+          IF (kLev .EQ. kSurfC(i,j,bi,bj)) THEN
+            gT(i,j,kLev,bi,bj)=gT(i,j,kLev,bi,bj)
+     &        +TsurfCor*recip_drF(kLev)*_recip_hFacC(i,j,kLev,bi,bj)
+          ENDIF
+        ENDDO
+       ENDDO
+      ENDIF
+
+#ifdef ALLOW_FRAZIL
+      IF ( useFRAZIL )
+     &     CALL FRAZIL_TENDENCY_APPLY_T(
+     I     iMin,iMax, jMin,jMax, bi,bj, kLev,
+     I     myTime, myThid )
+#endif /* ALLOW_FRAZIL */
+
+#ifdef ALLOW_SHELFICE
+      IF ( useShelfIce )
+     &     CALL SHELFICE_FORCING_T(
+     I     iMin,iMax, jMin,jMax, bi,bj, kLev,
+     I     myTime, myThid )
+#endif /* ALLOW_SHELFICE */
+
+#ifdef ALLOW_ICEFRONT
+      IF ( useICEFRONT )
+     &     CALL ICEFRONT_TENDENCY_APPLY_T(
+     &     bi,bj, kLev, myTime, myThid )
+#endif /* ALLOW_ICEFRONT */
+
 #ifdef SHORTWAVE_HEATING
 C Penetrating SW radiation
-      swfracb(1)=abs(rF(klev))
-      swfracb(2)=abs(rF(klev+1))
-      call SWFRAC(
-     I     two,minusone,
-     I     myCurrentTime,myThid,
-     U     swfracb)
-      DO j=jMin,jMax
-       DO i=iMin,iMax
-        gT(i,j,klev,bi,bj) = gT(i,j,klev,bi,bj) 
-     &   -maskC(i,j,klev,bi,bj)*Qsw(i,j,bi,bj)*(swfracb(1)-swfracb(2))
-     &    *recip_Cp*recip_rhoConst*recip_drF(klev)
+c     IF ( usePenetratingSW ) THEN
+       swfracb(1)=abs(rF(klev))
+       swfracb(2)=abs(rF(klev+1))
+       CALL SWFRAC(
+     I             2, minusOne,
+     U             swfracb,
+     I             myTime, 1, myThid )
+       kp1 = klev+1
+       IF (klev.EQ.Nr) THEN
+        kp1 = klev
+        swfracb(2)=0. _d 0
+       ENDIF
+       DO j=1,sNy
+        DO i=1,sNx
+         gT(i,j,klev,bi,bj) = gT(i,j,klev,bi,bj)
+     &   -Qsw(i,j,bi,bj)*(swfracb(1)*maskC(i,j,klev,bi,bj)
+     &                   -swfracb(2)*maskC(i,j,kp1, bi,bj))
+     &    *mass2rUnit/HeatCapacity_Cp
+     &    *recip_drF(klev)*_recip_hFacC(i,j,kLev,bi,bj)
+        ENDDO
        ENDDO
-      ENDDO
+c     ENDIF
+#endif
+
+#ifdef ALLOW_RBCS
+       IF (useRBCS) THEN
+          CALL RBCS_ADD_TENDENCY(bi,bj,klev, 1,
+     &                            myTime, myThid )
+       ENDIF
 #endif
 
-#if (defined (ALLOW_OBCS) && defined (ALLOW_OBCS_SPONGE))
+#ifdef ALLOW_OBCS
       IF (useOBCS) THEN
        CALL OBCS_SPONGE_T(
-     I           iMin, iMax, jMin, jMax,bi,bj,kLev,
-     I           myCurrentTime,myThid)
+     I           iMin,iMax, jMin,jMax, bi,bj, kLev,
+     I           myTime, myThid )
       ENDIF
 #endif
 
+#ifdef ALLOW_BBL
+      IF ( useBBL ) CALL BBL_TENDENCY_APPLY_T(
+     &                      iMin,iMax, jMin,jMax, bi,bj, kLev,
+     &                      myTime, myThid )
+#endif /* ALLOW_BBL */
+
+#ifdef ALLOW_MYPACKAGE
+      IF ( useMYPACKAGE ) CALL MYPACKAGE_TENDENCY_APPLY_T(
+     &                      iMin,iMax, jMin,jMax, bi,bj, kLev,
+     &                      myTime, myThid )
+#endif /* ALLOW_MYPACKAGE */
+
       RETURN
       END
+
+C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
 CBOP
 C     !ROUTINE: EXTERNAL_FORCING_S
 C     !INTERFACE:
       SUBROUTINE EXTERNAL_FORCING_S(
-     I           iMin, iMax, jMin, jMax,bi,bj,kLev,
-     I           myCurrentTime,myThid)
+     I           iMin,iMax, jMin,jMax, bi,bj, kLev,
+     I           myTime, myThid )
 
 C     !DESCRIPTION: \bv
 C     *==========================================================*
-C     | S/R EXTERNAL_FORCING_S                                    
-C     | o Contains problem specific forcing for merid velocity.   
+C     | S/R EXTERNAL_FORCING_S
+C     | o Contains problem specific forcing for merid velocity.
 C     *==========================================================*
-C     | Adds terms to gS for forcing by external sources          
-C     | e.g. fresh-water flux, climatalogical relaxation.......   
+C     | Adds terms to gS for forcing by external sources
+C     | e.g. fresh-water flux, climatalogical relaxation, etc ...
 C     *==========================================================*
 C     \ev
 
@@ -274,51 +606,173 @@
 #include "GRID.h"
 #include "DYNVARS.h"
 #include "FFIELDS.h"
+#include "SURFACE.h"
 
 C     !INPUT/OUTPUT PARAMETERS:
 C     == Routine arguments ==
-C     iMin - Working range of tile for applying forcing.
-C     iMax
-C     jMin
-C     jMax
-C     kLev
+C     iMin,iMax :: Working range of x-index for applying forcing.
+C     jMin,jMax :: Working range of y-index for applying forcing.
+C     bi,bj     :: Current tile indices
+C     kLev      :: Current vertical level index
+C     myTime    :: Current time in simulation
+C     myThid    :: Thread Id number
       INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj
-      _RL myCurrentTime
+      _RL myTime
       INTEGER myThid
 
 C     !LOCAL VARIABLES:
 C     == Local variables ==
-C     Loop counters
-      INTEGER I, J
-C     number of surface interface layer
+C     i,j       :: Loop counters
+C     kSurface  :: index of surface level
+      INTEGER i, j
       INTEGER kSurface
 CEOP
 
-      if ( buoyancyRelation .eq. 'OCEANICP' ) then
+      IF ( fluidIsAir ) THEN
+       kSurface = 0
+      ELSEIF ( usingZCoords .AND. useShelfIce ) THEN
+       kSurface = -1
+      ELSEIF ( usingPCoords ) THEN
        kSurface = Nr
-      else
+      ELSE
        kSurface = 1
-      endif
-
+      ENDIF
 
 C--   Forcing term
-C     Add fresh-water in top-layer
+#ifdef ALLOW_AIM
+      IF ( useAIM ) CALL AIM_TENDENCY_APPLY_S(
+     &                      iMin,iMax, jMin,jMax, bi,bj, kLev,
+     &                      myTime, myThid )
+#endif /* ALLOW_AIM */
+
+#ifdef ALLOW_ATM_PHYS
+      IF ( useAtm_Phys ) CALL ATM_PHYS_TENDENCY_APPLY_S(
+     &                      iMin,iMax, jMin,jMax, bi,bj, kLev,
+     &                      myTime, myThid )
+#endif /* ALLOW_ATM_PHYS */
+
+#ifdef ALLOW_FIZHI
+      IF ( useFIZHI ) CALL FIZHI_TENDENCY_APPLY_S(
+     &                      iMin,iMax, jMin,jMax, bi,bj, kLev,
+     &                      myTime, myThid )
+#endif /* ALLOW_FIZHI */
+
+#ifdef ALLOW_ADDFLUID
+      IF ( selectAddFluid.NE.0 .AND. salt_addMass.NE.UNSET_RL ) THEN
+       IF ( ( selectAddFluid.GE.1 .AND. nonlinFreeSurf.GT.0 )
+     &      .OR. convertFW2Salt.EQ.-1. _d 0 ) THEN
+         DO j=1,sNy
+          DO i=1,sNx
+            gS(i,j,kLev,bi,bj) = gS(i,j,kLev,bi,bj)
+     &        + addMass(i,j,kLev,bi,bj)*mass2rUnit
+     &          *( salt_addMass - salt(i,j,kLev,bi,bj) )
+     &          *recip_rA(i,j,bi,bj)
+     &          *recip_drF(kLev)*_recip_hFacC(i,j,kLev,bi,bj)
+C    &          *recip_deepFac2C(kLev)*recip_rhoFacC(kLev)
+          ENDDO
+         ENDDO
+       ELSE
+         DO j=1,sNy
+          DO i=1,sNx
+            gS(i,j,kLev,bi,bj) = gS(i,j,kLev,bi,bj)
+     &        + addMass(i,j,kLev,bi,bj)*mass2rUnit
+     &          *( salt_addMass - sRef(kLev) )
+     &          *recip_rA(i,j,bi,bj)
+     &          *recip_drF(kLev)*_recip_hFacC(i,j,kLev,bi,bj)
+C    &          *recip_deepFac2C(kLev)*recip_rhoFacC(kLev)
+          ENDDO
+         ENDDO
+       ENDIF
+      ENDIF
+#endif /* ALLOW_ADDFLUID */
+
+C     Ocean: Add salinity surface forcing (e.g., fresh-water) in surface level
       IF ( kLev .EQ. kSurface ) THEN
-       DO j=jMin,jMax
-        DO i=iMin,iMax
-         gS(i,j,kLev,bi,bj)=gS(i,j,kLev,bi,bj)
-     &   +maskC(i,j,kLev,bi,bj)*surfaceTendencyS(i,j,bi,bj)
+       DO j=1,sNy
+        DO i=1,sNx
+          gS(i,j,kLev,bi,bj)=gS(i,j,kLev,bi,bj)
+     &      +surfaceForcingS(i,j,bi,bj)
+     &      *recip_drF(kLev)*_recip_hFacC(i,j,kLev,bi,bj)
+        ENDDO
+       ENDDO
+      ELSEIF ( kSurface.EQ.-1 ) THEN
+       DO j=1,sNy
+        DO i=1,sNx
+         IF ( kSurfC(i,j,bi,bj).EQ.kLev ) THEN
+          gS(i,j,kLev,bi,bj)=gS(i,j,kLev,bi,bj)
+     &      +surfaceForcingS(i,j,bi,bj)
+     &      *recip_drF(kLev)*_recip_hFacC(i,j,kLev,bi,bj)
+         ENDIF
         ENDDO
        ENDDO
       ENDIF
 
-#if (defined (ALLOW_OBCS) && defined (ALLOW_OBCS_SPONGE))
+      IF (linFSConserveTr) THEN
+       DO j=1,sNy
+        DO i=1,sNx
+          IF (kLev .EQ. kSurfC(i,j,bi,bj)) THEN
+            gS(i,j,kLev,bi,bj)=gS(i,j,kLev,bi,bj)
+     &        +SsurfCor*recip_drF(kLev)*_recip_hFacC(i,j,kLev,bi,bj)
+          ENDIF
+        ENDDO
+       ENDDO
+      ENDIF
+
+#ifdef ALLOW_SHELFICE
+      IF ( useShelfIce )
+     &     CALL SHELFICE_FORCING_S(
+     I     iMin,iMax, jMin,jMax, bi,bj, kLev,
+     I     myTime, myThid )
+#endif /* ALLOW_SHELFICE */
+
+#ifdef ALLOW_ICEFRONT
+      IF ( useICEFRONT )
+     &     CALL ICEFRONT_TENDENCY_APPLY_S(
+     &     bi,bj, kLev, myTime, myThid )
+#endif /* ALLOW_ICEFRONT */
+
+Catn: org. version of SP: do within k-loop
+Catn  new version: outside k-loop; called from [temp,salt]_integrate.F
+#ifdef ALLOW_SALT_PLUME
+CC#ifndef SALT_PLUME_VOLUME
+      IF ( useSALT_PLUME )
+     &     CALL SALT_PLUME_TENDENCY_APPLY_S(
+     I     iMin,iMax, jMin,jMax, bi,bj, kLev,
+     I     myTime, myThid )
+#ifdef SALT_PLUME_VOLUME
+      IF ( useSALT_PLUME )
+     &     CALL SALT_PLUME_TENDENCY_APPLY_T(
+     I     iMin,iMax, jMin,jMax, bi,bj, kLev,
+     I     myTime, myThid )
+#endif /* ndef SALT_PLUME_VOLUME */
+#endif /* ALLOW_SALT_PLUME */
+
+#ifdef ALLOW_RBCS
+       IF (useRBCS) THEN
+          CALL RBCS_ADD_TENDENCY(bi,bj,klev, 2,
+     &                            myTime, myThid )
+       ENDIF
+#endif /* ALLOW_RBCS */
+
+#ifdef ALLOW_OBCS
       IF (useOBCS) THEN
        CALL OBCS_SPONGE_S(
-     I           iMin, iMax, jMin, jMax,bi,bj,kLev,
-     I           myCurrentTime,myThid)
+     I           iMin,iMax, jMin,jMax, bi,bj, kLev,
+     I           myTime, myThid )
       ENDIF
-#endif
+#endif /* ALLOW_OBCS */
+
+#ifdef ALLOW_BBL
+      IF ( useBBL ) CALL BBL_TENDENCY_APPLY_S(
+     &                      iMin,iMax, jMin,jMax, bi,bj, kLev,
+     &                      myTime, myThid )
+#endif /* ALLOW_BBL */
+
+#ifdef ALLOW_MYPACKAGE
+      IF ( useMYPACKAGE ) CALL MYPACKAGE_TENDENCY_APPLY_S(
+     &                      iMin,iMax, jMin,jMax, bi,bj, kLev,
+     &                      myTime, myThid )
+#endif /* ALLOW_MYPACKAGE */
 
       RETURN
       END