MITgcm |
|
|
|
|||
File indexing completed on 2018-03-02 18:41:32 UTC
view on githubraw file Latest commit add29e06 on 2018-01-31 20:35:05 UTCd8d1486ca1 Jean*0001 #include "KL10_OPTIONS.h" 0002 0003 SUBROUTINE KL10_INIT_VARIA( myThid ) 0004 C *==========================================================* 0005 C | SUBROUTINE KL10_INIT_VARIA 0006 C | o Routine to initialize KL10 parameters and variables. 0007 C *==========================================================* 0008 C | Initialize KL10 parameters and variables. 0009 C *==========================================================* 0010 IMPLICIT NONE 0011 0012 C === Global variables === 0013 #include "SIZE.h" 0014 #include "EEPARAMS.h" 0015 #include "PARAMS.h" 0016 c#include "GRID.h" 0017 #include "KL10.h" 0018 0019 C === Routine arguments === 0020 C myThid - Number of this instance of KL10_INIT 0021 INTEGER myThid 0022 0023 #ifdef ALLOW_KL10 0024 0025 C === Local variables === 0026 C i,j,k,bi,bj - Loop counters 0027 0028 INTEGER i, j, k, bi, bj 0029 0030 C----------------------------------------------------------------------- 0031 C Initialize KL variables KLviscAr, KLdiffKrT 0032 C----------------------------------------------------------------------- 0033 0034 DO bj = myByLo(myThid), myByHi(myThid) 0035 DO bi = myBxLo(myThid), myBxHi(myThid) 0036 DO k = 1, Nr 0037 DO j = 1-OLy, sNy+OLy 0038 DO i = 1-OLx, sNx+OLx 0039 KLviscAr (i,j,k,bi,bj) = viscArNr(k) 78524d1402 Jean*0040 KLdiffKr (i,j,k,bi,bj) = diffKrNrS(k) d8d1486ca1 Jean*0041 ENDDO 0042 ENDDO 0043 ENDDO 0044 ENDDO 0045 ENDDO 0046 0047 #endif /* ALLOW_KL10 */ 0048 0049 RETURN 0050 END
| [ Source navigation ] | [ Diff markup ] | [ Identifier search ] | [ general search ] |
|
This page was automatically generated from https://github.com/MITgcm/MITgcm by the 2.2.1-MITgcm-0.1 LXR engine. The LXR team |
|