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

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

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

revision 1.6 by jmc, Thu Mar 8 20:32:35 2001 UTC revision 1.6.2.2 by jmc, Fri Apr 6 13:13:43 2001 UTC
# Line 25  C     == Global variables === Line 25  C     == Global variables ===
25  #include "PARAMS.h"  #include "PARAMS.h"
26  #include "DYNVARS.h"  #include "DYNVARS.h"
27    
28    #ifdef EXACT_CONSERV
29          COMMON /TEMP_SURF_POS/ etaStar
30          _RL etaStar(1-Olx:sNx+Olx,1-Oly:sNy+Oly,nSx,nSy)
31    #endif
32    
33  C     == Routine arguments ==  C     == Routine arguments ==
34  C     myTime - Current time in simulation  C     myTime - Current time in simulation
35  C     myIter - Current iteration number in simulation  C     myIter - Current iteration number in simulation
# Line 114  CADJ STORE salt (:,:,k,bi,bj) = comlev1_ Line 119  CADJ STORE salt (:,:,k,bi,bj) = comlev1_
119  C--     End DO K=1,Nr  C--     End DO K=1,Nr
120          ENDDO          ENDDO
121    
122    #ifdef EXACT_CONSERV
123            IF (exactConserv) THEN
124    C--     Compute again "eta" to satisfy exactly the total Volume Conservation :
125              CALL CALC_EXACT_ETA( bi,bj, etaStar, phiSurfX,phiSurfY,
126         I                         myTime, myIter, myThid )
127            ENDIF
128    #endif /* EXACT_CONSERV */
129    
130  C--     Convectively adjust new fields to be statically stable  C--     Convectively adjust new fields to be statically stable
131          CALL CONVECTIVE_ADJUSTMENT(          CALL CONVECTIVE_ADJUSTMENT(
132       I       bi, bj, iMin, iMax, jMin, jMax,       I       bi, bj, iMin, iMax, jMin, jMax,
# Line 128  C--     Convectively adjust new fields t Line 141  C--     Convectively adjust new fields t
141         ENDDO         ENDDO
142        ENDDO        ENDDO
143    
144    #ifdef EXACT_CONSERV
145           IF (exactConserv) _EXCH_XY_R8(etaN, myThid )
146    #endif /* EXACT_CONSERV */
147    
148        RETURN        RETURN
149        END        END
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.6.2.2
  ViewVC Help
Powered by ViewVC 1.1.22