Back to home page

MITgcm
 
 

    

File indexing completed on 2022-08-15 05:09:14 UTC

view on githubraw file Latest commit cf705a6c on 2022-08-14 22:40:32 UTC
33df9605c0 Jean*0001 C     ==================================================================
                0002 C     CTRL_GENARR.h
                0003 C     ==================================================================
c04085ad02 Patr*0004 
7bd66d7dc3 Patr*0005 #if (defined (ALLOW_GENARR2D_CONTROL) || defined (ALLOW_GENARR3D_CONTROL) || defined (ALLOW_GENTIM2D_CONTROL))
                0006 
33df9605c0 Jean*0007       COMMON /CONTROLFILES_CARR/
                0008      &     xx_genarr2d_file,
3145d51f22 Patr*0009      &     xx_genarr3d_file,
                0010      &     xx_genarr2d_weight,
513e004a84 Gael*0011      &     xx_genarr3d_weight,
                0012      &     xx_genarr2d_preproc, xx_genarr2d_preproc_c,
7b8b86ab99 Timo*0013      &     xx_genarr3d_preproc, xx_genarr3d_preproc_c
33df9605c0 Jean*0014       CHARACTER*(MAX_LEN_FNAM) xx_genarr2d_file(maxCtrlArr2D)
                0015       CHARACTER*(MAX_LEN_FNAM) xx_genarr3d_file(maxCtrlArr3D)
3145d51f22 Patr*0016       CHARACTER*(MAX_LEN_FNAM) xx_genarr2d_weight(maxCtrlArr2D)
                0017       CHARACTER*(MAX_LEN_FNAM) xx_genarr3d_weight(maxCtrlArr3D)
6b47d550f4 Mart*0018       CHARACTER*(MAX_LEN_FNAM)
513e004a84 Gael*0019      &         xx_genarr2d_preproc(maxCtrlProc,maxCtrlArr2D)
6b47d550f4 Mart*0020       CHARACTER*(MAX_LEN_FNAM)
513e004a84 Gael*0021      &         xx_genarr3d_preproc(maxCtrlProc,maxCtrlArr3D)
6b47d550f4 Mart*0022       CHARACTER*(MAX_LEN_FNAM)
513e004a84 Gael*0023      &         xx_genarr2d_preproc_c(maxCtrlProc,maxCtrlArr2D)
6b47d550f4 Mart*0024       CHARACTER*(MAX_LEN_FNAM)
513e004a84 Gael*0025      &         xx_genarr3d_preproc_c(maxCtrlProc,maxCtrlArr3D)
3145d51f22 Patr*0026 
                0027       COMMON /CONTROLFILES_RARR/
513e004a84 Gael*0028      &     genarr2dPrecond, genarr3dPrecond,
                0029      &     xx_genarr2d_bounds,xx_genarr3d_bounds,
                0030      &     xx_genarr2d_preproc_r,xx_genarr3d_preproc_r
3145d51f22 Patr*0031       _RL genarr2dPrecond(maxCtrlArr2D)
513e004a84 Gael*0032       _RL genarr3dPrecond(maxCtrlArr3D)
02585d30f9 Gael*0033       _RL xx_genarr2d_bounds(5,maxCtrlArr2D)
                0034       _RL xx_genarr3d_bounds(5,maxCtrlArr3D)
513e004a84 Gael*0035       _RL xx_genarr2d_preproc_r(maxCtrlProc,maxCtrlArr2D)
                0036       _RL xx_genarr3d_preproc_r(maxCtrlProc,maxCtrlArr3D)
02585d30f9 Gael*0037 
                0038       COMMON /CONTROLFILES_IARR/
513e004a84 Gael*0039      &     xx_genarr2d_preproc_i,xx_genarr3d_preproc_i
                0040       integer xx_genarr2d_preproc_i(maxCtrlProc,maxCtrlArr2D)
                0041       integer xx_genarr3d_preproc_i(maxCtrlProc,maxCtrlArr3D)
c04085ad02 Patr*0042 
7bd66d7dc3 Patr*0043       COMMON /CONTROLFILES_CTIM/
7b8b86ab99 Timo*0044      &     xx_gentim2d_file, xx_gentim2d_weight,
513e004a84 Gael*0045      &     xx_gentim2d_preproc, xx_gentim2d_preproc_c
7bd66d7dc3 Patr*0046       CHARACTER*(MAX_LEN_FNAM) xx_gentim2d_file(maxCtrlTim2D)
3145d51f22 Patr*0047       CHARACTER*(MAX_LEN_FNAM) xx_gentim2d_weight(maxCtrlTim2D)
513e004a84 Gael*0048       CHARACTER*(MAX_LEN_FNAM)
                0049      &         xx_gentim2d_preproc(maxCtrlProc,maxCtrlTim2D)
                0050       CHARACTER*(MAX_LEN_FNAM)
                0051      &         xx_gentim2d_preproc_c(maxCtrlProc,maxCtrlTim2D)
7bd66d7dc3 Patr*0052 
                0053       COMMON /CONTROLFILES_ITIM/
                0054      &     xx_gentim2d_startdate1,
                0055      &     xx_gentim2d_startdate2,
513e004a84 Gael*0056      &     xx_gentim2d_startdate,
                0057      &     xx_gentim2d_preproc_i
7bd66d7dc3 Patr*0058       INTEGER xx_gentim2d_startdate1(maxCtrlTim2D)
                0059       INTEGER xx_gentim2d_startdate2(maxCtrlTim2D)
                0060       INTEGER xx_gentim2d_startdate(4,maxCtrlTim2D)
513e004a84 Gael*0061       INTEGER xx_gentim2d_preproc_i(maxCtrlProc,maxCtrlTim2D)
7bd66d7dc3 Patr*0062 
                0063       COMMON /CONTROLFILES_RTIM/
513e004a84 Gael*0064      &     xx_gentim2d_period, gentim2dPrecond,
bd00ac563a Gael*0065      &     xx_gentim2d_preproc_r, xx_gentim2d_bounds
7bd66d7dc3 Patr*0066       _RL xx_gentim2d_period(maxCtrlTim2D)
3145d51f22 Patr*0067       _RL gentim2dPrecond(maxCtrlTim2D)
4d1f3cfa6a Gael*0068       _RL xx_gentim2d_preproc_r(maxCtrlProc,maxCtrlTim2D)
bd00ac563a Gael*0069       _RL xx_gentim2d_bounds(5,maxCtrlTim2D)
7bd66d7dc3 Patr*0070 
a87570e2e8 Gael*0071       COMMON /CONTROLFILES_LTIM/
                0072      &     xx_gentim2d_cumsum, xx_gentim2d_glosum
                0073       LOGICAL xx_gentim2d_cumsum(maxCtrlTim2D)
                0074       LOGICAL xx_gentim2d_glosum(maxCtrlTim2D)
                0075 
fa1c4e7ee9 Patr*0076       common /controlaux_gencost_r/
989cdae9b6 Gael*0077      &     objf_gentim2d,  num_gentim2d, mult_gentim2d,
bbd125616c Gael*0078      &     objf_genarr2d,  num_genarr2d, mult_genarr2d,
                0079      &     objf_genarr3d,  num_genarr3d, mult_genarr3d
                0080 
fa1c4e7ee9 Patr*0081       _RL  objf_gentim2d(nsx,nsy,maxCtrlTim2D)
989cdae9b6 Gael*0082       _RL  num_gentim2d(nsx,nsy,maxCtrlTim2D)
                0083       _RL  mult_gentim2d(maxCtrlTim2D)
bbd125616c Gael*0084       _RL  objf_genarr2d(nsx,nsy,maxCtrlArr2D)
                0085       _RL  num_genarr2d(nsx,nsy,maxCtrlArr2D)
                0086       _RL  mult_genarr2d(maxCtrlArr2D)
                0087       _RL  objf_genarr3d(nsx,nsy,maxCtrlArr3D)
                0088       _RL  num_genarr3d(nsx,nsy,maxCtrlArr3D)
                0089       _RL  mult_genarr3d(maxCtrlArr3D)
                0090 
                0091 #endif
                0092 
                0093 #ifdef ALLOW_GENARR2D_CONTROL
                0094       common /controlaux_genarr2d_r/
                0095      &                      wgenarr2d
                0096       _RL wgenarr2d(1-olx:snx+olx,1-oly:sny+oly,
                0097      &              nsx,nsy,maxCtrlArr2D)
                0098 #endif
fa1c4e7ee9 Patr*0099 
bbd125616c Gael*0100 #ifdef ALLOW_GENARR3D_CONTROL
                0101       common /controlaux_genarr3d_r/
                0102      &                      wgenarr3d
                0103       _RL wgenarr3d(1-olx:snx+olx,1-oly:sny+oly,
96a95c13e5 Gael*0104      &              nr,nsx,nsy,maxCtrlArr3D)
7bd66d7dc3 Patr*0105 #endif
                0106 
                0107 #ifdef ALLOW_GENTIM2D_CONTROL
                0108       common /controlaux_gentim2d_r/
                0109      &                      xx_gentim2d0,
e68dce4f06 Gael*0110      &                      xx_gentim2d1,
2c0b4e1122 Gael*0111      &                      xx_gentim2d,
e68dce4f06 Gael*0112      &                      wgentim2d
6b47d550f4 Mart*0113       _RL
7bd66d7dc3 Patr*0114      & xx_gentim2d0(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy,maxCtrlTim2D)
6b47d550f4 Mart*0115       _RL
7bd66d7dc3 Patr*0116      & xx_gentim2d1(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy,maxCtrlTim2D)
e68dce4f06 Gael*0117       _RL
2c0b4e1122 Gael*0118      & xx_gentim2d(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy,maxCtrlTim2D)
                0119       _RL
e68dce4f06 Gael*0120      & wgentim2d(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy,maxCtrlTim2D)
7bd66d7dc3 Patr*0121 #endif
                0122 
c04085ad02 Patr*0123 CEH3 ;;; Local Variables: ***
                0124 CEH3 ;;; mode:fortran ***
                0125 CEH3 ;;; 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
Valid CSS 2.1! Valid HTML 4.01!