/[MITgcm]/MITgcm/pkg/kpp/kpp_calc.F
ViewVC logotype

Diff of /MITgcm/pkg/kpp/kpp_calc.F

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

revision 1.44 by dimitri, Sat Sep 22 17:55:32 2007 UTC revision 1.45 by dimitri, Tue Dec 18 09:05:59 2007 UTC
# Line 106  C !USES: =============================== Line 106  C !USES: ===============================
106  #include "FFIELDS.h"  #include "FFIELDS.h"
107  #include "GRID.h"  #include "GRID.h"
108  #include "GAD.h"  #include "GAD.h"
109    #ifdef ALLOW_SALT_PLUME
110    # include "SALT_PLUME.h"
111    #endif /* ALLOW_SALT_PLUME */
112  #ifdef ALLOW_SHELFICE  #ifdef ALLOW_SHELFICE
113  # include "SHELFICE.h"  # include "SHELFICE.h"
114  #endif /* ALLOW_SHELFICE */  #endif /* ALLOW_SHELFICE */
115  #ifdef ALLOW_AUTODIFF_TAMC  #ifdef ALLOW_AUTODIFF_TAMC
116  #include "tamc.h"  # include "tamc.h"
117  #include "tamc_keys.h"  # include "tamc_keys.h"
118  #else /* ALLOW_AUTODIFF_TAMC */  #else /* ALLOW_AUTODIFF_TAMC */
119        integer ikppkey        integer ikppkey
120  #endif /* ALLOW_AUTODIFF_TAMC */  #endif /* ALLOW_AUTODIFF_TAMC */
# Line 590  C     the bottom of the mixing layer. Line 593  C     the bottom of the mixing layer.
593              worka(i,j) = KPPhbl(i,j,bi,bj)              worka(i,j) = KPPhbl(i,j,bi,bj)
594           ENDDO           ENDDO
595        ENDDO        ENDDO
596        CALL PLUMEFRAC(        CALL SALT_PLUME_FRAC(
597       I     (sNx+2*OLx)*(sNy+2*OLy), minusone,SaltPlumeDepth,       I     (sNx+2*OLx)*(sNy+2*OLy), minusone,SaltPlumeDepth,
598       U     worka,       U     worka,
599       I     myTime, myIter, myThid )       I     myTime, myIter, myThid )
Legend:
Removed from v.1.44  
changed lines
  Added in v.1.45
  ViewVC Help
Powered by ViewVC 1.1.22