| File |
Line number |
Procedure |
Code |
|
./pkg/gmredi/gmredi_write_pickup.F |
114 |
GMREDI_WRITE_PICKUP |
IF (m.LE.listDim) wrFldList(m) = fieldname |
|
./pkg/gmredi/gmredi_write_pickup.F |
134 |
GMREDI_WRITE_PICKUP |
IF (m.LE.listDim) wrFldList(m) = fieldname |
|
./pkg/gmredi/gmredi_write_pickup.F |
147 |
GMREDI_WRITE_PICKUP |
IF (m.LE.listDim) wrFldList(m) = fieldname |
|
./pkg/gmredi/gmredi_write_pickup.F |
150 |
GMREDI_WRITE_PICKUP |
IF ( nWrFlds.GT.listDim ) THEN |
|
./pkg/gmredi/gmredi_write_pickup.F |
155 |
GMREDI_WRITE_PICKUP |
& 'field-list dimension (listDim=',listDim,') too small' |
|
./pkg/gmredi/gmredi_write_pickup.F |
58 |
GMREDI_WRITE_PICKUP |
INTEGER listDim, nWrFlds |
|
./pkg/gmredi/gmredi_write_pickup.F |
59 |
GMREDI_WRITE_PICKUP |
PARAMETER( listDim = 2+2*GM_K3D_NModes ) |
|
./pkg/gmredi/gmredi_write_pickup.F |
60 |
GMREDI_WRITE_PICKUP |
CHARACTER*(8) wrFldList(listDim) |
|
./pkg/gmredi/gmredi_write_pickup.F |
95 |
GMREDI_WRITE_PICKUP |
IF (m.LE.listDim) wrFldList(m) = fieldname |
|
./pkg/mypackage/mypackage_write_pickup.F |
106 |
MYPACKAGE_WRITE_PICKUP |
IF (j.LE.listDim) wrFldList(j) = 'myPaSur1' |
|
./pkg/mypackage/mypackage_write_pickup.F |
112 |
MYPACKAGE_WRITE_PICKUP |
IF (j.LE.listDim) wrFldList(j) = 'myPaSur2' |
|
./pkg/mypackage/mypackage_write_pickup.F |
117 |
MYPACKAGE_WRITE_PICKUP |
IF ( nWrFlds.GT.listDim ) THEN |
|
./pkg/mypackage/mypackage_write_pickup.F |
122 |
MYPACKAGE_WRITE_PICKUP |
& 'field-list dimension (listDim=',listDim,') too small' |
|
./pkg/mypackage/mypackage_write_pickup.F |
59 |
MYPACKAGE_WRITE_PICKUP |
INTEGER listDim, nWrFlds |
|
./pkg/mypackage/mypackage_write_pickup.F |
60 |
MYPACKAGE_WRITE_PICKUP |
PARAMETER( listDim = 12 ) |
|
./pkg/mypackage/mypackage_write_pickup.F |
61 |
MYPACKAGE_WRITE_PICKUP |
CHARACTER*(8) wrFldList(listDim) |
|
./pkg/mypackage/mypackage_write_pickup.F |
81 |
MYPACKAGE_WRITE_PICKUP |
IF (j.LE.listDim) wrFldList(j) = 'myPaSta1' |
|
./pkg/mypackage/mypackage_write_pickup.F |
86 |
MYPACKAGE_WRITE_PICKUP |
IF (j.LE.listDim) wrFldList(j) = 'myPaSta2' |
|
./pkg/mypackage/mypackage_write_pickup.F |
91 |
MYPACKAGE_WRITE_PICKUP |
IF (j.LE.listDim) wrFldList(j) = 'myPaStaU' |
|
./pkg/mypackage/mypackage_write_pickup.F |
95 |
MYPACKAGE_WRITE_PICKUP |
IF (j.LE.listDim) wrFldList(j) = 'myPaStaV' |
|
./pkg/ptracers/ptracers_write_pickup.F |
139 |
PTRACERS_WRITE_PICKUP |
IF (j.LE.listDim) |
|
./pkg/ptracers/ptracers_write_pickup.F |
151 |
PTRACERS_WRITE_PICKUP |
IF ( j.LE.listDim .AND. PTRACERS_AdamsBashGtr(iTracer) ) |
|
./pkg/ptracers/ptracers_write_pickup.F |
153 |
PTRACERS_WRITE_PICKUP |
IF ( j.LE.listDim .AND. PTRACERS_AdamsBash_Tr(iTracer) ) |
|
./pkg/ptracers/ptracers_write_pickup.F |
161 |
PTRACERS_WRITE_PICKUP |
IF ( nWrFlds.GT.listDim ) THEN |
|
./pkg/ptracers/ptracers_write_pickup.F |
166 |
PTRACERS_WRITE_PICKUP |
& 'field-list dimension (listDim=',listDim,') too small' |
|
./pkg/ptracers/ptracers_write_pickup.F |
63 |
PTRACERS_WRITE_PICKUP |
INTEGER listDim, nWrFlds |
|
./pkg/ptracers/ptracers_write_pickup.F |
64 |
PTRACERS_WRITE_PICKUP |
PARAMETER( listDim = 3*PTRACERS_num ) |
|
./pkg/ptracers/ptracers_write_pickup.F |
65 |
PTRACERS_WRITE_PICKUP |
CHARACTER*(8) wrFldList(listDim) |
|
./pkg/seaice/seaice_write_pickup.F |
106 |
SEAICE_WRITE_PICKUP |
IF (j.LE.listDim) wrFldList(j) = 'siTICES ' |
|
./pkg/seaice/seaice_write_pickup.F |
113 |
SEAICE_WRITE_PICKUP |
IF (j.LE.listDim) wrFldList(j) = 'siTICE ' |
|
./pkg/seaice/seaice_write_pickup.F |
120 |
SEAICE_WRITE_PICKUP |
IF (j.LE.listDim) wrFldList(j) = 'siAREA ' |
|
./pkg/seaice/seaice_write_pickup.F |
124 |
SEAICE_WRITE_PICKUP |
IF (j.LE.listDim) wrFldList(j) = 'siHEFF ' |
|
./pkg/seaice/seaice_write_pickup.F |
128 |
SEAICE_WRITE_PICKUP |
IF (j.LE.listDim) wrFldList(j) = 'siHSNOW ' |
|
./pkg/seaice/seaice_write_pickup.F |
136 |
SEAICE_WRITE_PICKUP |
IF (j.LE.listDim) wrFldList(j) = 'siHSALT ' |
|
./pkg/seaice/seaice_write_pickup.F |
146 |
SEAICE_WRITE_PICKUP |
IF (j.LE.listDim) wrFldList(j) = fldName |
|
./pkg/seaice/seaice_write_pickup.F |
155 |
SEAICE_WRITE_PICKUP |
IF (j.LE.listDim) wrFldList(j) = 'siUICE ' |
|
./pkg/seaice/seaice_write_pickup.F |
160 |
SEAICE_WRITE_PICKUP |
IF (j.LE.listDim) wrFldList(j) = 'siVICE ' |
|
./pkg/seaice/seaice_write_pickup.F |
166 |
SEAICE_WRITE_PICKUP |
IF (j.LE.listDim) wrFldList(j) = 'siUicNm1' |
|
./pkg/seaice/seaice_write_pickup.F |
171 |
SEAICE_WRITE_PICKUP |
IF (j.LE.listDim) wrFldList(j) = 'siVicNm1' |
|
./pkg/seaice/seaice_write_pickup.F |
179 |
SEAICE_WRITE_PICKUP |
IF (j.LE.listDim) wrFldList(j) = 'siSigm1 ' |
|
./pkg/seaice/seaice_write_pickup.F |
185 |
SEAICE_WRITE_PICKUP |
IF (j.LE.listDim) wrFldList(j) = 'siSigm2 ' |
|
./pkg/seaice/seaice_write_pickup.F |
191 |
SEAICE_WRITE_PICKUP |
IF (j.LE.listDim) wrFldList(j) = 'siSigm12' |
|
./pkg/seaice/seaice_write_pickup.F |
196 |
SEAICE_WRITE_PICKUP |
IF ( nWrFlds.GT.listDim ) THEN |
|
./pkg/seaice/seaice_write_pickup.F |
201 |
SEAICE_WRITE_PICKUP |
& 'field-list dimension (listDim=',listDim,') too small' |
|
./pkg/seaice/seaice_write_pickup.F |
59 |
SEAICE_WRITE_PICKUP |
INTEGER listDim, nWrFlds |
|
./pkg/seaice/seaice_write_pickup.F |
60 |
SEAICE_WRITE_PICKUP |
PARAMETER( listDim = 20 ) |
|
./pkg/seaice/seaice_write_pickup.F |
61 |
SEAICE_WRITE_PICKUP |
CHARACTER*(8) wrFldList(listDim) |
|
./pkg/seaice/seaice_write_pickup.F |
87 |
SEAICE_WRITE_PICKUP |
IF (j.LE.listDim) wrFldList(j) = 'siTICES ' |
|
./pkg/seaice/seaice_write_pickup.F |
90 |
SEAICE_WRITE_PICKUP |
IF (j.LE.listDim) wrFldList(j) = 'siAREAn ' |
|
./pkg/seaice/seaice_write_pickup.F |
93 |
SEAICE_WRITE_PICKUP |
IF (j.LE.listDim) wrFldList(j) = 'siHEFFn ' |
|
./pkg/seaice/seaice_write_pickup.F |
96 |
SEAICE_WRITE_PICKUP |
IF (j.LE.listDim) wrFldList(j) = 'siHSNOWn' |
|
./pkg/streamice/streamice_write_pickup.F |
101 |
STREAMICE_WRITE_PICKUP |
IF (j.LE.listDim) wrFldList(j) = 'SI_uvel ' |
|
./pkg/streamice/streamice_write_pickup.F |
107 |
STREAMICE_WRITE_PICKUP |
IF (j.LE.listDim) wrFldList(j) = 'SI_vvel ' |
|
./pkg/streamice/streamice_write_pickup.F |
113 |
STREAMICE_WRITE_PICKUP |
IF (j.LE.listDim) wrFldList(j) = 'SI_thick' |
|
./pkg/streamice/streamice_write_pickup.F |
119 |
STREAMICE_WRITE_PICKUP |
IF (j.LE.listDim) wrFldList(j) = 'SI_betaF' |
|
./pkg/streamice/streamice_write_pickup.F |
125 |
STREAMICE_WRITE_PICKUP |
IF (j.LE.listDim) wrFldList(j) = 'SI_visc ' |
|
./pkg/streamice/streamice_write_pickup.F |
132 |
STREAMICE_WRITE_PICKUP |
IF (j.LE.listDim) wrFldList(j) = 'SI_taubx' |
|
./pkg/streamice/streamice_write_pickup.F |
138 |
STREAMICE_WRITE_PICKUP |
IF (j.LE.listDim) wrFldList(j) = 'SI_tauby' |
|
./pkg/streamice/streamice_write_pickup.F |
149 |
STREAMICE_WRITE_PICKUP |
IF ( nWrFlds.GT.listDim ) THEN |
|
./pkg/streamice/streamice_write_pickup.F |
154 |
STREAMICE_WRITE_PICKUP |
& 'field-list dimension (listDim=',listDim,') too small' |
|
./pkg/streamice/streamice_write_pickup.F |
57 |
STREAMICE_WRITE_PICKUP |
INTEGER listDim, nWrFlds |
|
./pkg/streamice/streamice_write_pickup.F |
58 |
STREAMICE_WRITE_PICKUP |
PARAMETER( listDim = 12 ) |
|
./pkg/streamice/streamice_write_pickup.F |
59 |
STREAMICE_WRITE_PICKUP |
CHARACTER*(8) wrFldList(listDim) |
|
./pkg/streamice/streamice_write_pickup.F |
79 |
STREAMICE_WRITE_PICKUP |
IF (j.LE.listDim) wrFldList(j) = 'visc3d ' |
|
./pkg/streamice/streamice_write_pickup.F |
89 |
STREAMICE_WRITE_PICKUP |
IF (j.LE.listDim) wrFldList(j) = 'SI_area ' |
|
./pkg/streamice/streamice_write_pickup.F |
95 |
STREAMICE_WRITE_PICKUP |
IF (j.LE.listDim) wrFldList(j) = 'SI_hmask' |
|
./model/src/write_pickup.F |
120 |
WRITE_PICKUP |
IF (j.LE.listDim) wrFldList(j) = 'Uvel ' |
|
./model/src/write_pickup.F |
123 |
WRITE_PICKUP |
IF (j.LE.listDim) wrFldList(j) = 'Vvel ' |
|
./model/src/write_pickup.F |
129 |
WRITE_PICKUP |
IF (j.LE.listDim) wrFldList(j) = 'Umean ' |
|
./model/src/write_pickup.F |
132 |
WRITE_PICKUP |
IF (j.LE.listDim) wrFldList(j) = 'Vmean ' |
|
./model/src/write_pickup.F |
138 |
WRITE_PICKUP |
IF (j.LE.listDim) wrFldList(j) = 'Theta ' |
|
./model/src/write_pickup.F |
141 |
WRITE_PICKUP |
IF (j.LE.listDim) wrFldList(j) = 'Salt ' |
|
./model/src/write_pickup.F |
152 |
WRITE_PICKUP |
IF (j.LE.listDim) wrFldList(j) = 'GuNm1 ' |
|
./model/src/write_pickup.F |
158 |
WRITE_PICKUP |
IF (j.LE.listDim) wrFldList(j) = 'GuNm2 ' |
|
./model/src/write_pickup.F |
165 |
WRITE_PICKUP |
IF (j.LE.listDim) wrFldList(j) = 'GvNm1 ' |
|
./model/src/write_pickup.F |
171 |
WRITE_PICKUP |
IF (j.LE.listDim) wrFldList(j) = 'GvNm2 ' |
|
./model/src/write_pickup.F |
180 |
WRITE_PICKUP |
IF (j.LE.listDim) THEN |
|
./model/src/write_pickup.F |
189 |
WRITE_PICKUP |
IF (j.LE.listDim) THEN |
|
./model/src/write_pickup.F |
201 |
WRITE_PICKUP |
IF (j.LE.listDim) THEN |
|
./model/src/write_pickup.F |
210 |
WRITE_PICKUP |
IF (j.LE.listDim) THEN |
|
./model/src/write_pickup.F |
223 |
WRITE_PICKUP |
IF (j.LE.listDim) wrFldList(j) = 'GwNm1 ' |
|
./model/src/write_pickup.F |
229 |
WRITE_PICKUP |
IF (j.LE.listDim) wrFldList(j) = 'GwNm2 ' |
|
./model/src/write_pickup.F |
237 |
WRITE_PICKUP |
IF (j.LE.listDim) wrFldList(j) = 'GuNm1 ' |
|
./model/src/write_pickup.F |
240 |
WRITE_PICKUP |
IF (j.LE.listDim) wrFldList(j) = 'GvNm1 ' |
|
./model/src/write_pickup.F |
245 |
WRITE_PICKUP |
IF (j.LE.listDim) THEN |
|
./model/src/write_pickup.F |
253 |
WRITE_PICKUP |
IF (j.LE.listDim) THEN |
|
./model/src/write_pickup.F |
262 |
WRITE_PICKUP |
IF (j.LE.listDim) wrFldList(j) = 'GwNm1 ' |
|
./model/src/write_pickup.F |
271 |
WRITE_PICKUP |
IF (j.LE.listDim) wrFldList(j) = 'PhiHyd ' |
|
./model/src/write_pickup.F |
277 |
WRITE_PICKUP |
IF (j.LE.listDim) wrFldList(j) = 'Phi_NHyd' |
|
./model/src/write_pickup.F |
285 |
WRITE_PICKUP |
IF (j.LE.listDim) wrFldList(j) = 'AddMass ' |
|
./model/src/write_pickup.F |
294 |
WRITE_PICKUP |
IF (j.LE.listDim) wrFldList(j) = 'EtaN ' |
|
./model/src/write_pickup.F |
300 |
WRITE_PICKUP |
IF (j.LE.listDim) wrFldList(j) = 'dPhiNH ' |
|
./model/src/write_pickup.F |
308 |
WRITE_PICKUP |
IF (j.LE.listDim) wrFldList(j) = 'dEtaHdt ' |
|
./model/src/write_pickup.F |
316 |
WRITE_PICKUP |
IF (j.LE.listDim) wrFldList(j) = 'EtaH ' |
|
./model/src/write_pickup.F |
321 |
WRITE_PICKUP |
IF ( nWrFlds.GT.listDim ) THEN |
|
./model/src/write_pickup.F |
326 |
WRITE_PICKUP |
& 'field-list dimension (listDim=',listDim,') too small' |
|
./model/src/write_pickup.F |
73 |
WRITE_PICKUP |
INTEGER listDim, nWrFlds, n3D |
|
./model/src/write_pickup.F |
74 |
WRITE_PICKUP |
PARAMETER( listDim = 20 ) |
|
./model/src/write_pickup.F |
75 |
WRITE_PICKUP |
CHARACTER*(8) wrFldList(listDim) |
|
./model/src/write_pickup.F |
93 |
WRITE_PICKUP |
DO j=1,listDim |
|
./pkg/atm_phys/atm_phys_write_pickup.F |
59 |
ATM_PHYS_WRITE_PICKUP |
INTEGER listDim, nWrFlds |
|
./pkg/atm_phys/atm_phys_write_pickup.F |
60 |
ATM_PHYS_WRITE_PICKUP |
PARAMETER( listDim = 12 ) |
|
./pkg/atm_phys/atm_phys_write_pickup.F |
61 |
ATM_PHYS_WRITE_PICKUP |
CHARACTER*(8) wrFldList(listDim) |
|
./pkg/atm_phys/atm_phys_write_pickup.F |
83 |
ATM_PHYS_WRITE_PICKUP |
IF (j.LE.listDim) wrFldList(j) = 'AtPh_SST' |
|
./pkg/atm_phys/atm_phys_write_pickup.F |
87 |
ATM_PHYS_WRITE_PICKUP |
IF ( nWrFlds.GT.listDim ) THEN |
|
./pkg/atm_phys/atm_phys_write_pickup.F |
92 |
ATM_PHYS_WRITE_PICKUP |
& 'field-list dimension (listDim=',listDim,') too small' |
|
./pkg/bbl/bbl_write_pickup.F |
57 |
BBL_WRITE_PICKUP |
INTEGER listDim, nWrFlds |
|
./pkg/bbl/bbl_write_pickup.F |
58 |
BBL_WRITE_PICKUP |
PARAMETER( listDim = 3 ) |
|
./pkg/bbl/bbl_write_pickup.F |
59 |
BBL_WRITE_PICKUP |
CHARACTER*(8) wrFldList(listDim) |
|
./pkg/bbl/bbl_write_pickup.F |
78 |
BBL_WRITE_PICKUP |
IF (j.LE.listDim) wrFldList(j) = 'bblTheta' |
|
./pkg/bbl/bbl_write_pickup.F |
83 |
BBL_WRITE_PICKUP |
IF (j.LE.listDim) wrFldList(j) = 'bblSalt ' |
|
./pkg/bbl/bbl_write_pickup.F |
88 |
BBL_WRITE_PICKUP |
IF (j.LE.listDim) wrFldList(j) = 'bblEta ' |
|
./pkg/bbl/bbl_write_pickup.F |
92 |
BBL_WRITE_PICKUP |
IF ( nWrFlds.GT.listDim ) THEN |
|
./pkg/bbl/bbl_write_pickup.F |
97 |
BBL_WRITE_PICKUP |
& 'field-list dimension (listDim=',listDim,') too small' |
|
./pkg/cheapaml/cheapaml_write_pickup.F |
102 |
CHEAPAML_WRITE_PICKUP |
IF (j.LE.listDim) wrFldList(j) = 'gQairNm1' |
|
./pkg/cheapaml/cheapaml_write_pickup.F |
110 |
CHEAPAML_WRITE_PICKUP |
IF (j.LE.listDim) wrFldList(j) = 'cTracer ' |
|
./pkg/cheapaml/cheapaml_write_pickup.F |
115 |
CHEAPAML_WRITE_PICKUP |
IF (j.LE.listDim) wrFldList(j) = 'gTracNm1' |
|
./pkg/cheapaml/cheapaml_write_pickup.F |
120 |
CHEAPAML_WRITE_PICKUP |
IF ( nWrFlds.GT.listDim ) THEN |
|
./pkg/cheapaml/cheapaml_write_pickup.F |
125 |
CHEAPAML_WRITE_PICKUP |
& 'field-list dimension (listDim=',listDim,') too small' |
|
./pkg/cheapaml/cheapaml_write_pickup.F |
59 |
CHEAPAML_WRITE_PICKUP |
INTEGER listDim, nWrFlds |
|
./pkg/cheapaml/cheapaml_write_pickup.F |
60 |
CHEAPAML_WRITE_PICKUP |
PARAMETER( listDim = 12 ) |
|
./pkg/cheapaml/cheapaml_write_pickup.F |
61 |
CHEAPAML_WRITE_PICKUP |
CHARACTER*(8) wrFldList(listDim) |
|
./pkg/cheapaml/cheapaml_write_pickup.F |
85 |
CHEAPAML_WRITE_PICKUP |
IF (j.LE.listDim) wrFldList(j) = 'Tair ' |
|
./pkg/cheapaml/cheapaml_write_pickup.F |
90 |
CHEAPAML_WRITE_PICKUP |
IF (j.LE.listDim) wrFldList(j) = 'gTairNm1' |
|
./pkg/cheapaml/cheapaml_write_pickup.F |
97 |
CHEAPAML_WRITE_PICKUP |
IF (j.LE.listDim) wrFldList(j) = 'Qair ' |
|
./pkg/dic/dic_write_pickup.F |
100 |
DIC_WRITE_PICKUP |
IF ( nWrFlds.GT.listDim ) THEN |
|
./pkg/dic/dic_write_pickup.F |
105 |
DIC_WRITE_PICKUP |
& 'field-list dimension (listDim=',listDim,') too small' |
|
./pkg/dic/dic_write_pickup.F |
53 |
DIC_WRITE_PICKUP |
INTEGER listDim, nWrFlds |
|
./pkg/dic/dic_write_pickup.F |
54 |
DIC_WRITE_PICKUP |
PARAMETER( listDim = 2 ) |
|
./pkg/dic/dic_write_pickup.F |
55 |
DIC_WRITE_PICKUP |
CHARACTER*(8) wrFldList(listDim) |
|
./pkg/dic/dic_write_pickup.F |
96 |
DIC_WRITE_PICKUP |
IF (j.LE.listDim) wrFldList(j) = 'DIC_pH2d' |