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

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

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

revision 1.10 by heimbach, Thu Dec 8 15:44:33 2005 UTC revision 1.11 by jmc, Thu Jul 13 20:48:47 2006 UTC
# Line 10  C     !INTERFACE: Line 10  C     !INTERFACE:
10       I                        myTime, myIter, myThid )       I                        myTime, myIter, myThid )
11  C     !DESCRIPTION: \bv  C     !DESCRIPTION: \bv
12  C     *==========================================================*  C     *==========================================================*
13  C     | SUBROUTINE CALC_SURF_DR                                    C     | SUBROUTINE CALC_SURF_DR
14  C     | o Calculate the new surface level thickness according to    C     | o Calculate the new surface level thickness according to
15  C     |   the surface r-position  (Non-Linear Free-Surf)            C     |   the surface r-position  (Non-Linear Free-Surf)
16  C     | o take decision if grid box becomes too thin or too thick  C     | o take decision if grid box becomes too thin or too thick
17  C     *==========================================================*  C     *==========================================================*
18  C     \ev  C     \ev
19    
# Line 49  C     numbWrite    :: count the Number o Line 49  C     numbWrite    :: count the Number o
49  C     numbWrMax    ::  maximum  Number of warning written on STD-ERR file  C     numbWrMax    ::  maximum  Number of warning written on STD-ERR file
50        INTEGER i,j,bi,bj        INTEGER i,j,bi,bj
51        INTEGER ks, numbWrite, numbWrMax        INTEGER ks, numbWrite, numbWrMax
52        _RL hFacInfMOM, Rmin_tmp, hFactmp, adjust_nb_pt, adjust_volum        _RL hFactmp, adjust_nb_pt, adjust_volum
53        _RL rSurftmp(1-OLx:sNx+OLx,1-OLy:sNy+OLy)        _RL rSurftmp(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
54        _RS hhm, hhp        _RS hhm, hhp
55        CHARACTER*(MAX_LEN_MBUF) suff        CHARACTER*(MAX_LEN_MBUF) suff
Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11
  ViewVC Help
Powered by ViewVC 1.1.22