/[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.35 by stephd, Mon Dec 19 19:09:35 2005 UTC revision 1.36 by heimbach, Mon Jan 2 21:17:02 2006 UTC
# Line 3  C $Name$ Line 3  C $Name$
3    
4  #include "PACKAGES_CONFIG.h"  #include "PACKAGES_CONFIG.h"
5  #include "CPP_OPTIONS.h"  #include "CPP_OPTIONS.h"
 #ifdef ALLOW_EXF  
 # include "EXF_OPTIONS.h"  
 #endif  
6    
7  CBOP  CBOP
8  C     !ROUTINE: EXTERNAL_FORCING_U  C     !ROUTINE: EXTERNAL_FORCING_U
# Line 321  c     ENDIF Line 318  c     ENDIF
318         endif         endif
319  #endif  #endif
320    
 #ifdef ALLOW_CLIMTEMP_RELAXATION  
        IF ( tauThetaClimRelax3Dim .NE. 0. ) THEN  
         DO j=1,sNy  
          DO i=1,sNx  
           gT(i,j,klev,bi,bj) = gT(i,j,klev,bi,bj)  
      &     -1./tauThetaClimRelax3Dim  
      &         *(theta(i,j,klev,bi,bj)-thetaStar(i,j,klev,bi,bj))  
      &         *hFacC(i,j,klev,bi,bj)*recip_hFacC(i,j,kLev,bi,bj)  
          ENDDO  
         ENDDO  
        ENDIF  
 #endif  
   
321  #ifdef ALLOW_OBCS  #ifdef ALLOW_OBCS
322        IF (useOBCS) THEN        IF (useOBCS) THEN
323         CALL OBCS_SPONGE_T(         CALL OBCS_SPONGE_T(
# Line 432  C     Add fresh-water in top-layer Line 416  C     Add fresh-water in top-layer
416         endif         endif
417  #endif  #endif
418    
 #ifdef ALLOW_CLIMSALT_RELAXATION  
        IF ( tauSaltClimRelax3Dim .NE. 0. ) THEN  
         DO j=1,sNy  
          DO i=1,sNx  
           gS(i,j,klev,bi,bj) = gS(i,j,klev,bi,bj)  
      &     -1./tauSaltClimRelax3Dim  
      &         *(salt(i,j,klev,bi,bj)-saltStar(i,j,klev,bi,bj))  
      &         *hFacC(i,j,klev,bi,bj)*recip_hFacC(i,j,kLev,bi,bj)  
          ENDDO  
         ENDDO  
        ENDIF  
 #endif  
   
419  #ifdef ALLOW_OBCS  #ifdef ALLOW_OBCS
420        IF (useOBCS) THEN        IF (useOBCS) THEN
421         CALL OBCS_SPONGE_S(         CALL OBCS_SPONGE_S(
Legend:
Removed from v.1.35  
changed lines
  Added in v.1.36
  ViewVC Help
Powered by ViewVC 1.1.22