/[MITgcm]/MITgcm/model/src/tracers_iigw_correction.F
ViewVC logotype

Diff of /MITgcm/model/src/tracers_iigw_correction.F

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

revision 1.1 by jmc, Thu Feb 23 21:00:10 2006 UTC revision 1.2 by heimbach, Wed Jun 7 01:55:13 2006 UTC
# Line 82  C-     Add Impl.IGW correction to Pot.Te Line 82  C-     Add Impl.IGW correction to Pot.Te
82            theta(i,j,k,bi,bj) = theta(i,j,k,bi,bj)            theta(i,j,k,bi,bj) = theta(i,j,k,bi,bj)
83       &       -dTtracerLev(k)*0.5 _d 0       &       -dTtracerLev(k)*0.5 _d 0
84       &                      *( dTr_k*dW_k(i,j) + dTrp1*dWp1(i,j) )       &                      *( dTr_k*dW_k(i,j) + dTrp1*dWp1(i,j) )
85       &                      *recip_drF(k)*recip_hFacC(i,j,k,bi,bj)       &                      *recip_drF(k)*_recip_hFacC(i,j,k,bi,bj)
86            ENDDO            ENDDO
87           ENDDO           ENDDO
88         ENDIF         ENDIF
# Line 98  C-     Add Impl.IGW correction to Salini Line 98  C-     Add Impl.IGW correction to Salini
98              salt(i,j,k,bi,bj) = salt(i,j,k,bi,bj)              salt(i,j,k,bi,bj) = salt(i,j,k,bi,bj)
99       &       -dTtracerLev(k)*0.5 _d 0       &       -dTtracerLev(k)*0.5 _d 0
100       &                      *( dTr_k*dW_k(i,j) + dTrp1*dWp1(i,j) )       &                      *( dTr_k*dW_k(i,j) + dTrp1*dWp1(i,j) )
101       &                      *recip_drF(k)*recip_hFacC(i,j,k,bi,bj)       &                      *recip_drF(k)*_recip_hFacC(i,j,k,bi,bj)
102            ENDDO            ENDDO
103           ENDDO           ENDDO
104         ENDIF         ENDIF
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22