| File |
Line number |
Procedure |
Code |
|
./pkg/mypackage/mypackage_write_pickup.F |
105 |
MYPACKAGE_WRITE_PICKUP |
IF (j.LE.listDim) wrFldList(j) = 'myPaSur1' |
|
./pkg/mypackage/mypackage_write_pickup.F |
111 |
MYPACKAGE_WRITE_PICKUP |
IF (j.LE.listDim) wrFldList(j) = 'myPaSur2' |
|
./pkg/mypackage/mypackage_write_pickup.F |
116 |
MYPACKAGE_WRITE_PICKUP |
IF ( nWrFlds.GT.listDim ) THEN |
|
./pkg/mypackage/mypackage_write_pickup.F |
121 |
MYPACKAGE_WRITE_PICKUP |
& 'field-list dimension (listDim=',listDim,') too small' |
|
./pkg/mypackage/mypackage_write_pickup.F |
58 |
MYPACKAGE_WRITE_PICKUP |
INTEGER listDim, nWrFlds |
|
./pkg/mypackage/mypackage_write_pickup.F |
59 |
MYPACKAGE_WRITE_PICKUP |
PARAMETER( listDim = 12 ) |
|
./pkg/mypackage/mypackage_write_pickup.F |
60 |
MYPACKAGE_WRITE_PICKUP |
CHARACTER*(8) wrFldList(listDim) |
|
./pkg/mypackage/mypackage_write_pickup.F |
80 |
MYPACKAGE_WRITE_PICKUP |
IF (j.LE.listDim) wrFldList(j) = 'myPaSta1' |
|
./pkg/mypackage/mypackage_write_pickup.F |
85 |
MYPACKAGE_WRITE_PICKUP |
IF (j.LE.listDim) wrFldList(j) = 'myPaSta2' |
|
./pkg/mypackage/mypackage_write_pickup.F |
90 |
MYPACKAGE_WRITE_PICKUP |
IF (j.LE.listDim) wrFldList(j) = 'myPaStaU' |
|
./pkg/mypackage/mypackage_write_pickup.F |
94 |
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 |
150 |
PTRACERS_WRITE_PICKUP |
IF (j.LE.listDim) |
|
./pkg/ptracers/ptracers_write_pickup.F |
158 |
PTRACERS_WRITE_PICKUP |
IF ( nWrFlds.GT.listDim ) THEN |
|
./pkg/ptracers/ptracers_write_pickup.F |
163 |
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 |
103 |
SEAICE_WRITE_PICKUP |
IF (j.LE.listDim) wrFldList(j) = 'siHSNOW ' |
|
./pkg/seaice/seaice_write_pickup.F |
108 |
SEAICE_WRITE_PICKUP |
IF (j.LE.listDim) wrFldList(j) = 'siHSALT ' |
|
./pkg/seaice/seaice_write_pickup.F |
114 |
SEAICE_WRITE_PICKUP |
IF (j.LE.listDim) wrFldList(j) = 'siAGE ' |
|
./pkg/seaice/seaice_write_pickup.F |
122 |
SEAICE_WRITE_PICKUP |
IF (j.LE.listDim) wrFldList(j) = 'siUICE ' |
|
./pkg/seaice/seaice_write_pickup.F |
127 |
SEAICE_WRITE_PICKUP |
IF (j.LE.listDim) wrFldList(j) = 'siVICE ' |
|
./pkg/seaice/seaice_write_pickup.F |
135 |
SEAICE_WRITE_PICKUP |
IF (j.LE.listDim) wrFldList(j) = 'siSigm1 ' |
|
./pkg/seaice/seaice_write_pickup.F |
141 |
SEAICE_WRITE_PICKUP |
IF (j.LE.listDim) wrFldList(j) = 'siSigm2 ' |
|
./pkg/seaice/seaice_write_pickup.F |
147 |
SEAICE_WRITE_PICKUP |
IF (j.LE.listDim) wrFldList(j) = 'siSigm12' |
|
./pkg/seaice/seaice_write_pickup.F |
152 |
SEAICE_WRITE_PICKUP |
IF ( nWrFlds.GT.listDim ) THEN |
|
./pkg/seaice/seaice_write_pickup.F |
157 |
SEAICE_WRITE_PICKUP |
& 'field-list dimension (listDim=',listDim,') too small' |
|
./pkg/seaice/seaice_write_pickup.F |
56 |
SEAICE_WRITE_PICKUP |
INTEGER listDim, nWrFlds |
|
./pkg/seaice/seaice_write_pickup.F |
57 |
SEAICE_WRITE_PICKUP |
PARAMETER( listDim = 20 ) |
|
./pkg/seaice/seaice_write_pickup.F |
58 |
SEAICE_WRITE_PICKUP |
CHARACTER*(8) wrFldList(listDim) |
|
./pkg/seaice/seaice_write_pickup.F |
79 |
SEAICE_WRITE_PICKUP |
IF (j.LE.listDim) wrFldList(j) = 'siTICES ' |
|
./pkg/seaice/seaice_write_pickup.F |
86 |
SEAICE_WRITE_PICKUP |
IF (j.LE.listDim) wrFldList(j) = 'siTICE ' |
|
./pkg/seaice/seaice_write_pickup.F |
93 |
SEAICE_WRITE_PICKUP |
IF (j.LE.listDim) wrFldList(j) = 'siAREA ' |
|
./pkg/seaice/seaice_write_pickup.F |
98 |
SEAICE_WRITE_PICKUP |
IF (j.LE.listDim) wrFldList(j) = 'siHEFF ' |
|
./model/src/write_pickup.F |
113 |
WRITE_PICKUP |
IF (j.LE.listDim) wrFldList(j) = 'Uvel ' |
|
./model/src/write_pickup.F |
116 |
WRITE_PICKUP |
IF (j.LE.listDim) wrFldList(j) = 'Vvel ' |
|
./model/src/write_pickup.F |
120 |
WRITE_PICKUP |
IF (j.LE.listDim) wrFldList(j) = 'Theta ' |
|
./model/src/write_pickup.F |
123 |
WRITE_PICKUP |
IF (j.LE.listDim) wrFldList(j) = 'Salt ' |
|
./model/src/write_pickup.F |
134 |
WRITE_PICKUP |
IF (j.LE.listDim) wrFldList(j) = 'GuNm1 ' |
|
./model/src/write_pickup.F |
140 |
WRITE_PICKUP |
IF (j.LE.listDim) wrFldList(j) = 'GuNm2 ' |
|
./model/src/write_pickup.F |
147 |
WRITE_PICKUP |
IF (j.LE.listDim) wrFldList(j) = 'GvNm1 ' |
|
./model/src/write_pickup.F |
153 |
WRITE_PICKUP |
IF (j.LE.listDim) wrFldList(j) = 'GvNm2 ' |
|
./model/src/write_pickup.F |
162 |
WRITE_PICKUP |
IF (j.LE.listDim) THEN |
|
./model/src/write_pickup.F |
171 |
WRITE_PICKUP |
IF (j.LE.listDim) THEN |
|
./model/src/write_pickup.F |
183 |
WRITE_PICKUP |
IF (j.LE.listDim) THEN |
|
./model/src/write_pickup.F |
192 |
WRITE_PICKUP |
IF (j.LE.listDim) THEN |
|
./model/src/write_pickup.F |
205 |
WRITE_PICKUP |
IF (j.LE.listDim) wrFldList(j) = 'GwNm1 ' |
|
./model/src/write_pickup.F |
211 |
WRITE_PICKUP |
IF (j.LE.listDim) wrFldList(j) = 'GwNm2 ' |
|
./model/src/write_pickup.F |
219 |
WRITE_PICKUP |
IF (j.LE.listDim) wrFldList(j) = 'GuNm1 ' |
|
./model/src/write_pickup.F |
222 |
WRITE_PICKUP |
IF (j.LE.listDim) wrFldList(j) = 'GvNm1 ' |
|
./model/src/write_pickup.F |
227 |
WRITE_PICKUP |
IF (j.LE.listDim) wrFldList(j) = 'GtNm1 ' |
|
./model/src/write_pickup.F |
232 |
WRITE_PICKUP |
IF (j.LE.listDim) wrFldList(j) = 'GsNm1 ' |
|
./model/src/write_pickup.F |
238 |
WRITE_PICKUP |
IF (j.LE.listDim) wrFldList(j) = 'GwNm1 ' |
|
./model/src/write_pickup.F |
247 |
WRITE_PICKUP |
IF (j.LE.listDim) wrFldList(j) = 'PhiHyd ' |
|
./model/src/write_pickup.F |
253 |
WRITE_PICKUP |
IF (j.LE.listDim) wrFldList(j) = 'Phi_NHyd' |
|
./model/src/write_pickup.F |
261 |
WRITE_PICKUP |
IF (j.LE.listDim) wrFldList(j) = 'AddMass ' |
|
./model/src/write_pickup.F |
270 |
WRITE_PICKUP |
IF (j.LE.listDim) wrFldList(j) = 'EtaN ' |
|
./model/src/write_pickup.F |
276 |
WRITE_PICKUP |
IF (j.LE.listDim) wrFldList(j) = 'dPhiNH ' |
|
./model/src/write_pickup.F |
284 |
WRITE_PICKUP |
IF (j.LE.listDim) wrFldList(j) = 'dEtaHdt ' |
|
./model/src/write_pickup.F |
292 |
WRITE_PICKUP |
IF (j.LE.listDim) wrFldList(j) = 'EtaH ' |
|
./model/src/write_pickup.F |
297 |
WRITE_PICKUP |
IF ( nWrFlds.GT.listDim ) THEN |
|
./model/src/write_pickup.F |
302 |
WRITE_PICKUP |
& 'field-list dimension (listDim=',listDim,') too small' |
|
./model/src/write_pickup.F |
66 |
WRITE_PICKUP |
INTEGER listDim, nWrFlds, n3D |
|
./model/src/write_pickup.F |
67 |
WRITE_PICKUP |
PARAMETER( listDim = 20 ) |
|
./model/src/write_pickup.F |
68 |
WRITE_PICKUP |
CHARACTER*(8) wrFldList(listDim) |
|
./model/src/write_pickup.F |
86 |
WRITE_PICKUP |
DO j=1,listDim |
|
./pkg/cheapaml/cheapaml_write_pickup.F |
57 |
CHEAPAML_WRITE_PICKUP |
INTEGER listDim, nWrFlds |
|
./pkg/cheapaml/cheapaml_write_pickup.F |
58 |
CHEAPAML_WRITE_PICKUP |
PARAMETER( listDim = 12 ) |
|
./pkg/cheapaml/cheapaml_write_pickup.F |
59 |
CHEAPAML_WRITE_PICKUP |
CHARACTER*(8) wrFldList(listDim) |
|
./pkg/cheapaml/cheapaml_write_pickup.F |
83 |
CHEAPAML_WRITE_PICKUP |
IF (j.LE.listDim) wrFldList(j) = 'Tair' |
|
./pkg/cheapaml/cheapaml_write_pickup.F |
88 |
CHEAPAML_WRITE_PICKUP |
IF ( nWrFlds.GT.listDim ) THEN |
|
./pkg/cheapaml/cheapaml_write_pickup.F |
93 |
CHEAPAML_WRITE_PICKUP |
& 'field-list dimension (listDim=',listDim,') too small' |
|
./pkg/dic/dic_write_pickup.F |
52 |
DIC_WRITE_PICKUP |
INTEGER listDim, nWrFlds |
|
./pkg/dic/dic_write_pickup.F |
53 |
DIC_WRITE_PICKUP |
PARAMETER( listDim = 2 ) |
|
./pkg/dic/dic_write_pickup.F |
54 |
DIC_WRITE_PICKUP |
CHARACTER*(8) wrFldList(listDim) |
|
./pkg/dic/dic_write_pickup.F |
90 |
DIC_WRITE_PICKUP |
IF (j.LE.listDim) wrFldList(j) = 'DIC_pH2d' |
|
./pkg/dic/dic_write_pickup.F |
94 |
DIC_WRITE_PICKUP |
IF ( nWrFlds.GT.listDim ) THEN |
|
./pkg/dic/dic_write_pickup.F |
99 |
DIC_WRITE_PICKUP |
& 'field-list dimension (listDim=',listDim,') too small' |