Back to home page

MITgcm
 
 

    

File indexing completed on 2018-03-02 18:42:43 UTC

view on githubraw file Latest commit add29e06 on 2018-01-31 20:35:05 UTC
42c525bfb4 Alis*0001 C SPK 6/2/00: Added storage arrays for salinity. Removed some 
                0002 C             unneeded arrays.
                0003 C             
                0004 C SPK 7/18/00: Added dimensional phase speed arrays CVEL_**, 
                0005 C              where **=Variable(U,V,T,S,W)Boundary(E,W,N,S). 
                0006 C
f2f2d1c632 Alis*0007 cc
42c525bfb4 Alis*0008 
                0009 #ifdef ALLOW_ORLANSKI
                0010 
                0011       COMMON /ORLANSKI_PARAMS/
f2f2d1c632 Alis*0012      &      CMax, cVelTimeScale, CFix, useFixedCEast, useFixedCWest
                0013       _RL   CMax, cVelTimeScale, CFix
                0014       LOGICAL useFixedCEast, useFixedCWest
42c525bfb4 Alis*0015 
                0016 C     Storage arrays
                0017       COMMON /ORLANSKI_STORE/ 
                0018      &      UE_STORE_1,UE_STORE_2,
                0019      &      UE_STORE_3,UE_STORE_4,
                0020      &      VE_STORE_1,VE_STORE_2,
                0021      &      VE_STORE_3,VE_STORE_4,
                0022      &      TE_STORE_1,TE_STORE_2,
                0023      &      TE_STORE_3,TE_STORE_4,
                0024      &      SE_STORE_1,SE_STORE_2,
                0025      &      SE_STORE_3,SE_STORE_4,
                0026      &      WE_STORE_1,WE_STORE_2,
                0027      &      WE_STORE_3,WE_STORE_4,
                0028      &      UW_STORE_1,UW_STORE_2,
                0029      &      UW_STORE_3,UW_STORE_4,
                0030      &      VW_STORE_1,VW_STORE_2,
                0031      &      VW_STORE_3,VW_STORE_4,
                0032      &      TW_STORE_1,TW_STORE_2,
                0033      &      TW_STORE_3,TW_STORE_4,
                0034      &      SW_STORE_1,SW_STORE_2,
                0035      &      SW_STORE_3,SW_STORE_4,
                0036      &      WW_STORE_1,WW_STORE_2,
                0037      &      WW_STORE_3,WW_STORE_4,
                0038      &      UN_STORE_1,UN_STORE_2,
                0039      &      UN_STORE_3,UN_STORE_4,
                0040      &      VN_STORE_1,VN_STORE_2,
                0041      &      VN_STORE_3,VN_STORE_4,
                0042      &      TN_STORE_1,TN_STORE_2,
                0043      &      TN_STORE_3,TN_STORE_4,
                0044      &      SN_STORE_1,SN_STORE_2,
                0045      &      SN_STORE_3,SN_STORE_4,
                0046      &      WN_STORE_1,WN_STORE_2,
                0047      &      WN_STORE_3,WN_STORE_4,
                0048      &      US_STORE_1,US_STORE_2,
                0049      &      US_STORE_3,US_STORE_4,
                0050      &      VS_STORE_1,VS_STORE_2,
                0051      &      VS_STORE_3,VS_STORE_4,
                0052      &      TS_STORE_1,TS_STORE_2,
                0053      &      TS_STORE_3,TS_STORE_4,
                0054      &      SS_STORE_1,SS_STORE_2,
                0055      &      SS_STORE_3,SS_STORE_4,
                0056      &      WS_STORE_1,WS_STORE_2,
                0057      &      WS_STORE_3,WS_STORE_4
                0058 
                0059       _RL UE_STORE_1(1-OLy:sNy+OLy,Nr,nSx,nSy)
                0060       _RL UE_STORE_2(1-OLy:sNy+OLy,Nr,nSx,nSy)
                0061       _RL UE_STORE_3(1-OLy:sNy+OLy,Nr,nSx,nSy)
                0062       _RL UE_STORE_4(1-OLy:sNy+OLy,Nr,nSx,nSy)
                0063       _RL VE_STORE_1(1-OLy:sNy+OLy,Nr,nSx,nSy)
                0064       _RL VE_STORE_2(1-OLy:sNy+OLy,Nr,nSx,nSy)
                0065       _RL VE_STORE_3(1-OLy:sNy+OLy,Nr,nSx,nSy)
                0066       _RL VE_STORE_4(1-OLy:sNy+OLy,Nr,nSx,nSy)
                0067       _RL TE_STORE_1(1-OLy:sNy+OLy,Nr,nSx,nSy)
                0068       _RL TE_STORE_2(1-OLy:sNy+OLy,Nr,nSx,nSy)
                0069       _RL TE_STORE_3(1-OLy:sNy+OLy,Nr,nSx,nSy)
                0070       _RL TE_STORE_4(1-OLy:sNy+OLy,Nr,nSx,nSy)
                0071       _RL SE_STORE_1(1-OLy:sNy+OLy,Nr,nSx,nSy)
                0072       _RL SE_STORE_2(1-OLy:sNy+OLy,Nr,nSx,nSy)
                0073       _RL SE_STORE_3(1-OLy:sNy+OLy,Nr,nSx,nSy)
                0074       _RL SE_STORE_4(1-OLy:sNy+OLy,Nr,nSx,nSy)
                0075       _RL WE_STORE_1(1-OLy:sNy+OLy,Nr,nSx,nSy)
                0076       _RL WE_STORE_2(1-OLy:sNy+OLy,Nr,nSx,nSy)
                0077       _RL WE_STORE_3(1-OLy:sNy+OLy,Nr,nSx,nSy)
                0078       _RL WE_STORE_4(1-OLy:sNy+OLy,Nr,nSx,nSy)
                0079       _RL UW_STORE_1(1-OLy:sNy+OLy,Nr,nSx,nSy)
                0080       _RL UW_STORE_2(1-OLy:sNy+OLy,Nr,nSx,nSy)
                0081       _RL UW_STORE_3(1-OLy:sNy+OLy,Nr,nSx,nSy)
                0082       _RL UW_STORE_4(1-OLy:sNy+OLy,Nr,nSx,nSy)
                0083       _RL VW_STORE_1(1-OLy:sNy+OLy,Nr,nSx,nSy)
                0084       _RL VW_STORE_2(1-OLy:sNy+OLy,Nr,nSx,nSy)
                0085       _RL VW_STORE_3(1-OLy:sNy+OLy,Nr,nSx,nSy)
                0086       _RL VW_STORE_4(1-OLy:sNy+OLy,Nr,nSx,nSy)
                0087       _RL TW_STORE_1(1-OLy:sNy+OLy,Nr,nSx,nSy)
                0088       _RL TW_STORE_2(1-OLy:sNy+OLy,Nr,nSx,nSy)
                0089       _RL TW_STORE_3(1-OLy:sNy+OLy,Nr,nSx,nSy)
                0090       _RL TW_STORE_4(1-OLy:sNy+OLy,Nr,nSx,nSy)
                0091       _RL SW_STORE_1(1-OLy:sNy+OLy,Nr,nSx,nSy)
                0092       _RL SW_STORE_2(1-OLy:sNy+OLy,Nr,nSx,nSy)
                0093       _RL SW_STORE_3(1-OLy:sNy+OLy,Nr,nSx,nSy)
                0094       _RL SW_STORE_4(1-OLy:sNy+OLy,Nr,nSx,nSy)
                0095       _RL WW_STORE_1(1-OLy:sNy+OLy,Nr,nSx,nSy)
                0096       _RL WW_STORE_2(1-OLy:sNy+OLy,Nr,nSx,nSy)
                0097       _RL WW_STORE_3(1-OLy:sNy+OLy,Nr,nSx,nSy)
                0098       _RL WW_STORE_4(1-OLy:sNy+OLy,Nr,nSx,nSy)
                0099       _RL UN_STORE_1(1-OLx:sNx+OLx,Nr,nSx,nSy)
                0100       _RL UN_STORE_2(1-OLx:sNx+OLx,Nr,nSx,nSy)
                0101       _RL UN_STORE_3(1-OLx:sNx+OLx,Nr,nSx,nSy)
                0102       _RL UN_STORE_4(1-OLx:sNx+OLx,Nr,nSx,nSy)
                0103       _RL VN_STORE_1(1-OLx:sNx+OLx,Nr,nSx,nSy)
                0104       _RL VN_STORE_2(1-OLx:sNx+OLx,Nr,nSx,nSy)
                0105       _RL VN_STORE_3(1-OLx:sNx+OLx,Nr,nSx,nSy)
                0106       _RL VN_STORE_4(1-OLx:sNx+OLx,Nr,nSx,nSy)
                0107       _RL TN_STORE_1(1-OLx:sNx+OLx,Nr,nSx,nSy)
                0108       _RL TN_STORE_2(1-OLx:sNx+OLx,Nr,nSx,nSy)
                0109       _RL TN_STORE_3(1-OLx:sNx+OLx,Nr,nSx,nSy)
                0110       _RL TN_STORE_4(1-OLx:sNx+OLx,Nr,nSx,nSy)
                0111       _RL SN_STORE_1(1-OLx:sNx+OLx,Nr,nSx,nSy)
                0112       _RL SN_STORE_2(1-OLx:sNx+OLx,Nr,nSx,nSy)
                0113       _RL SN_STORE_3(1-OLx:sNx+OLx,Nr,nSx,nSy)
                0114       _RL SN_STORE_4(1-OLx:sNx+OLx,Nr,nSx,nSy)
                0115       _RL WN_STORE_1(1-OLx:sNx+OLx,Nr,nSx,nSy)
                0116       _RL WN_STORE_2(1-OLx:sNx+OLx,Nr,nSx,nSy)
                0117       _RL WN_STORE_3(1-OLx:sNx+OLx,Nr,nSx,nSy)
                0118       _RL WN_STORE_4(1-OLx:sNx+OLx,Nr,nSx,nSy)
                0119       _RL US_STORE_1(1-OLx:sNx+OLx,Nr,nSx,nSy)
                0120       _RL US_STORE_2(1-OLx:sNx+OLx,Nr,nSx,nSy)
                0121       _RL US_STORE_3(1-OLx:sNx+OLx,Nr,nSx,nSy)
                0122       _RL US_STORE_4(1-OLx:sNx+OLx,Nr,nSx,nSy)
                0123       _RL VS_STORE_1(1-OLx:sNx+OLx,Nr,nSx,nSy)
                0124       _RL VS_STORE_2(1-OLx:sNx+OLx,Nr,nSx,nSy)
                0125       _RL VS_STORE_3(1-OLx:sNx+OLx,Nr,nSx,nSy)
                0126       _RL VS_STORE_4(1-OLx:sNx+OLx,Nr,nSx,nSy)
                0127       _RL TS_STORE_1(1-OLx:sNx+OLx,Nr,nSx,nSy)
                0128       _RL TS_STORE_2(1-OLx:sNx+OLx,Nr,nSx,nSy)
                0129       _RL TS_STORE_3(1-OLx:sNx+OLx,Nr,nSx,nSy)
                0130       _RL TS_STORE_4(1-OLx:sNx+OLx,Nr,nSx,nSy)
                0131       _RL SS_STORE_1(1-OLx:sNx+OLx,Nr,nSx,nSy)
                0132       _RL SS_STORE_2(1-OLx:sNx+OLx,Nr,nSx,nSy)
                0133       _RL SS_STORE_3(1-OLx:sNx+OLx,Nr,nSx,nSy)
                0134       _RL SS_STORE_4(1-OLx:sNx+OLx,Nr,nSx,nSy)
                0135       _RL WS_STORE_1(1-OLx:sNx+OLx,Nr,nSx,nSy)
                0136       _RL WS_STORE_2(1-OLx:sNx+OLx,Nr,nSx,nSy)
                0137       _RL WS_STORE_3(1-OLx:sNx+OLx,Nr,nSx,nSy)
                0138       _RL WS_STORE_4(1-OLx:sNx+OLx,Nr,nSx,nSy)
                0139 
                0140 C     Phase speed arrays
                0141       COMMON /ORLANSKI_CVEL/ 
                0142      &      CVEL_UE,CVEL_VE,CVEL_TE,CVEL_SE,CVEL_WE,
                0143      &      CVEL_UW,CVEL_VW,CVEL_TW,CVEL_SW,CVEL_WW,
                0144      &      CVEL_UN,CVEL_VN,CVEL_TN,CVEL_SN,CVEL_WN,
                0145      &      CVEL_US,CVEL_VS,CVEL_TS,CVEL_SS,CVEL_WS
                0146 
                0147       _RL CVEL_UE(1-OLy:sNy+OLy,Nr,nSx,nSy)
                0148       _RL CVEL_VE(1-OLy:sNy+OLy,Nr,nSx,nSy)
                0149       _RL CVEL_TE(1-OLy:sNy+OLy,Nr,nSx,nSy)
                0150       _RL CVEL_SE(1-OLy:sNy+OLy,Nr,nSx,nSy)
                0151       _RL CVEL_WE(1-OLy:sNy+OLy,Nr,nSx,nSy)
                0152       _RL CVEL_UW(1-OLy:sNy+OLy,Nr,nSx,nSy)
                0153       _RL CVEL_VW(1-OLy:sNy+OLy,Nr,nSx,nSy)
                0154       _RL CVEL_TW(1-OLy:sNy+OLy,Nr,nSx,nSy)
                0155       _RL CVEL_SW(1-OLy:sNy+OLy,Nr,nSx,nSy)
                0156       _RL CVEL_WW(1-OLy:sNy+OLy,Nr,nSx,nSy)
                0157       _RL CVEL_UN(1-OLx:sNx+OLx,Nr,nSx,nSy)
                0158       _RL CVEL_VN(1-OLx:sNx+OLx,Nr,nSx,nSy)
                0159       _RL CVEL_TN(1-OLx:sNx+OLx,Nr,nSx,nSy)
                0160       _RL CVEL_SN(1-OLx:sNx+OLx,Nr,nSx,nSy)
                0161       _RL CVEL_WN(1-OLx:sNx+OLx,Nr,nSx,nSy)
                0162       _RL CVEL_US(1-OLx:sNx+OLx,Nr,nSx,nSy)
                0163       _RL CVEL_VS(1-OLx:sNx+OLx,Nr,nSx,nSy)
                0164       _RL CVEL_TS(1-OLx:sNx+OLx,Nr,nSx,nSy)
                0165       _RL CVEL_SS(1-OLx:sNx+OLx,Nr,nSx,nSy)
                0166       _RL CVEL_WS(1-OLx:sNx+OLx,Nr,nSx,nSy)
                0167 
                0168 #endif /* ALLOW_ORLANSKI */
[ 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
Valid CSS 2.1! Valid HTML 4.01!