/[MITgcm]/MITgcm/pkg/gmredi/gmredi_calc_tensor.F
ViewVC logotype

Diff of /MITgcm/pkg/gmredi/gmredi_calc_tensor.F

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

revision 1.38 by jmc, Wed Jan 12 16:02:37 2011 UTC revision 1.39 by jmc, Thu Feb 10 21:24:19 2011 UTC
# Line 917  C-- end 3rd  loop on vertical level inde Line 917  C-- end 3rd  loop on vertical level inde
917    
918  #ifdef GM_BOLUS_ADVEC  #ifdef GM_BOLUS_ADVEC
919        IF (GM_AdvForm) THEN        IF (GM_AdvForm) THEN
920         CALL GMREDI_CALC_PSI_B(  #ifdef GM_BOLUS_BVP
921           IF (GM_UseBVP) THEN
922            CALL GMREDI_CALC_PSI_BVP(
923       I             bi, bj, iMin, iMax, jMin, jMax,       I             bi, bj, iMin, iMax, jMin, jMax,
924       I             sigmaX, sigmaY, sigmaR,       I             sigmaX, sigmaY, sigmaR,
      I             ldd97_LrhoW, ldd97_LrhoS,  
925       I             myThid )       I             myThid )
926           ELSE
927    #endif
928            CALL GMREDI_CALC_PSI_B(
929         I              bi, bj, iMin, iMax, jMin, jMax,
930         I              sigmaX, sigmaY, sigmaR,
931         I              ldd97_LrhoW, ldd97_LrhoS,
932         I              myThid )
933    #ifdef GM_BOLUS_BVP
934           ENDIF
935    #endif
936        ENDIF        ENDIF
937  #endif  #endif
938    
Legend:
Removed from v.1.38  
changed lines
  Added in v.1.39
  ViewVC Help
Powered by ViewVC 1.1.22