Back to home page

MITgcm
 
 

    

File indexing completed on 2022-07-07 05:09:08 UTC

view on githubraw file Latest commit 94a8024b on 2022-07-06 19:35:20 UTC
0a9ee580a2 Patr*0001 C--   These common blocks are extracted from the
                0002 C--   automatically created tangent linear code.
                0003 C--   You need to make sure that they are up-to-date
                0004 C--   (i.e. in right order), and customize them
                0005 C--   accordingly.
                0006 C--
                0007 C--   heimbach@mit.edu 11-Jan-2001
d1d6b963cf Patr*0008 
                0009 #ifdef ALLOW_AUTODIFF_MONITOR
                0010 
99a99bb452 Jean*0011       COMMON /g_DYNVARS_R/
                0012      &                     g_EtaN,
                0013      &                     g_Uvel, g_Vvel, g_Wvel,
                0014      &                     g_Theta, g_Salt,
                0015      &                     g_Gu, g_Gv, g_Gt, g_Gs,
507fbacc22 Gael*0016 #ifdef ALLOW_ADAMSBASHFORTH_3
99a99bb452 Jean*0017      &                     g_GuNm, g_GvNm, g_GtNm, g_GsNm
507fbacc22 Gael*0018 #else
99a99bb452 Jean*0019      &                     g_GuNm1, g_GvNm1, g_GtNm1, g_GsNm1
507fbacc22 Gael*0020 #endif
99a99bb452 Jean*0021       _RL g_Etan(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0022       _RL g_Gs(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
                0023       _RL g_Gt(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
                0024       _RL g_Gu(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
                0025       _RL g_Gv(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
                0026       _RL g_Salt(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
                0027       _RL g_Theta(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
                0028       _RL g_Uvel(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
                0029       _RL g_Vvel(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
                0030       _RL g_Wvel(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
507fbacc22 Gael*0031 #ifdef ALLOW_ADAMSBASHFORTH_3
99a99bb452 Jean*0032       _RL g_GtNm(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy,2)
                0033       _RL g_GsNm(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy,2)
                0034       _RL g_GuNm(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy,2)
                0035       _RL g_GvNm(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy,2)
507fbacc22 Gael*0036 #else
99a99bb452 Jean*0037       _RL g_GtNm1(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
                0038       _RL g_GsNm1(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
                0039       _RL g_GuNm1(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
                0040       _RL g_GvNm1(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
507fbacc22 Gael*0041 #endif
4813417b41 Patr*0042 
99a99bb452 Jean*0043       COMMON /g_DYNVARS_R_2/
                0044      &                     g_EtaH
                0045       _RL g_EtaH(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
832d5360e3 Patr*0046 
751c7f53a4 Patr*0047 #ifdef ALLOW_AUTODIFF_MONITOR_DIAG
99a99bb452 Jean*0048 C Special Care: more forward vars in FWD common block ; check TAF TL-code !
                0049       COMMON /g_DYNVARS_DIAG/
                0050      &                     g_RhoInSitu, g_TotPhiHyd
                0051       _RL g_RhoInSitu(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
                0052       _RL g_TotPhiHyd(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
751c7f53a4 Patr*0053 #endif
                0054 
99a99bb452 Jean*0055 #ifdef ALLOW_DIFFKR_CONTROL
                0056       COMMON /g_DYNVARS_DIFFKR/
                0057      &                       g_diffKr
                0058       _RL  g_diffKr (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
0a9ee580a2 Patr*0059 #endif
4813417b41 Patr*0060 
99a99bb452 Jean*0061 #ifdef ALLOW_CD_CODE
                0062       COMMON /g_DYNVARS_CD/
                0063      &                      g_UvelD, g_VvelD,
                0064      &                      g_EtaNm1,
                0065      &                      g_Unm1, g_Vnm1
                0066       _RL g_UvelD(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
                0067       _RL g_VvelD(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
                0068       _RL g_EtaNm1(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0069       _RL g_Unm1(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
                0070       _RL g_Vnm1(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
6b0737411d Patr*0071 #endif
                0072 
99a99bb452 Jean*0073       COMMON /g_FFIELDS_fu/ g_fu
                0074       COMMON /g_FFIELDS_fv/ g_fv
                0075       COMMON /g_FFIELDS_Qnet/ g_Qnet
                0076       COMMON /g_FFIELDS_Qsw/ g_Qsw
                0077       COMMON /g_FFIELDS_EmPmR/ g_EmPmR
                0078       COMMON /g_FFIELDS_saltFlux/ g_saltFlux
                0079       COMMON /g_FFIELDS_SST/ g_SST
                0080       COMMON /g_FFIELDS_SSS/ g_SSS
                0081       COMMON /g_FFIELDS_lambdaThetaClimRelax/ g_lambdaThetaClimRelax
                0082       COMMON /g_FFIELDS_lambdaSaltClimRelax/ g_lambdaSaltClimRelax
96243313d2 Patr*0083       _RS  g_fu       (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0084       _RS  g_fv       (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0085       _RS  g_Qnet     (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0086       _RS  g_Qsw      (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0087       _RS  g_EmPmR    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0088       _RS  g_saltFlux (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0089       _RS  g_SST      (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0090       _RS  g_SSS      (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0091       _RS  g_lambdaThetaClimRelax
                0092      &    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0093       _RS  g_lambdaSaltClimRelax
                0094      &    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
57f8365940 Jean*0095 
96243313d2 Patr*0096 #ifdef ATMOSPHERIC_LOADING
99a99bb452 Jean*0097       COMMON /g_FFIELDS_pload/ g_pload
                0098       COMMON /g_FFIELDS_sIceLoad/ g_sIceLoad
96243313d2 Patr*0099       _RS  g_pload    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0100       _RS  g_sIceLoad (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0101 #endif
d1d6b963cf Patr*0102 
5116830959 Patr*0103 #ifdef ALLOW_KAPGM_CONTROL
94a8024bbe Jean*0104       COMMON /g_GM_INP_K3D_GM/
5116830959 Patr*0105      &                       g_kapgm
                0106       _RL  g_kapgm (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
                0107 #endif
7e2482cabc Gael*0108 #ifdef ALLOW_KAPREDI_CONTROL
94a8024bbe Jean*0109       COMMON /g_GM_INP_K3D_REDI/
7e2482cabc Gael*0110      &                       g_kapredi
                0111       _RL  g_kapredi (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
759aceba5f Jean*0112 #endif
9274434acc Jean*0113 #ifdef ALLOW_BOTTOMDRAG_CONTROL
99a99bb452 Jean*0114       COMMON /g_CTRL_FIELDS_BOTTOMDRAG/
bad79706a2 Gael*0115      &                       g_bottomdragfld
                0116       _RL  g_bottomdragfld (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0117 #endif
d16bbb9f5b Patr*0118 
0a9ee580a2 Patr*0119 #ifdef ALLOW_EXF
99a99bb452 Jean*0120       _RL g_ustress(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0121       _RL g_vstress(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0122       COMMON /g_exf_stress_r/ g_ustress, g_vstress
                0123       _RL g_uwind     (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0124       _RL g_vwind     (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0125       COMMON /g_exf_atm_wind_r/ g_uwind, g_vwind
                0126       _RL g_hflux(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0127       _RL g_sflux(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0128       COMMON /g_exf_netflux_r/ g_hflux, g_sflux
34a7c76e08 Patr*0129 # ifdef ALLOW_ATM_TEMP
99a99bb452 Jean*0130       _RL g_atemp     (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0131       _RL g_aqh       (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0132       _RL g_hs        (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0133       _RL g_hl        (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0134       _RL g_lwflux    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0135       _RL g_evap      (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0136       _RL g_precip    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0137       _RL g_snowprecip(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0138       COMMON /g_exf_atm_temp_r/ g_atemp, g_aqh, g_hs, g_hl,
57f8365940 Jean*0139      &  g_lwflux, g_evap, g_precip, g_snowprecip
                0140 # endif /* ALLOW_ATM_TEMP */
99a99bb452 Jean*0141 # if defined(ALLOW_ATM_TEMP) || defined(SHORTWAVE_HEATING)
                0142       _RL g_swflux    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0143       COMMON /g_exf_swflux_r/ g_swflux
                0144 # endif
34a7c76e08 Patr*0145 # ifdef ALLOW_DOWNWARD_RADIATION
99a99bb452 Jean*0146       _RL g_swdown    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0147       _RL g_lwdown    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0148       COMMON /g_exf_rad_down_r/ g_swdown, g_lwdown
34a7c76e08 Patr*0149 # endif
b56b667948 Patr*0150 # ifdef ALLOW_CLIMSST_RELAXATION
99a99bb452 Jean*0151       _RL g_climsst(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0152       COMMON /g_exf_clim_sst_r/ g_climsst
b56b667948 Patr*0153 # endif
                0154 # ifdef ALLOW_CLIMSSS_RELAXATION
99a99bb452 Jean*0155       _RL g_climsss(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0156       COMMON /g_exf_clim_sss_r/ g_climsss
b56b667948 Patr*0157 # endif
57f8365940 Jean*0158 #endif /* ALLOW_EXF */
0a9ee580a2 Patr*0159 
f2ec7cf2fc Patr*0160 #ifdef ALLOW_SEAICE
99a99bb452 Jean*0161       _RL g_area  (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0162       _RL g_heff  (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0163       _RL g_hsnow (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0164       _RL g_uice  (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0165       _RL g_vice  (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0166       COMMON /g_SEAICE_DYNVARS_1/
50f21b0e6c Mart*0167      &     g_area, g_heff, g_hsnow, g_uice, g_vice
f2ec7cf2fc Patr*0168 #endif
                0169 
1c2b1fa3bc Mart*0170 #ifdef ALLOW_DEPTH_CONTROL
                0171       _RS g_hfacc(1-OLx:sNx+OLx,1-OLy:sNy+OLy,1:nr,nSx,nSy)
                0172       _RS g_hfacs(1-OLx:sNx+OLx,1-OLy:sNy+OLy,1:nr,nSx,nSy)
                0173       _RS g_hfacw(1-OLx:sNx+OLx,1-OLy:sNy+OLy,1:nr,nSx,nSy)
                0174       _RS g_recip_hfacc(1-OLx:sNx+OLx,1-OLy:sNy+OLy,1:nr,nSx,nSy)
                0175       _RS g_recip_hfacs(1-OLx:sNx+OLx,1-OLy:sNy+OLy,1:nr,nSx,nSy)
                0176       _RS g_recip_hfacw(1-OLx:sNx+OLx,1-OLy:sNy+OLy,1:nr,nSx,nSy)
                0177       _RS g_r_low     (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0178       _RS g_recip_rcol(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0179       common /g_grid_var_rs/
                0180      &     g_hfacc, g_hfacw, g_hfacs,
                0181      &     g_recip_hfacc, g_recip_hfacw, g_recip_hfacs,
                0182      &     g_r_low, g_recip_rcol
                0183 #endif /* ALLOW_DEPTH_CONTROL */
                0184 
e5b217c517 Patr*0185 #endif /* ALLOW_AUTODIFF_MONITOR */
[ 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!