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

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

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

revision 1.20 by jmc, Mon Feb 21 16:47:47 2011 UTC revision 1.21 by jmc, Fri May 20 01:09:37 2011 UTC
# Line 31  C     == Global variables Line 31  C     == Global variables
31    
32  C     !INPUT/OUTPUT PARAMETERS:  C     !INPUT/OUTPUT PARAMETERS:
33  C     == Routine arguments ==  C     == Routine arguments ==
34  C     etaFld :: current eta field used to update the hFactor  C     etaFld    :: current eta field used to update the hFactor
35  C     myTime :: Current time in simulation  C     myTime    :: current time in simulation
36  C     myIter :: Current iteration number in simulation  C     myIter    :: current iteration number in simulation
37  C     myThid :: Thread number for this instance of the routine.  C     myThid    :: thread number for this instance of the routine.
38        _RL etaFld(1-Olx:sNx+Olx,1-Oly:sNy+Oly,nSx,nSy)        _RL etaFld(1-Olx:sNx+Olx,1-Oly:sNy+Oly,nSx,nSy)
39        _RL myTime        _RL myTime
40        INTEGER myIter        INTEGER myIter
# Line 166  C-     Simple average Line 166  C-     Simple average
166           ENDDO           ENDDO
167          ENDDO          ENDDO
168         ENDIF         ENDIF
169    #ifdef ALLOW_OBCS
170           IF (useOBCS) THEN
171             CALL OBCS_APPLY_R_STAR(
172         I                    bi, bj, etaFld,
173         U                    rStarFacC, rStarFacW, rStarFacS,
174         I                    myTime, myIter, myThid )
175           ENDIF
176    #endif /* ALLOW_OBCS */
177    
178  C-    Needs to do something when r* ratio is too small ;  C-    Needs to do something when r* ratio is too small ;
179  C     for now, just stop  C     for now, just stop
Legend:
Removed from v.1.20  
changed lines
  Added in v.1.21
  ViewVC Help
Powered by ViewVC 1.1.22