File indexing completed on 2021-04-08 05:12:34 UTC
view on githubraw file Latest commit ba0b0470 on 2021-04-08 01:06:32 UTC
87ea84cac6 Jean*0001 #ifdef ALLOW_THSICE
0002
0003
0004
0005
0006
0007
0008
0009
0010
0011
0012
0013
0014
0015
bd8a00c1fc Jean*0016
0017
87ea84cac6 Jean*0018
0019 COMMON /THSICE_VARS/
0020 & iceMask, iceHeight, snowHeight,
0021 & Tsrf, Tice1, Tice2,
0022 & Qice1, Qice2, snowAge
0023
0024 _RL iceMask(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
0025 _RL iceHeight (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
0026 _RL snowHeight(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
0027 _RL Tsrf (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
0028 _RL Tice1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
0029 _RL Tice2 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
0030 _RL Qice1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
0031 _RL Qice2 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
0032 _RL snowAge(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
0033
0034
0035
0036
a4e6fa7055 Jean*0037
ce354ad541 Jean*0038
7269783f6f Jean*0039
49c48d1136 Jean*0040
7269783f6f Jean*0041
0042
0043
0044
0045
de836be2bc Jean*0046
87ea84cac6 Jean*0047 COMMON / THSICE_FLUX /
0048 & sHeating, flxCndBt,
c8bafbe9ad Jean*0049 & siceAlb, icAlbNIR,
de836be2bc Jean*0050 & icFlxSW, icFlxAtm, icFrwAtm,
0051 & adjustFrW
87ea84cac6 Jean*0052
0053 _RL sHeating(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
0054 _RL flxCndBt(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
a4e6fa7055 Jean*0055 _RL siceAlb (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
ce354ad541 Jean*0056 _RL icAlbNIR(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
7269783f6f Jean*0057 _RL icFlxSW (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
0058 _RL icFlxAtm(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
0059 _RL icFrwAtm(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
de836be2bc Jean*0060 _RL adjustFrW
87ea84cac6 Jean*0061
f6439efa9f Jean*0062
0063
ba0b047096 Mart*0064
f6439efa9f Jean*0065
0066
0067
0068
0069
0070
0071
0072 COMMON /THSICE_DYN_R/
0073 & oceFWfx, oceSflx, oceQnet
0074
0075 _RL oceFWfx(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
0076 _RL oceSflx(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
0077 _RL oceQnet(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
0078
87ea84cac6 Jean*0079
0080
0081
ba0b047096 Mart*0082
87ea84cac6 Jean*0083
0084 COMMON / THSICE_OCEMXLAYER /
0085 & hOceMxL, tOceMxL, sOceMxL, v2ocMxL
0086
0087 _RL hOceMxL(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
0088 _RL tOceMxL(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
0089 _RL sOceMxL(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
0090 _RL v2ocMxL(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
0091
0092 #endif /* ALLOW_THSICE */
df4e8f7bcf Ed H*0093
0094
0095
0096