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

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

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

revision 1.21 by heimbach, Thu Nov 8 20:57:51 2001 UTC revision 1.22 by jmc, Wed Jan 30 04:12:12 2002 UTC
# Line 155  C--   Initialize variable data for packa Line 155  C--   Initialize variable data for packa
155  C--   Compute the surface level thickness <-- function of etaH(n)  C--   Compute the surface level thickness <-- function of etaH(n)
156  C     and modify hFac(C,W,S) accordingly :  C     and modify hFac(C,W,S) accordingly :
157        IF (nonlinFreeSurf.GT.0) THEN        IF (nonlinFreeSurf.GT.0) THEN
158          CALL CALC_SURF_DR(etaH, startTime, nIter0, myThid )          CALL CALC_SURF_DR(etaH, startTime, -1 , myThid )
159          CALL UPDATE_SURF_DR( startTime, nIter0, myThid )          CALL UPDATE_SURF_DR( startTime, nIter0, myThid )
160        ENDIF        ENDIF
161  C-    update also CG2D matrix (and preconditioner)  C-    update also CG2D matrix (and preconditioner)
Legend:
Removed from v.1.21  
changed lines
  Added in v.1.22
  ViewVC Help
Powered by ViewVC 1.1.22