| 678 |
|
|
| 679 |
RETURN |
RETURN |
| 680 |
END |
END |
| 681 |
|
|
| 682 |
|
subroutine KPP_CALC_DUMMY( |
| 683 |
|
I bi, bj, myTime, myThid ) |
| 684 |
|
C /==========================================================\ |
| 685 |
|
C | SUBROUTINE KPP_CALC_DUMMY | |
| 686 |
|
C | o Compute all KPP fields defined in KPP.h | |
| 687 |
|
C | o Dummy routine for TAMC |
| 688 |
|
C |==========================================================| |
| 689 |
|
C | This subroutine serves as an interface between MITGCMUV | |
| 690 |
|
C | code and NCOM 1-D routines in kpp_routines.F | |
| 691 |
|
C \==========================================================/ |
| 692 |
|
IMPLICIT NONE |
| 693 |
|
|
| 694 |
|
#include "SIZE.h" |
| 695 |
|
#include "EEPARAMS.h" |
| 696 |
|
#include "PARAMS.h" |
| 697 |
|
#include "KPP.h" |
| 698 |
|
#include "KPP_PARAMS.h" |
| 699 |
|
#include "GRID.h" |
| 700 |
|
|
| 701 |
|
c Routine arguments |
| 702 |
|
c bi, bj - array indices on which to apply calculations |
| 703 |
|
c myTime - Current time in simulation |
| 704 |
|
|
| 705 |
|
INTEGER bi, bj |
| 706 |
|
INTEGER myThid |
| 707 |
|
_RL myTime |
| 708 |
|
|
| 709 |
|
#ifdef ALLOW_KPP |
| 710 |
|
|
| 711 |
|
c Local constants |
| 712 |
|
integer i, j, k |
| 713 |
|
|
| 714 |
|
DO j=1-OLy,sNy+OLy |
| 715 |
|
DO i=1-OLx,sNx+OLx |
| 716 |
|
KPPhbl (i,j,bi,bj) = 1.0 |
| 717 |
|
KPPfrac(i,j,bi,bj) = 0.0 |
| 718 |
|
DO k = 1,Nr |
| 719 |
|
KPPghat (i,j,k,bi,bj) = 0.0 |
| 720 |
|
KPPviscAz (i,j,k,bi,bj) = viscAz |
| 721 |
|
KPPdiffKzT(i,j,k,bi,bj) = diffKzT |
| 722 |
|
KPPdiffKzS(i,j,k,bi,bj) = diffKzS |
| 723 |
|
ENDDO |
| 724 |
|
ENDDO |
| 725 |
|
ENDDO |
| 726 |
|
|
| 727 |
|
#endif |
| 728 |
|
RETURN |
| 729 |
|
END |
Parent Directory
| 
Revision Log
| 
Revision Graph
| 
Patch