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

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

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

revision 1.1 by jmc, Sun Jan 26 21:06:11 2003 UTC revision 1.2 by jmc, Thu Jan 30 00:06:23 2003 UTC
# Line 46  CEOP Line 46  CEOP
46    
47  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
48    
49  c #ifdef ALLOW_OBCS  #ifdef ALLOW_OBCS
50  c C-- Apply OBC to hFac_surfW,S before updating hFacW,S  C-- Apply OBC to rStar_Factor_W,S before updating hFacW,S
51  c         IF (useOBCS) CALL OBCS_APPLY_SURF_DR(          IF (useOBCS) CALL OBCS_APPLY_R_STAR(
52  c      I                    bi, bj, ksurfC, ksurfW, ksurfS,       I                    bi, bj, ksurfC, ksurfW, ksurfS,
53  c      U                    hFac_surfC, hFac_surfW, hFac_surfS,       U                    rStarFacC, rStarFacW, rStarFacS,
54  c      I                    myThid )       I                    myTime, myIter, myThid )
55  c #endif /* ALLOW_OBCS */  #endif /* ALLOW_OBCS */
56    
57          DO k=1,Nr          DO k=1,Nr
58           DO j=1-Oly,sNy+Oly           DO j=1-Oly,sNy+Oly
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22