/[MITgcm]/MITgcm/pkg/rbcs/rbcs_add_tendency.F
ViewVC logotype

Diff of /MITgcm/pkg/rbcs/rbcs_add_tendency.F

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

revision 1.7 by gforget, Fri May 20 22:26:37 2011 UTC revision 1.8 by gforget, Sat May 21 00:44:53 2011 UTC
# Line 84  c    &        *maskS(i,j,k,bi,bj) Line 84  c    &        *maskS(i,j,k,bi,bj)
84       &        *( theta(i,j,k,bi,bj)- RBCtemp(i,j,k,bi,bj) )       &        *( theta(i,j,k,bi,bj)- RBCtemp(i,j,k,bi,bj) )
85  c    &        *maskC(i,j,k,bi,bj)  c    &        *maskC(i,j,k,bi,bj)
86  #ifdef ALLOW_RBCS_SPIN  #ifdef ALLOW_RBCS_SPIN
87  cgf decrease relaxation time scale linearly over 3 years       &        *MAX( 0. _d 0 , 1. _d 0 - mytime/( 94608000. _d 0 ) )
      &        *mytime/( 94608000. _d 0 )  
88  #endif  #endif
89           ENDDO           ENDDO
90          ENDDO          ENDDO
# Line 99  cgf decrease relaxation time scale linea Line 98  cgf decrease relaxation time scale linea
98       &        *( salt(i,j,k,bi,bj)- RBCsalt(i,j,k,bi,bj) )       &        *( salt(i,j,k,bi,bj)- RBCsalt(i,j,k,bi,bj) )
99  c    &        *maskC(i,j,k,bi,bj)  c    &        *maskC(i,j,k,bi,bj)
100  #ifdef ALLOW_RBCS_SPIN  #ifdef ALLOW_RBCS_SPIN
101  cgf decrease relaxation time scale linearly over 3 years       &        *MAX( 0. _d 0 , 1. _d 0 - mytime/( 94608000. _d 0 ) )
      &        *mytime/( 94608000. _d 0 )  
102  #endif  #endif
103           ENDDO           ENDDO
104          ENDDO          ENDDO
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22