54 |
_RL g_vnm1(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy) |
_RL g_vnm1(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy) |
55 |
#endif |
#endif |
56 |
|
|
57 |
common /g_ffields/ |
COMMON /g_ffields_fu/ g_fu |
58 |
& g_fu, g_fv |
COMMON /g_ffields_fv/ g_fv |
59 |
& , g_qnet, g_empmr |
COMMON /g_ffields_Qnet/ g_Qnet |
60 |
cph & , g_sst, g_sss |
COMMON /g_ffields_Qsw/ g_Qsw |
61 |
_RL g_fu(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |
COMMON /g_ffields_dQdT/ g_dQdT |
62 |
_RL g_fv(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |
COMMON /g_ffields_EmPmR/ g_EmPmR |
63 |
_RL g_qnet(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |
COMMON /g_ffields_saltFlux/ g_saltFlux |
64 |
_RL g_empmr(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |
COMMON /g_ffields_SST/ g_SST |
65 |
cph _RL g_sst(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |
COMMON /g_ffields_SSS/ g_SSS |
66 |
cph _RL g_sss(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |
COMMON /g_ffields_lambdaThetaClimRelax/ g_lambdaThetaClimRelax |
67 |
|
COMMON /g_ffields_lambdaSaltClimRelax/ g_lambdaSaltClimRelax |
68 |
|
#ifdef ATMOSPHERIC_LOADING |
69 |
|
COMMON /g_ffields_pload/ g_pload |
70 |
|
COMMON /g_ffields_sIceLoad/ g_sIceLoad |
71 |
|
#endif |
72 |
|
|
73 |
|
_RS g_fu (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
74 |
|
_RS g_fv (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
75 |
|
_RS g_Qnet (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
76 |
|
_RS g_Qsw (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
77 |
|
_RS g_dQdT (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
78 |
|
_RS g_EmPmR (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
79 |
|
_RS g_saltFlux (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
80 |
|
_RS g_SST (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
81 |
|
_RS g_SSS (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
82 |
|
_RS g_lambdaThetaClimRelax |
83 |
|
& (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
84 |
|
_RS g_lambdaSaltClimRelax |
85 |
|
& (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
86 |
|
#ifdef ATMOSPHERIC_LOADING |
87 |
|
_RS g_pload (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
88 |
|
_RS g_sIceLoad (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
89 |
|
#endif |
90 |
|
|
91 |
#ifdef ALLOW_DIFFKR_CONTROL |
#ifdef ALLOW_DIFFKR_CONTROL |
92 |
COMMON /G_DYNVARS_DIFFKR/ |
COMMON /G_DYNVARS_DIFFKR/ |