| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_lwrad.F |
2517 |
TABLUP |
_RL x1,x2,x3,we,pe,fw,fp,pa,pb,pc,ax,ba,bb,t1,ca,cb,t2 |
|
./pkg/fizhi/fizhi_lwrad.F |
2547 |
TABLUP |
fp=pe-float(ip-1) |
|
./pkg/fizhi/fizhi_lwrad.F |
2551 |
TABLUP |
pa = coef1(ip,iw-1,nn)*(1.-fp)+coef1(ip+1,iw-1,nn)*fp |
|
./pkg/fizhi/fizhi_lwrad.F |
2552 |
TABLUP |
pb = coef1(ip,iw, nn)*(1.-fp)+coef1(ip+1,iw, nn)*fp |
|
./pkg/fizhi/fizhi_lwrad.F |
2553 |
TABLUP |
pc = coef1(ip,iw+1,nn)*(1.-fp)+coef1(ip+1,iw+1,nn)*fp |
|
./pkg/fizhi/fizhi_lwrad.F |
2561 |
TABLUP |
ba = coef2(ip,iw, nn)*(1.-fp)+coef2(ip+1,iw, nn)*fp |
|
./pkg/fizhi/fizhi_lwrad.F |
2562 |
TABLUP |
bb = coef2(ip,iw+1,nn)*(1.-fp)+coef2(ip+1,iw+1,nn)*fp |
|
./pkg/fizhi/fizhi_lwrad.F |
2565 |
TABLUP |
ca = coef3(ip,iw, nn)*(1.-fp)+coef3(ip+1,iw, nn)*fp |
|
./pkg/fizhi/fizhi_lwrad.F |
2566 |
TABLUP |
cb = coef3(ip,iw+1,nn)*(1.-fp)+coef3(ip+1,iw+1,nn)*fp |
|
./pkg/flt/flt_init_varia.F |
104 |
FLT_INIT_VARIA |
fp = precFloat64 |
|
./pkg/flt/flt_init_varia.F |
128 |
FLT_INIT_VARIA |
CALL MDS_READVEC_LOC( fn, fp, ioUnit, |
|
./pkg/flt/flt_init_varia.F |
143 |
FLT_INIT_VARIA |
CALL MDS_READVEC_LOC( fn, fp, ioUnit, |
|
./pkg/flt/flt_init_varia.F |
216 |
FLT_INIT_VARIA |
CALL MDS_READVEC_LOC( fn, fp, ioUnit, |
|
./pkg/flt/flt_init_varia.F |
229 |
FLT_INIT_VARIA |
CALL MDS_READVEC_LOC( fn, fp, ioUnit, |
|
./pkg/flt/flt_init_varia.F |
55 |
FLT_INIT_VARIA |
INTEGER fp, ioUnit |
|
./pkg/flt/flt_init_varia.F |
92 |
FLT_INIT_VARIA |
fp = readBinaryPrec |
|
./pkg/flt/flt_traj.F |
172 |
FLT_TRAJ |
fp = writeBinaryPrec |
|
./pkg/flt/flt_traj.F |
179 |
FLT_TRAJ |
CALL MDS_READVEC_LOC( fn, fp, ioUnit, 'RL', nFlds, |
|
./pkg/flt/flt_traj.F |
227 |
FLT_TRAJ |
CALL MDS_WRITEVEC_LOC( fn, fp, ioUnit, 'RL', nFlds, |
|
./pkg/flt/flt_traj.F |
235 |
FLT_TRAJ |
CALL MDS_WRITEVEC_LOC( fn, fp, ioUnit, 'RL', nFlds, |
|
./pkg/flt/flt_traj.F |
57 |
FLT_TRAJ |
INTEGER fp, ioUnit, irecord |
|
./pkg/flt/flt_up.F |
170 |
FLT_UP |
fp = writeBinaryPrec |
|
./pkg/flt/flt_up.F |
177 |
FLT_UP |
CALL MDS_READVEC_LOC( fn, fp, ioUnit, 'RL', nFlds, |
|
./pkg/flt/flt_up.F |
225 |
FLT_UP |
CALL MDS_WRITEVEC_LOC( fn, fp, ioUnit, 'RL', nFlds, |
|
./pkg/flt/flt_up.F |
233 |
FLT_UP |
CALL MDS_WRITEVEC_LOC( fn, fp, ioUnit, 'RL', nFlds, |
|
./pkg/flt/flt_up.F |
54 |
FLT_UP |
INTEGER fp, ioUnit, irecord |
|
./pkg/gmredi/gmredi_read_pickup.F |
141 |
GMREDI_READ_PICKUP |
& nm, fp, Nr, myIter, myThid ) |
|
./pkg/gmredi/gmredi_read_pickup.F |
159 |
GMREDI_READ_PICKUP |
& nm, fp, Nr, myIter, myThid ) |
|
./pkg/gmredi/gmredi_read_pickup.F |
178 |
GMREDI_READ_PICKUP |
& nm, fp, Nr, myIter, myThid ) |
|
./pkg/gmredi/gmredi_read_pickup.F |
199 |
GMREDI_READ_PICKUP |
& nm, fp, 1, myIter, myThid ) |
|
./pkg/gmredi/gmredi_read_pickup.F |
43 |
GMREDI_READ_PICKUP |
INTEGER fp |
|
./pkg/gmredi/gmredi_read_pickup.F |
68 |
GMREDI_READ_PICKUP |
fp = precFloat64 |
|
./pkg/gmredi/gmredi_read_pickup.F |
76 |
GMREDI_READ_PICKUP |
IF ( nbFields.GE.0 .AND. filePrec.NE.fp ) THEN |
|
./pkg/gmredi/gmredi_read_pickup.F |
81 |
GMREDI_READ_PICKUP |
& 'file prec.=', filePrec, ' but expecting prec.=', fp |
|
./pkg/gmredi/gmredi_write_pickup.F |
111 |
GMREDI_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr, |
|
./pkg/gmredi/gmredi_write_pickup.F |
131 |
GMREDI_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr, |
|
./pkg/gmredi/gmredi_write_pickup.F |
144 |
GMREDI_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, 1, |
|
./pkg/gmredi/gmredi_write_pickup.F |
170 |
GMREDI_WRITE_PICKUP |
CALL MDS_WR_METAFILES( fn, fp, glf, .FALSE., |
|
./pkg/gmredi/gmredi_write_pickup.F |
54 |
GMREDI_WRITE_PICKUP |
INTEGER i,j,k,bi,bj,m,n, nm, fp, lChar |
|
./pkg/gmredi/gmredi_write_pickup.F |
74 |
GMREDI_WRITE_PICKUP |
fp = precFloat64 |
|
./pkg/gmredi/gmredi_write_pickup.F |
92 |
GMREDI_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr, |
|
./pkg/mypackage/mypackage_read_pickup.F |
138 |
MYPACKAGE_READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./pkg/mypackage/mypackage_read_pickup.F |
140 |
MYPACKAGE_READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./pkg/mypackage/mypackage_read_pickup.F |
142 |
MYPACKAGE_READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./pkg/mypackage/mypackage_read_pickup.F |
144 |
MYPACKAGE_READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./pkg/mypackage/mypackage_read_pickup.F |
150 |
MYPACKAGE_READ_PICKUP |
& nj, fp, 1 , myIter, myThid ) |
|
./pkg/mypackage/mypackage_read_pickup.F |
152 |
MYPACKAGE_READ_PICKUP |
& nj, fp, 1 , myIter, myThid ) |
|
./pkg/mypackage/mypackage_read_pickup.F |
44 |
MYPACKAGE_READ_PICKUP |
INTEGER fp |
|
./pkg/mypackage/mypackage_read_pickup.F |
67 |
MYPACKAGE_READ_PICKUP |
fp = precFloat64 |
|
./pkg/mypackage/mypackage_read_pickup.F |
75 |
MYPACKAGE_READ_PICKUP |
IF ( nbFields.GE.0 .AND. filePrec.NE.fp ) THEN |
|
./pkg/mypackage/mypackage_read_pickup.F |
80 |
MYPACKAGE_READ_PICKUP |
& 'file prec.=', filePrec, ' but expecting prec.=', fp |
|
./pkg/mypackage/mypackage_write_pickup.F |
104 |
MYPACKAGE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, 1, |
|
./pkg/mypackage/mypackage_write_pickup.F |
110 |
MYPACKAGE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, 1, |
|
./pkg/mypackage/mypackage_write_pickup.F |
137 |
MYPACKAGE_WRITE_PICKUP |
CALL MDS_WR_METAFILES( fn, fp, glf, .FALSE., |
|
./pkg/mypackage/mypackage_write_pickup.F |
55 |
MYPACKAGE_WRITE_PICKUP |
INTEGER j, nj, fp, lChar |
|
./pkg/mypackage/mypackage_write_pickup.F |
71 |
MYPACKAGE_WRITE_PICKUP |
fp = precFloat64 |
|
./pkg/mypackage/mypackage_write_pickup.F |
79 |
MYPACKAGE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr, |
|
./pkg/mypackage/mypackage_write_pickup.F |
84 |
MYPACKAGE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr, |
|
./pkg/mypackage/mypackage_write_pickup.F |
89 |
MYPACKAGE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr, |
|
./pkg/mypackage/mypackage_write_pickup.F |
93 |
MYPACKAGE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr, |
|
./pkg/obcs/obcs_fields_load.F |
157 |
OBCS_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBEuFile, fp,Nr,OBEu0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
158 |
OBCS_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBEuFile, fp,Nr,OBEu1,iRec1,myIter,myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
161 |
OBCS_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBEvFile, fp,Nr,OBEv0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
162 |
OBCS_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBEvFile, fp,Nr,OBEv1,iRec1,myIter,myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
165 |
OBCS_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBEtFile, fp,Nr,OBEt0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
166 |
OBCS_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBEtFile, fp,Nr,OBEt1,iRec1,myIter,myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
169 |
OBCS_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBEsFile, fp,Nr,OBEs0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
170 |
OBCS_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBEsFile, fp,Nr,OBEs1,iRec1,myIter,myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
174 |
OBCS_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBEwFile, fp,Nr,OBEw0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
175 |
OBCS_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBEwFile, fp,Nr,OBEw1,iRec1,myIter,myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
180 |
OBCS_FIELDS_LOAD |
CALL READ_REC_YZ_RL(OBEetaFile,fp,1,OBEeta0,iRec0,myIter,myThid) |
|
./pkg/obcs/obcs_fields_load.F |
181 |
OBCS_FIELDS_LOAD |
CALL READ_REC_YZ_RL(OBEetaFile,fp,1,OBEeta1,iRec1,myIter,myThid) |
|
./pkg/obcs/obcs_fields_load.F |
188 |
OBCS_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBWuFile, fp,Nr,OBWu0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
189 |
OBCS_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBWuFile, fp,Nr,OBWu1,iRec1,myIter,myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
192 |
OBCS_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBWvFile, fp,Nr,OBWv0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
193 |
OBCS_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBWvFile, fp,Nr,OBWv1,iRec1,myIter,myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
196 |
OBCS_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBWtFile, fp,Nr,OBWt0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
197 |
OBCS_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBWtFile, fp,Nr,OBWt1,iRec1,myIter,myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
200 |
OBCS_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBWsFile, fp,Nr,OBWs0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
201 |
OBCS_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBWsFile, fp,Nr,OBWs1,iRec1,myIter,myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
205 |
OBCS_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBWwFile, fp,Nr,OBWw0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
206 |
OBCS_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBWwFile, fp,Nr,OBWw1,iRec1,myIter,myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
211 |
OBCS_FIELDS_LOAD |
CALL READ_REC_YZ_RL(OBWetaFile,fp,1,OBWeta0,iRec0,myIter,myThid) |
|
./pkg/obcs/obcs_fields_load.F |
212 |
OBCS_FIELDS_LOAD |
CALL READ_REC_YZ_RL(OBWetaFile,fp,1,OBWeta1,iRec1,myIter,myThid) |
|
./pkg/obcs/obcs_fields_load.F |
219 |
OBCS_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBNuFile, fp,Nr,OBNu0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
220 |
OBCS_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBNuFile, fp,Nr,OBNu1,iRec1,myIter,myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
223 |
OBCS_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBNvFile, fp,Nr,OBNv0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
224 |
OBCS_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBNvFile, fp,Nr,OBNv1,iRec1,myIter,myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
227 |
OBCS_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBNtFile, fp,Nr,OBNt0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
228 |
OBCS_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBNtFile, fp,Nr,OBNt1,iRec1,myIter,myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
231 |
OBCS_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBNsFile, fp,Nr,OBNs0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
232 |
OBCS_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBNsFile, fp,Nr,OBNs1,iRec1,myIter,myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
236 |
OBCS_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBNwFile, fp,Nr,OBNw0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
237 |
OBCS_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBNwFile, fp,Nr,OBNw1,iRec1,myIter,myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
242 |
OBCS_FIELDS_LOAD |
CALL READ_REC_XZ_RL(OBNetaFile,fp,1,OBNeta0,iRec0,myIter,myThid) |
|
./pkg/obcs/obcs_fields_load.F |
243 |
OBCS_FIELDS_LOAD |
CALL READ_REC_XZ_RL(OBNetaFile,fp,1,OBNeta1,iRec1,myIter,myThid) |
|
./pkg/obcs/obcs_fields_load.F |
250 |
OBCS_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBSuFile, fp,Nr,OBSu0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
251 |
OBCS_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBSuFile, fp,Nr,OBSu1,iRec1,myIter,myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
254 |
OBCS_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBSvFile, fp,Nr,OBSv0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
255 |
OBCS_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBSvFile, fp,Nr,OBSv1,iRec1,myIter,myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
258 |
OBCS_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBStFile, fp,Nr,OBSt0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
259 |
OBCS_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBStFile, fp,Nr,OBSt1,iRec1,myIter,myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
262 |
OBCS_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBSsFile, fp,Nr,OBSs0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
263 |
OBCS_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBSsFile, fp,Nr,OBSs1,iRec1,myIter,myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
267 |
OBCS_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBSwFile, fp,Nr,OBSw0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
268 |
OBCS_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBSwFile, fp,Nr,OBSw1,iRec1,myIter,myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
273 |
OBCS_FIELDS_LOAD |
CALL READ_REC_XZ_RL(OBSetaFile,fp,1,OBSeta0,iRec0,myIter,myThid) |
|
./pkg/obcs/obcs_fields_load.F |
274 |
OBCS_FIELDS_LOAD |
CALL READ_REC_XZ_RL(OBSetaFile,fp,1,OBSeta1,iRec1,myIter,myThid) |
|
./pkg/obcs/obcs_fields_load.F |
286 |
OBCS_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBEptrFile(iTr), fp, Nr, |
|
./pkg/obcs/obcs_fields_load.F |
288 |
OBCS_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBEptrFile(iTr), fp, Nr, |
|
./pkg/obcs/obcs_fields_load.F |
295 |
OBCS_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBWptrFile(iTr), fp, Nr, |
|
./pkg/obcs/obcs_fields_load.F |
297 |
OBCS_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBWptrFile(iTr), fp, Nr, |
|
./pkg/obcs/obcs_fields_load.F |
304 |
OBCS_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBNptrFile(iTr), fp, Nr, |
|
./pkg/obcs/obcs_fields_load.F |
306 |
OBCS_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBNptrFile(iTr), fp, Nr, |
|
./pkg/obcs/obcs_fields_load.F |
313 |
OBCS_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBSptrFile(iTr), fp, Nr, |
|
./pkg/obcs/obcs_fields_load.F |
315 |
OBCS_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBSptrFile(iTr), fp, Nr, |
|
./pkg/obcs/obcs_fields_load.F |
365 |
OBCS_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBEuFile,fp,Nr,OBEu0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
368 |
OBCS_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBEvFile,fp,Nr,OBEv0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
371 |
OBCS_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBEtFile,fp,Nr,OBEt0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
374 |
OBCS_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBEsFile,fp,Nr,OBEs0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
378 |
OBCS_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBEwFile,fp,Nr,OBEw0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
383 |
OBCS_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBEetaFile, fp, 1, OBEeta0, iRec0, |
|
./pkg/obcs/obcs_fields_load.F |
391 |
OBCS_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBWuFile,fp,Nr,OBWu0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
394 |
OBCS_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBWvFile,fp,Nr,OBWv0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
397 |
OBCS_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBWtFile,fp,Nr,OBWt0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
400 |
OBCS_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBWsFile,fp,Nr,OBWs0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
404 |
OBCS_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBWwFile,fp,Nr,OBWw0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
409 |
OBCS_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBWetaFile, fp, 1, OBWeta0, iRec0, |
|
./pkg/obcs/obcs_fields_load.F |
417 |
OBCS_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBNuFile,fp,Nr,OBNu0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
420 |
OBCS_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBNvFile,fp,Nr,OBNv0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
423 |
OBCS_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBNtFile,fp,Nr,OBNt0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
426 |
OBCS_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBNsFile,fp,Nr,OBNs0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
430 |
OBCS_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBNwFile,fp,Nr,OBNw0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
435 |
OBCS_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBNetaFile, fp, 1, OBNeta0, iRec0, |
|
./pkg/obcs/obcs_fields_load.F |
443 |
OBCS_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBSuFile,fp,Nr,OBSu0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
446 |
OBCS_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBSvFile,fp,Nr,OBSv0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
449 |
OBCS_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBStFile,fp,Nr,OBSt0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
452 |
OBCS_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBSsFile,fp,Nr,OBSs0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
456 |
OBCS_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBSwFile,fp,Nr,OBSw0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
461 |
OBCS_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBSetaFile, fp, 1, OBSeta0, iRec0, |
|
./pkg/obcs/obcs_fields_load.F |
473 |
OBCS_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBEptrFile(iTr), fp, Nr, |
|
./pkg/obcs/obcs_fields_load.F |
480 |
OBCS_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBWptrFile(iTr), fp, Nr, |
|
./pkg/obcs/obcs_fields_load.F |
487 |
OBCS_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBNptrFile(iTr), fp, Nr, |
|
./pkg/obcs/obcs_fields_load.F |
494 |
OBCS_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBSptrFile(iTr), fp, Nr, |
|
./pkg/obcs/obcs_fields_load.F |
84 |
OBCS_FIELDS_LOAD |
INTEGER fp |
|
./pkg/obcs/obcs_fields_load.F |
97 |
OBCS_FIELDS_LOAD |
fp = readBinaryPrec |
|
./pkg/obcs/obcs_init_variables.F |
389 |
OBCS_INIT_VARIABLES |
& (OBNamFile,fp,tidalComponents,OBNam,1,nIter0,myThid ) |
|
./pkg/obcs/obcs_init_variables.F |
391 |
OBCS_INIT_VARIABLES |
& (OBNphFile,fp,tidalComponents,OBNph,1,nIter0,myThid ) |
|
./pkg/obcs/obcs_init_variables.F |
395 |
OBCS_INIT_VARIABLES |
& (OBSamFile,fp,tidalComponents,OBSam,1,nIter0,myThid ) |
|
./pkg/obcs/obcs_init_variables.F |
397 |
OBCS_INIT_VARIABLES |
& (OBSphFile,fp,tidalComponents,OBSph,1,nIter0,myThid ) |
|
./pkg/obcs/obcs_init_variables.F |
401 |
OBCS_INIT_VARIABLES |
& (OBEamFile,fp,tidalComponents,OBEam,1,nIter0,myThid ) |
|
./pkg/obcs/obcs_init_variables.F |
403 |
OBCS_INIT_VARIABLES |
& (OBEphFile,fp,tidalComponents,OBEph,1,nIter0,myThid ) |
|
./pkg/obcs/obcs_init_variables.F |
407 |
OBCS_INIT_VARIABLES |
& (OBWamFile,fp,tidalComponents,OBWam,1,nIter0,myThid ) |
|
./pkg/obcs/obcs_init_variables.F |
409 |
OBCS_INIT_VARIABLES |
& (OBWphFile,fp,tidalComponents,OBWph,1,nIter0,myThid ) |
|
./pkg/obcs/obcs_init_variables.F |
48 |
OBCS_INIT_VARIABLES |
INTEGER fp |
|
./pkg/obcs/obcs_init_variables.F |
57 |
OBCS_INIT_VARIABLES |
fp = readBinaryPrec |
|
./pkg/obcs/obcs_set_connect.F |
105 |
OBCS_SET_CONNECT |
CALL READ_REC_XZ_RS( OBSconnectFile, fp,Nr, tmpXZ, 1,0,myThid ) |
|
./pkg/obcs/obcs_set_connect.F |
122 |
OBCS_SET_CONNECT |
CALL READ_REC_YZ_RS( OBEconnectFile, fp,Nr, tmpYZ, 1,0,myThid ) |
|
./pkg/obcs/obcs_set_connect.F |
139 |
OBCS_SET_CONNECT |
CALL READ_REC_YZ_RS( OBWconnectFile, fp,Nr, tmpYZ, 1,0,myThid ) |
|
./pkg/obcs/obcs_set_connect.F |
44 |
OBCS_SET_CONNECT |
INTEGER fp, prtMsg |
|
./pkg/obcs/obcs_set_connect.F |
85 |
OBCS_SET_CONNECT |
fp = readBinaryPrec |
|
./pkg/obcs/obcs_set_connect.F |
88 |
OBCS_SET_CONNECT |
CALL READ_REC_XZ_RS( OBNconnectFile, fp,Nr, tmpXZ, 1,0,myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
146 |
SEAICE_READ_PICKUP |
CALL READ_REC_3D_RL( fn,fp,nITD, TICES, nj,nIter0,myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
150 |
SEAICE_READ_PICKUP |
CALL READ_REC_LEV_RL( fn, fp, nITD,1,1, TICES, |
|
./pkg/seaice/seaice_read_pickup.F |
155 |
SEAICE_READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, 1, HSNOW , nj, nIter0, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
157 |
SEAICE_READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, 1, UICE , nj, nIter0, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
159 |
SEAICE_READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, 1, VICE , nj, nIter0, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
161 |
SEAICE_READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, 1, HEFF , nj, nIter0, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
163 |
SEAICE_READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, 1, AREA , nj, nIter0, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
172 |
SEAICE_READ_PICKUP |
CALL READ_REC_3D_RL(fn,fp,1,seaice_sigma1,nj, nIter0, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
174 |
SEAICE_READ_PICKUP |
CALL READ_REC_3D_RL(fn,fp,1,seaice_sigma2,nj, nIter0, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
176 |
SEAICE_READ_PICKUP |
CALL READ_REC_3D_RL(fn,fp,1,seaice_sigma12,nj,nIter0, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
181 |
SEAICE_READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, 1, HSALT , nj, nIter0, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
192 |
SEAICE_READ_PICKUP |
& nj, fp, nITD, nIter0, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
197 |
SEAICE_READ_PICKUP |
& nj, fp, nITD,1,1, nIter0, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
203 |
SEAICE_READ_PICKUP |
& nj, fp, nITD,1,1, nIter0, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
206 |
SEAICE_READ_PICKUP |
& nj, fp, nITD,1,1, nIter0, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
212 |
SEAICE_READ_PICKUP |
& nj, fp, nITD, nIter0, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
218 |
SEAICE_READ_PICKUP |
& nj, fp, 1, nIter0, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
220 |
SEAICE_READ_PICKUP |
& nj, fp, 1, nIter0, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
222 |
SEAICE_READ_PICKUP |
& nj, fp, 1, nIter0, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
231 |
SEAICE_READ_PICKUP |
& nj, fp, nITD, nIter0, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
233 |
SEAICE_READ_PICKUP |
& nj, fp, nITD, nIter0, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
244 |
SEAICE_READ_PICKUP |
& nj, fp, 1, nIter0, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
251 |
SEAICE_READ_PICKUP |
& nj, fp, 1, nIter0, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
260 |
SEAICE_READ_PICKUP |
& nj, fp, 1, nIter0, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
262 |
SEAICE_READ_PICKUP |
& nj, fp, 1, nIter0, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
265 |
SEAICE_READ_PICKUP |
& nj, fp, 1, nIter0, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
267 |
SEAICE_READ_PICKUP |
& nj, fp, 1, nIter0, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
272 |
SEAICE_READ_PICKUP |
& nj, fp, 1, nIter0, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
274 |
SEAICE_READ_PICKUP |
& nj, fp, 1, nIter0, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
276 |
SEAICE_READ_PICKUP |
& nj, fp, 1, nIter0, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
49 |
SEAICE_READ_PICKUP |
INTEGER fp |
|
./pkg/seaice/seaice_read_pickup.F |
76 |
SEAICE_READ_PICKUP |
fp = precFloat64 |
|
./pkg/seaice/seaice_read_pickup.F |
91 |
SEAICE_READ_PICKUP |
IF ( nbFields.GE.0 .AND. filePrec.NE.fp ) THEN |
|
./pkg/seaice/seaice_read_pickup.F |
96 |
SEAICE_READ_PICKUP |
& 'file prec.=', filePrec, ' but expecting prec.=', fp |
|
./pkg/seaice/seaice_write_pickup.F |
105 |
SEAICE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL(fn,fp,nITD,TICES, nj, myIter, myThid ) |
|
./pkg/seaice/seaice_write_pickup.F |
111 |
SEAICE_WRITE_PICKUP |
CALL WRITE_REC_LEV_RL( fn, fp, nITD, 1, 1, TICES, |
|
./pkg/seaice/seaice_write_pickup.F |
119 |
SEAICE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, 1, AREA , nj, myIter, myThid ) |
|
./pkg/seaice/seaice_write_pickup.F |
123 |
SEAICE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, 1, HEFF , nj, myIter, myThid ) |
|
./pkg/seaice/seaice_write_pickup.F |
127 |
SEAICE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, 1, HSNOW , nj, myIter, myThid ) |
|
./pkg/seaice/seaice_write_pickup.F |
135 |
SEAICE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, 1, HSALT , nj, myIter, myThid ) |
|
./pkg/seaice/seaice_write_pickup.F |
143 |
SEAICE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, 1, |
|
./pkg/seaice/seaice_write_pickup.F |
154 |
SEAICE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, 1, UICE , nj, myIter, myThid ) |
|
./pkg/seaice/seaice_write_pickup.F |
159 |
SEAICE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, 1, VICE , nj, myIter, myThid ) |
|
./pkg/seaice/seaice_write_pickup.F |
165 |
SEAICE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, 1, uIceNm1 , nj, myIter, myThid ) |
|
./pkg/seaice/seaice_write_pickup.F |
170 |
SEAICE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, 1, vIceNm1 , nj, myIter, myThid ) |
|
./pkg/seaice/seaice_write_pickup.F |
177 |
SEAICE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, 1, seaice_sigma1, |
|
./pkg/seaice/seaice_write_pickup.F |
183 |
SEAICE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, 1, seaice_sigma2, |
|
./pkg/seaice/seaice_write_pickup.F |
189 |
SEAICE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, 1, seaice_sigma12, |
|
./pkg/seaice/seaice_write_pickup.F |
211 |
SEAICE_WRITE_PICKUP |
CALL MDS_WR_METAFILES( fn, fp, glf, .FALSE., |
|
./pkg/seaice/seaice_write_pickup.F |
55 |
SEAICE_WRITE_PICKUP |
INTEGER fp |
|
./pkg/seaice/seaice_write_pickup.F |
75 |
SEAICE_WRITE_PICKUP |
fp = precFloat64 |
|
./pkg/seaice/seaice_write_pickup.F |
86 |
SEAICE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn,fp, nITD, TICES, -j, myIter,myThid ) |
|
./pkg/seaice/seaice_write_pickup.F |
89 |
SEAICE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn,fp, nITD, AREAITD, -j, myIter,myThid ) |
|
./pkg/seaice/seaice_write_pickup.F |
92 |
SEAICE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn,fp, nITD, HEFFITD, -j, myIter,myThid ) |
|
./pkg/seaice/seaice_write_pickup.F |
95 |
SEAICE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn,fp, nITD, HSNOWITD,-j, myIter,myThid ) |
|
./model/src/ini_curvilinear_grid.F |
130 |
INI_CURVILINEAR_GRID |
CALL READ_REC_3D_RS( 'DXV.bin', fp, 1, dxV, 1, 0, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
131 |
INI_CURVILINEAR_GRID |
CALL READ_REC_3D_RS( 'DYU.bin', fp, 1, dyU, 1, 0, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
153 |
INI_CURVILINEAR_GRID |
CALL READ_REC_3D_RS( 'RAZ.bin', fp, 1, rAz, 1, 0, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
167 |
INI_CURVILINEAR_GRID |
CALL READ_REC_3D_RS( 'DXC.bin', fp, 1, dxC, 1, 0, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
168 |
INI_CURVILINEAR_GRID |
CALL READ_REC_3D_RS( 'DYC.bin', fp, 1, dyC, 1, 0, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
171 |
INI_CURVILINEAR_GRID |
CALL READ_REC_3D_RS( 'RAW.bin', fp, 1, rAw, 1, 0, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
172 |
INI_CURVILINEAR_GRID |
CALL READ_REC_3D_RS( 'RAS.bin', fp, 1, rAs, 1, 0, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
175 |
INI_CURVILINEAR_GRID |
CALL READ_REC_3D_RS( 'DXG.bin', fp, 1, dxG, 1, 0, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
176 |
INI_CURVILINEAR_GRID |
CALL READ_REC_3D_RS( 'DYG.bin', fp, 1, dyG, 1, 0, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
251 |
INI_CURVILINEAR_GRID |
fp = precFloat64 |
|
./model/src/ini_curvilinear_grid.F |
291 |
INI_CURVILINEAR_GRID |
CALL MDS_FACEF_READ_RS( fName, fp, 1, xC, bi, bj, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
294 |
INI_CURVILINEAR_GRID |
CALL MDS_FACEF_READ_RS( fName, fp, 2, yC, bi, bj, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
297 |
INI_CURVILINEAR_GRID |
CALL MDS_FACEF_READ_RS( fName, fp, 3, dxF, bi, bj, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
300 |
INI_CURVILINEAR_GRID |
CALL MDS_FACEF_READ_RS( fName, fp, 4, dyF, bi, bj, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
303 |
INI_CURVILINEAR_GRID |
CALL MDS_FACEF_READ_RS( fName, fp, 5, rA, bi, bj, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
306 |
INI_CURVILINEAR_GRID |
CALL MDS_FACEF_READ_RS( fName, fp, 6, xG, bi, bj, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
309 |
INI_CURVILINEAR_GRID |
CALL MDS_FACEF_READ_RS( fName, fp, 7, yG, bi, bj, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
312 |
INI_CURVILINEAR_GRID |
CALL MDS_FACEF_READ_RS( fName, fp, 8, dxV, bi, bj, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
315 |
INI_CURVILINEAR_GRID |
CALL MDS_FACEF_READ_RS( fName, fp, 9, dyU, bi, bj, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
318 |
INI_CURVILINEAR_GRID |
CALL MDS_FACEF_READ_RS( fName, fp,10, rAz, bi, bj, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
321 |
INI_CURVILINEAR_GRID |
CALL MDS_FACEF_READ_RS( fName, fp,11, dxC, bi, bj, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
324 |
INI_CURVILINEAR_GRID |
CALL MDS_FACEF_READ_RS( fName, fp,12, dyC, bi, bj, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
327 |
INI_CURVILINEAR_GRID |
CALL MDS_FACEF_READ_RS( fName, fp,13, rAw, bi, bj, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
330 |
INI_CURVILINEAR_GRID |
CALL MDS_FACEF_READ_RS( fName, fp,14, rAs, bi, bj, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
333 |
INI_CURVILINEAR_GRID |
CALL MDS_FACEF_READ_RS( fName, fp,15, dxG, bi, bj, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
336 |
INI_CURVILINEAR_GRID |
CALL MDS_FACEF_READ_RS( fName, fp,16, dyG, bi, bj, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
342 |
INI_CURVILINEAR_GRID |
CALL MDS_FACEF_READ_RS(fName,fp,17,angleCosC,bi,bj,myThid) |
|
./model/src/ini_curvilinear_grid.F |
345 |
INI_CURVILINEAR_GRID |
CALL MDS_FACEF_READ_RS(fName,fp,18,angleSinC,bi,bj,myThid) |
|
./model/src/ini_curvilinear_grid.F |
52 |
INI_CURVILINEAR_GRID |
INTEGER fp |
|
./model/src/ini_curvilinear_grid.F |
75 |
INI_CURVILINEAR_GRID |
fp = readBinaryPrec |
|
./model/src/ini_curvilinear_grid.F |
79 |
INI_CURVILINEAR_GRID |
CALL READ_REC_3D_RS( 'LONC.bin', fp, 1, xC, 1, 0, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
80 |
INI_CURVILINEAR_GRID |
CALL READ_REC_3D_RS( 'LATC.bin', fp, 1, yC, 1, 0, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
84 |
INI_CURVILINEAR_GRID |
CALL READ_REC_3D_RS( 'DXF.bin', fp, 1, dxF, 1, 0, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
85 |
INI_CURVILINEAR_GRID |
CALL READ_REC_3D_RS( 'DYF.bin', fp, 1, dyF, 1, 0, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
88 |
INI_CURVILINEAR_GRID |
CALL READ_REC_3D_RS( 'RA.bin' , fp, 1, rA, 1, 0, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
96 |
INI_CURVILINEAR_GRID |
CALL READ_REC_3D_RS( 'LONG.bin', fp, 1, xG, 1, 0, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
97 |
INI_CURVILINEAR_GRID |
CALL READ_REC_3D_RS( 'LATG.bin', fp, 1, yG, 1, 0, myThid ) |
|
./pkg/shelfice/shelfice_read_pickup.F |
136 |
SHELFICE_READ_PICKUP |
& nj, fp, 1 , nIter0, myThid ) |
|
./pkg/shelfice/shelfice_read_pickup.F |
40 |
SHELFICE_READ_PICKUP |
INTEGER fp |
|
./pkg/shelfice/shelfice_read_pickup.F |
63 |
SHELFICE_READ_PICKUP |
fp = precFloat64 |
|
./pkg/shelfice/shelfice_read_pickup.F |
71 |
SHELFICE_READ_PICKUP |
IF ( nbFields.GE.0 .AND. filePrec.NE.fp ) THEN |
|
./pkg/shelfice/shelfice_read_pickup.F |
76 |
SHELFICE_READ_PICKUP |
& 'file prec.=', filePrec, ' but expecting prec.=', fp |
|
./pkg/shelfice/shelfice_write_pickup.F |
114 |
SHELFICE_WRITE_PICKUP |
CALL MDS_WR_METAFILES( fn, fp, glf, .FALSE., |
|
./pkg/shelfice/shelfice_write_pickup.F |
53 |
SHELFICE_WRITE_PICKUP |
INTEGER j, nj, fp, lChar |
|
./pkg/shelfice/shelfice_write_pickup.F |
69 |
SHELFICE_WRITE_PICKUP |
fp = precFloat64 |
|
./pkg/shelfice/shelfice_write_pickup.F |
81 |
SHELFICE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, 1, ShelficeMass, |
|
./pkg/streamice/adstreamice_invert_surf_forthick.F |
103 |
ADSTRMICE_H_INV |
fp = ETA_GL_PRIME_STREAMICE ( |
|
./pkg/streamice/adstreamice_invert_surf_forthick.F |
114 |
ADSTRMICE_H_INV |
& i_r * (fp-delta)/fp * |
|
./pkg/streamice/adstreamice_invert_surf_forthick.F |
119 |
ADSTRMICE_H_INV |
& i_r * (fp-delta)/fp * |
|
./pkg/streamice/adstreamice_invert_surf_forthick.F |
34 |
ADSTRMICE_H_INV |
_RL resid, f, fp, hf, htmp |
|
./pkg/streamice/streamice_invert_surf_forthick.F |
44 |
STREAMICE_INVERT_SURF_FORTHICK |
_RL resid, f, fp, hf, htmp |
|
./pkg/streamice/streamice_read_pickup.F |
130 |
STREAMICE_READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./pkg/streamice/streamice_read_pickup.F |
136 |
STREAMICE_READ_PICKUP |
& nj, fp, 1 , myIter, myThid ) |
|
./pkg/streamice/streamice_read_pickup.F |
138 |
STREAMICE_READ_PICKUP |
& nj, fp, 1, 1, 1, myIter, myThid ) |
|
./pkg/streamice/streamice_read_pickup.F |
140 |
STREAMICE_READ_PICKUP |
& nj, fp, 1 , myIter, myThid ) |
|
./pkg/streamice/streamice_read_pickup.F |
142 |
STREAMICE_READ_PICKUP |
& nj, fp, 1 , myIter, myThid ) |
|
./pkg/streamice/streamice_read_pickup.F |
144 |
STREAMICE_READ_PICKUP |
& nj, fp, 1 , myIter, myThid ) |
|
./pkg/streamice/streamice_read_pickup.F |
146 |
STREAMICE_READ_PICKUP |
& nj, fp, 1 , myIter, myThid ) |
|
./pkg/streamice/streamice_read_pickup.F |
148 |
STREAMICE_READ_PICKUP |
& nj, fp, 1 , myIter, myThid ) |
|
./pkg/streamice/streamice_read_pickup.F |
152 |
STREAMICE_READ_PICKUP |
& nj, fp, 1 , myIter, myThid ) |
|
./pkg/streamice/streamice_read_pickup.F |
154 |
STREAMICE_READ_PICKUP |
& nj, fp, 1 , myIter, myThid ) |
|
./pkg/streamice/streamice_read_pickup.F |
42 |
STREAMICE_READ_PICKUP |
INTEGER fp |
|
./pkg/streamice/streamice_read_pickup.F |
59 |
STREAMICE_READ_PICKUP |
fp = precFloat64 |
|
./pkg/streamice/streamice_read_pickup.F |
67 |
STREAMICE_READ_PICKUP |
IF ( nbFields.GE.0 .AND. filePrec.NE.fp ) THEN |
|
./pkg/streamice/streamice_read_pickup.F |
72 |
STREAMICE_READ_PICKUP |
& 'file prec.=', filePrec, ' but expecting prec.=', fp |
|
./pkg/streamice/streamice_vel_phistage.F |
128 |
STREAMICE_VEL_PHISTAGE |
+fp |
|
./pkg/streamice/streamice_write_pickup.F |
105 |
STREAMICE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, 1, V_streamice, |
|
./pkg/streamice/streamice_write_pickup.F |
111 |
STREAMICE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, 1, H_streamice, |
|
./pkg/streamice/streamice_write_pickup.F |
117 |
STREAMICE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, 1, tau_beta_eff_streamice, |
|
./pkg/streamice/streamice_write_pickup.F |
123 |
STREAMICE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, 1, visc_streamice, |
|
./pkg/streamice/streamice_write_pickup.F |
130 |
STREAMICE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, 1, streamice_taubx, |
|
./pkg/streamice/streamice_write_pickup.F |
136 |
STREAMICE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, 1, streamice_tauby, |
|
./pkg/streamice/streamice_write_pickup.F |
169 |
STREAMICE_WRITE_PICKUP |
CALL MDS_WR_METAFILES( fn, fp, glf, .FALSE., |
|
./pkg/streamice/streamice_write_pickup.F |
53 |
STREAMICE_WRITE_PICKUP |
INTEGER j, nj, fp, lChar |
|
./pkg/streamice/streamice_write_pickup.F |
69 |
STREAMICE_WRITE_PICKUP |
fp = precFloat64 |
|
./pkg/streamice/streamice_write_pickup.F |
77 |
STREAMICE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr, visc_streamice_full, |
|
./pkg/streamice/streamice_write_pickup.F |
87 |
STREAMICE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, 1, area_shelf_streamice, |
|
./pkg/streamice/streamice_write_pickup.F |
93 |
STREAMICE_WRITE_PICKUP |
CALL WRITE_REC_3D_RS( fn, fp, 1, STREAMICE_hmask, |
|
./pkg/streamice/streamice_write_pickup.F |
99 |
STREAMICE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, 1, U_streamice, |
|
./model/src/read_pickup.F |
104 |
READ_PICKUP |
fp = precFloat64 |
|
./model/src/read_pickup.F |
114 |
READ_PICKUP |
IF ( nbFields.GE.0 .AND. filePrec.NE.fp ) THEN |
|
./model/src/read_pickup.F |
119 |
READ_PICKUP |
& 'file prec.=', filePrec, ' but expecting prec.=', fp |
|
./model/src/read_pickup.F |
168 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, uVel, 1, myIter,myThid ) |
|
./model/src/read_pickup.F |
169 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, gU, 2, myIter,myThid ) |
|
./model/src/read_pickup.F |
170 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, guNm1, 3, myIter,myThid ) |
|
./model/src/read_pickup.F |
171 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, vVel, 4, myIter,myThid ) |
|
./model/src/read_pickup.F |
172 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, gV, 5, myIter,myThid ) |
|
./model/src/read_pickup.F |
173 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, gvNm1, 6, myIter,myThid ) |
|
./model/src/read_pickup.F |
174 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, theta, 7, myIter,myThid ) |
|
./model/src/read_pickup.F |
176 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, gtNm1, 9, myIter,myThid ) |
|
./model/src/read_pickup.F |
177 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, salt, 10, myIter,myThid ) |
|
./model/src/read_pickup.F |
179 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, gsNm1,12, myIter,myThid ) |
|
./model/src/read_pickup.F |
181 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, 1, etaN, |
|
./model/src/read_pickup.F |
185 |
READ_PICKUP |
CALL READ_REC_3D_RL(fn, fp, 1, etaH, |
|
./model/src/read_pickup.F |
194 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, uVel, nj+1, myIter,myThid ) |
|
./model/src/read_pickup.F |
195 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, guNm(1-OLx,1-OLy,1,1,1,1), |
|
./model/src/read_pickup.F |
197 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, guNm(1-OLx,1-OLy,1,1,1,2), |
|
./model/src/read_pickup.F |
200 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, vVel, nj+1, myIter,myThid ) |
|
./model/src/read_pickup.F |
201 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, gvNm(1-OLx,1-OLy,1,1,1,1), |
|
./model/src/read_pickup.F |
203 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, gvNm(1-OLx,1-OLy,1,1,1,2), |
|
./model/src/read_pickup.F |
206 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, theta,nj+1, myIter,myThid ) |
|
./model/src/read_pickup.F |
207 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, gtNm(1-OLx,1-OLy,1,1,1,1), |
|
./model/src/read_pickup.F |
209 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, gtNm(1-OLx,1-OLy,1,1,1,2), |
|
./model/src/read_pickup.F |
212 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, salt, nj+1, myIter,myThid ) |
|
./model/src/read_pickup.F |
213 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, gsNm(1-OLx,1-OLy,1,1,1,1), |
|
./model/src/read_pickup.F |
215 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, gsNm(1-OLx,1-OLy,1,1,1,2), |
|
./model/src/read_pickup.F |
219 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, uVel, 1, myIter,myThid ) |
|
./model/src/read_pickup.F |
220 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, guNm1, 2, myIter,myThid ) |
|
./model/src/read_pickup.F |
221 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, vVel, 3, myIter,myThid ) |
|
./model/src/read_pickup.F |
222 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, gvNm1, 4, myIter,myThid ) |
|
./model/src/read_pickup.F |
223 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, theta, 5, myIter,myThid ) |
|
./model/src/read_pickup.F |
224 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, gtNm1, 6, myIter,myThid ) |
|
./model/src/read_pickup.F |
225 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, salt, 7, myIter,myThid ) |
|
./model/src/read_pickup.F |
226 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, gsNm1, 8, myIter,myThid ) |
|
./model/src/read_pickup.F |
229 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn,fp,1, etaN, nj*Nr+1, myIter,myThid ) |
|
./model/src/read_pickup.F |
232 |
READ_PICKUP |
CALL READ_REC_3D_RL(fn,fp,1,dEtaHdt,nj*Nr+2,myIter,myThid ) |
|
./model/src/read_pickup.F |
235 |
READ_PICKUP |
CALL READ_REC_3D_RL(fn,fp,1, etaH, nj*Nr+3, myIter,myThid ) |
|
./model/src/read_pickup.F |
242 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, totPhiHyd,1,myIter,myThid ) |
|
./model/src/read_pickup.F |
247 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, phi_nh, 1, myIter,myThid ) |
|
./model/src/read_pickup.F |
249 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, gwNm(1-OLx,1-OLy,1,1,1,1), |
|
./model/src/read_pickup.F |
251 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, gwNm(1-OLx,1-OLy,1,1,1,2), |
|
./model/src/read_pickup.F |
254 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, gwNm1, 2, myIter,myThid ) |
|
./model/src/read_pickup.F |
263 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./model/src/read_pickup.F |
265 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./model/src/read_pickup.F |
269 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./model/src/read_pickup.F |
271 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./model/src/read_pickup.F |
275 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./model/src/read_pickup.F |
277 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./model/src/read_pickup.F |
286 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./model/src/read_pickup.F |
290 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./model/src/read_pickup.F |
295 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./model/src/read_pickup.F |
299 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./model/src/read_pickup.F |
306 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./model/src/read_pickup.F |
310 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./model/src/read_pickup.F |
315 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./model/src/read_pickup.F |
319 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./model/src/read_pickup.F |
326 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./model/src/read_pickup.F |
330 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./model/src/read_pickup.F |
335 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./model/src/read_pickup.F |
339 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./model/src/read_pickup.F |
347 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./model/src/read_pickup.F |
351 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./model/src/read_pickup.F |
359 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./model/src/read_pickup.F |
362 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./model/src/read_pickup.F |
367 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./model/src/read_pickup.F |
370 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./model/src/read_pickup.F |
375 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./model/src/read_pickup.F |
378 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./model/src/read_pickup.F |
383 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./model/src/read_pickup.F |
391 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./model/src/read_pickup.F |
396 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./model/src/read_pickup.F |
403 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./model/src/read_pickup.F |
410 |
READ_PICKUP |
& nj, fp, Nr, 1, Nr, myIter, myThid ) |
|
./model/src/read_pickup.F |
417 |
READ_PICKUP |
& nj, fp, 1 , myIter, myThid ) |
|
./model/src/read_pickup.F |
421 |
READ_PICKUP |
& nj, fp, 1 , myIter, myThid ) |
|
./model/src/read_pickup.F |
427 |
READ_PICKUP |
& nj, fp, 1 , myIter, myThid ) |
|
./model/src/read_pickup.F |
431 |
READ_PICKUP |
& nj, fp, 1 , myIter, myThid ) |
|
./model/src/read_pickup.F |
63 |
READ_PICKUP |
INTEGER fp |
|
./model/src/write_pickup.F |
106 |
WRITE_PICKUP |
fp = precFloat64 |
|
./model/src/write_pickup.F |
112 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr, uVel, -j, myIter, myThid ) |
|
./model/src/write_pickup.F |
115 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr, vVel, -j, myIter, myThid ) |
|
./model/src/write_pickup.F |
121 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr, uEulerMean, |
|
./model/src/write_pickup.F |
125 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr, vEulerMean, |
|
./model/src/write_pickup.F |
132 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr, theta, -j, myIter, myThid ) |
|
./model/src/write_pickup.F |
135 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr, salt, -j, myIter, myThid ) |
|
./model/src/write_pickup.F |
145 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr, guNm(1-OLx,1-OLy,1,1,1,m1), |
|
./model/src/write_pickup.F |
151 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr, guNm(1-OLx,1-OLy,1,1,1,m2), |
|
./model/src/write_pickup.F |
158 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr, gvNm(1-OLx,1-OLy,1,1,1,m1), |
|
./model/src/write_pickup.F |
164 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr, gvNm(1-OLx,1-OLy,1,1,1,m2), |
|
./model/src/write_pickup.F |
173 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr, gtNm(1-OLx,1-OLy,1,1,1,m1), |
|
./model/src/write_pickup.F |
182 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr, gtNm(1-OLx,1-OLy,1,1,1,m2), |
|
./model/src/write_pickup.F |
194 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr, gsNm(1-OLx,1-OLy,1,1,1,m1), |
|
./model/src/write_pickup.F |
203 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr, gsNm(1-OLx,1-OLy,1,1,1,m2), |
|
./model/src/write_pickup.F |
216 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr, gwNm(1-OLx,1-OLy,1,1,1,m1), |
|
./model/src/write_pickup.F |
222 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr, gwNm(1-OLx,1-OLy,1,1,1,m2), |
|
./model/src/write_pickup.F |
231 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr, guNm1, -j, myIter, myThid ) |
|
./model/src/write_pickup.F |
234 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr, gvNm1, -j, myIter, myThid ) |
|
./model/src/write_pickup.F |
239 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr, gtNm1, -j, myIter, myThid ) |
|
./model/src/write_pickup.F |
247 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr, gsNm1, -j, myIter, myThid ) |
|
./model/src/write_pickup.F |
256 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr, gwNm1, -j, myIter, myThid ) |
|
./model/src/write_pickup.F |
265 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr,totPhiHyd,-j,myIter, myThid ) |
|
./model/src/write_pickup.F |
271 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr, phi_nh, -j, myIter, myThid ) |
|
./model/src/write_pickup.F |
279 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr, addMass,-j, myIter, myThid ) |
|
./model/src/write_pickup.F |
287 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RS( fn, fp, Nr, frictionHeating, |
|
./model/src/write_pickup.F |
297 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, 1 , etaN, nj, myIter, myThid ) |
|
./model/src/write_pickup.F |
303 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, 1, dPhiNH, nj, myIter, myThid ) |
|
./model/src/write_pickup.F |
311 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, 1, dEtaHdt, nj, myIter, myThid ) |
|
./model/src/write_pickup.F |
319 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, 1, etaHnm1, nj, myIter, myThid ) |
|
./model/src/write_pickup.F |
341 |
WRITE_PICKUP |
CALL MDS_WR_METAFILES( fn, fp, glf, .FALSE., |
|
./model/src/write_pickup.F |
69 |
WRITE_PICKUP |
INTEGER fp |
|
./pkg/atm_compon_interf/atm_cpl_read_pickup.F |
142 |
ATM_CPL_READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, 1, HeatFlux , 6, myIter,myThid ) |
|
./pkg/atm_compon_interf/atm_cpl_read_pickup.F |
143 |
ATM_CPL_READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, 1, qShortWave, 7, myIter,myThid ) |
|
./pkg/atm_compon_interf/atm_cpl_read_pickup.F |
144 |
ATM_CPL_READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, 1, tauX , 8, myIter,myThid ) |
|
./pkg/atm_compon_interf/atm_cpl_read_pickup.F |
145 |
ATM_CPL_READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, 1, tauY , 9, myIter,myThid ) |
|
./pkg/atm_compon_interf/atm_cpl_read_pickup.F |
146 |
ATM_CPL_READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, 1, EvMPrFlux , 10, myIter,myThid ) |
|
./pkg/atm_compon_interf/atm_cpl_read_pickup.F |
148 |
ATM_CPL_READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, 1, RunOffFlux, 11, myIter,myThid ) |
|
./pkg/atm_compon_interf/atm_cpl_read_pickup.F |
149 |
ATM_CPL_READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, 1, RunOffEnFx, 12, myIter,myThid ) |
|
./pkg/atm_compon_interf/atm_cpl_read_pickup.F |
152 |
ATM_CPL_READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, 1, iceSaltFlx, 13, myIter,myThid ) |
|
./pkg/atm_compon_interf/atm_cpl_read_pickup.F |
158 |
ATM_CPL_READ_PICKUP |
CALL READ_REC_3D_RL( fn,fp, 1, airCO2 , 16, myIter,myThid ) |
|
./pkg/atm_compon_interf/atm_cpl_read_pickup.F |
159 |
ATM_CPL_READ_PICKUP |
CALL READ_REC_3D_RL( fn,fp, 1, sWSpeed , 17, myIter,myThid ) |
|
./pkg/atm_compon_interf/atm_cpl_read_pickup.F |
174 |
ATM_CPL_READ_PICKUP |
& nj, fp, 1 , myIter, myThid ) |
|
./pkg/atm_compon_interf/atm_cpl_read_pickup.F |
176 |
ATM_CPL_READ_PICKUP |
& nj, fp, 1 , myIter, myThid ) |
|
./pkg/atm_compon_interf/atm_cpl_read_pickup.F |
178 |
ATM_CPL_READ_PICKUP |
& nj, fp, 1 , myIter, myThid ) |
|
./pkg/atm_compon_interf/atm_cpl_read_pickup.F |
180 |
ATM_CPL_READ_PICKUP |
& nj, fp, 1 , myIter, myThid ) |
|
./pkg/atm_compon_interf/atm_cpl_read_pickup.F |
182 |
ATM_CPL_READ_PICKUP |
& nj, fp, 1 , myIter, myThid ) |
|
./pkg/atm_compon_interf/atm_cpl_read_pickup.F |
186 |
ATM_CPL_READ_PICKUP |
& nj, fp, 1 , myIter, myThid ) |
|
./pkg/atm_compon_interf/atm_cpl_read_pickup.F |
188 |
ATM_CPL_READ_PICKUP |
& nj, fp, 1 , myIter, myThid ) |
|
./pkg/atm_compon_interf/atm_cpl_read_pickup.F |
194 |
ATM_CPL_READ_PICKUP |
& nj, fp, 1 , myIter, myThid ) |
|
./pkg/atm_compon_interf/atm_cpl_read_pickup.F |
198 |
ATM_CPL_READ_PICKUP |
& nj, fp, 1 , myIter, myThid ) |
|
./pkg/atm_compon_interf/atm_cpl_read_pickup.F |
204 |
ATM_CPL_READ_PICKUP |
& nj, fp, 1 , myIter, myThid ) |
|
./pkg/atm_compon_interf/atm_cpl_read_pickup.F |
206 |
ATM_CPL_READ_PICKUP |
& nj, fp, 1 , myIter, myThid ) |
|
./pkg/atm_compon_interf/atm_cpl_read_pickup.F |
48 |
ATM_CPL_READ_PICKUP |
INTEGER fp |
|
./pkg/atm_compon_interf/atm_cpl_read_pickup.F |
72 |
ATM_CPL_READ_PICKUP |
fp = precFloat64 |
|
./pkg/atm_compon_interf/atm_cpl_read_pickup.F |
80 |
ATM_CPL_READ_PICKUP |
IF ( nbFields.GE.0 .AND. filePrec.NE.fp ) THEN |
|
./pkg/atm_compon_interf/atm_cpl_read_pickup.F |
85 |
ATM_CPL_READ_PICKUP |
& 'file prec.=', filePrec, ' but expecting prec.=', fp |
|
./pkg/atm_compon_interf/cpl_write_pickup.F |
102 |
CPL_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, 1, |
|
./pkg/atm_compon_interf/cpl_write_pickup.F |
109 |
CPL_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, 1, |
|
./pkg/atm_compon_interf/cpl_write_pickup.F |
113 |
CPL_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, 1, |
|
./pkg/atm_compon_interf/cpl_write_pickup.F |
121 |
CPL_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, 1, |
|
./pkg/atm_compon_interf/cpl_write_pickup.F |
127 |
CPL_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, 1, |
|
./pkg/atm_compon_interf/cpl_write_pickup.F |
135 |
CPL_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, 1, |
|
./pkg/atm_compon_interf/cpl_write_pickup.F |
139 |
CPL_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, 1, |
|
./pkg/atm_compon_interf/cpl_write_pickup.F |
169 |
CPL_WRITE_PICKUP |
CALL MDS_WR_METAFILES( fn, fp, glf, .FALSE., |
|
./pkg/atm_compon_interf/cpl_write_pickup.F |
57 |
CPL_WRITE_PICKUP |
INTEGER j, nj, fp, lChar |
|
./pkg/atm_compon_interf/cpl_write_pickup.F |
73 |
CPL_WRITE_PICKUP |
fp = precFloat64 |
|
./pkg/atm_compon_interf/cpl_write_pickup.F |
82 |
CPL_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, 1, |
|
./pkg/atm_compon_interf/cpl_write_pickup.F |
87 |
CPL_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, 1, |
|
./pkg/atm_compon_interf/cpl_write_pickup.F |
92 |
CPL_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, 1, |
|
./pkg/atm_compon_interf/cpl_write_pickup.F |
97 |
CPL_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, 1, |
|
./pkg/atm_phys/atm_phys_read_pickup.F |
143 |
ATM_PHYS_READ_PICKUP |
& nj, fp, 1 , myIter, myThid ) |
|
./pkg/atm_phys/atm_phys_read_pickup.F |
44 |
ATM_PHYS_READ_PICKUP |
INTEGER fp |
|
./pkg/atm_phys/atm_phys_read_pickup.F |
70 |
ATM_PHYS_READ_PICKUP |
fp = precFloat64 |
|
./pkg/atm_phys/atm_phys_read_pickup.F |
78 |
ATM_PHYS_READ_PICKUP |
IF ( nbFields.GE.0 .AND. filePrec.NE.fp ) THEN |
|
./pkg/atm_phys/atm_phys_read_pickup.F |
83 |
ATM_PHYS_READ_PICKUP |
& 'file prec.=', filePrec, ' but expecting prec.=', fp |
|
./pkg/atm_phys/atm_phys_write_pickup.F |
110 |
ATM_PHYS_WRITE_PICKUP |
CALL MDS_WR_METAFILES( fn, fp, glf, .FALSE., |
|
./pkg/atm_phys/atm_phys_write_pickup.F |
55 |
ATM_PHYS_WRITE_PICKUP |
INTEGER j, nj, fp, lChar |
|
./pkg/atm_phys/atm_phys_write_pickup.F |
74 |
ATM_PHYS_WRITE_PICKUP |
fp = precFloat64 |
|
./pkg/atm_phys/atm_phys_write_pickup.F |
84 |
ATM_PHYS_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, 1, |
|
./pkg/bbl/bbl_read_pickup.F |
126 |
BBL_READ_PICKUP |
& nj, fp, 1 , myIter, myThid ) |
|
./pkg/bbl/bbl_read_pickup.F |
128 |
BBL_READ_PICKUP |
& nj, fp, 1 , myIter, myThid ) |
|
./pkg/bbl/bbl_read_pickup.F |
130 |
BBL_READ_PICKUP |
& nj, fp, 1 , myIter, myThid ) |
|
./pkg/bbl/bbl_read_pickup.F |
43 |
BBL_READ_PICKUP |
INTEGER fp |
|
./pkg/bbl/bbl_read_pickup.F |
66 |
BBL_READ_PICKUP |
fp = precFloat64 |
|
./pkg/bbl/bbl_read_pickup.F |
74 |
BBL_READ_PICKUP |
IF ( nbFields.GE.0 .AND. filePrec.NE.fp ) THEN |
|
./pkg/bbl/bbl_read_pickup.F |
79 |
BBL_READ_PICKUP |
& 'file prec.=', filePrec, ' but expecting prec.=', fp |
|
./pkg/bbl/bbl_write_pickup.F |
105 |
BBL_WRITE_PICKUP |
CALL MDS_WR_METAFILES( fn, fp, glf, .FALSE., |
|
./pkg/bbl/bbl_write_pickup.F |
53 |
BBL_WRITE_PICKUP |
INTEGER j, fp, lChar |
|
./pkg/bbl/bbl_write_pickup.F |
69 |
BBL_WRITE_PICKUP |
fp = precFloat64 |
|
./pkg/bbl/bbl_write_pickup.F |
76 |
BBL_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, 1, |
|
./pkg/bbl/bbl_write_pickup.F |
81 |
BBL_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, 1, |
|
./pkg/bbl/bbl_write_pickup.F |
86 |
BBL_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, 1, |
|
./pkg/bling/bling_read_pickup.F |
39 |
BLING_READ_PICKUP |
INTEGER fp, ioUnit |
|
./pkg/bling/bling_read_pickup.F |
56 |
BLING_READ_PICKUP |
fp = precFloat64 |
|
./pkg/bling/bling_read_pickup.F |
71 |
BLING_READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, pH, 1, myIter, myThid ) |
|
./pkg/bling/bling_read_pickup.F |
74 |
BLING_READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, irr_mem, 2, myIter, myThid ) |
|
./pkg/bling/bling_read_pickup.F |
75 |
BLING_READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, chl, 3, myIter, myThid ) |
|
./pkg/bling/bling_read_pickup.F |
76 |
BLING_READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, phyto_sm, 4, myIter, myThid ) |
|
./pkg/bling/bling_read_pickup.F |
77 |
BLING_READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, phyto_lg, 5, myIter, myThid ) |
|
./pkg/bling/bling_read_pickup.F |
78 |
BLING_READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, phyto_diaz, 6, myIter, myThid ) |
|
./pkg/cheapaml/cheapaml_read_pickup.F |
136 |
CHEAPAML_READ_PICKUP |
& nj, fp, 1 , myIter, myThid ) |
|
./pkg/cheapaml/cheapaml_read_pickup.F |
138 |
CHEAPAML_READ_PICKUP |
& nj, fp, 1 , myIter, myThid ) |
|
./pkg/cheapaml/cheapaml_read_pickup.F |
142 |
CHEAPAML_READ_PICKUP |
& nj, fp, 1 , myIter, myThid ) |
|
./pkg/cheapaml/cheapaml_read_pickup.F |
144 |
CHEAPAML_READ_PICKUP |
& nj, fp, 1 , myIter, myThid ) |
|
./pkg/cheapaml/cheapaml_read_pickup.F |
148 |
CHEAPAML_READ_PICKUP |
& nj, fp, 1 ,myIter, myThid ) |
|
./pkg/cheapaml/cheapaml_read_pickup.F |
150 |
CHEAPAML_READ_PICKUP |
& nj, fp, 1 ,myIter, myThid ) |
|
./pkg/cheapaml/cheapaml_read_pickup.F |
44 |
CHEAPAML_READ_PICKUP |
INTEGER fp |
|
./pkg/cheapaml/cheapaml_read_pickup.F |
69 |
CHEAPAML_READ_PICKUP |
fp = precFloat64 |
|
./pkg/cheapaml/cheapaml_read_pickup.F |
77 |
CHEAPAML_READ_PICKUP |
IF ( nbFields.GE.0 .AND. filePrec.NE.fp ) THEN |
|
./pkg/cheapaml/cheapaml_read_pickup.F |
82 |
CHEAPAML_READ_PICKUP |
& 'file prec.=', filePrec, ' but expecting prec.=', fp |
|
./pkg/cheapaml/cheapaml_write_pickup.F |
100 |
CHEAPAML_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, 1, |
|
./pkg/cheapaml/cheapaml_write_pickup.F |
108 |
CHEAPAML_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, 1, |
|
./pkg/cheapaml/cheapaml_write_pickup.F |
113 |
CHEAPAML_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, 1, |
|
./pkg/cheapaml/cheapaml_write_pickup.F |
139 |
CHEAPAML_WRITE_PICKUP |
CALL MDS_WR_METAFILES( fn, fp, glf, .FALSE., |
|
./pkg/cheapaml/cheapaml_write_pickup.F |
55 |
CHEAPAML_WRITE_PICKUP |
INTEGER j, nj, fp, lChar |
|
./pkg/cheapaml/cheapaml_write_pickup.F |
71 |
CHEAPAML_WRITE_PICKUP |
fp = precFloat64 |
|
./pkg/cheapaml/cheapaml_write_pickup.F |
83 |
CHEAPAML_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, 1, |
|
./pkg/cheapaml/cheapaml_write_pickup.F |
88 |
CHEAPAML_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, 1, |
|
./pkg/cheapaml/cheapaml_write_pickup.F |
95 |
CHEAPAML_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, 1, |
|
./lsopt/cubic.F |
20 |
CUBIC |
z1 = dble(fp) + dble(fpa) - 3.d0*dble(fa-f)/dble(ta-t) |
|
./lsopt/cubic.F |
21 |
CUBIC |
b = z1 + dble(fp) |
|
./lsopt/cubic.F |
28 |
CUBIC |
discri = z1*z1-dble(fp)*dble(fpa) |
|
./lsopt/cubic.F |
2 |
CUBIC |
subroutine CUBIC( t, f, fp, ta, fa, fpa, tlower, tupper ) |
|
./lsopt/cubic.F |
30 |
CUBIC |
if (fp.lt.0.) t = tupper |
|
./lsopt/cubic.F |
31 |
CUBIC |
if (fp.ge.0.) t = tlower |
|
./lsopt/cubic.F |
37 |
CUBIC |
discri = dble(fp)/z1 |
|
./lsopt/cubic.F |
45 |
CUBIC |
if (fp.lt.0.) t = tupper |
|
./lsopt/cubic.F |
46 |
CUBIC |
if (fp.ge.0.) t = tlower |
|
./lsopt/cubic.F |
61 |
CUBIC |
t = t + fp*(ta-t)/sngl(b+discri) |
|
./lsopt/cubic.F |
7 |
CUBIC |
double precision t, f, fp, ta, fa, fpa, tlower, tupper |
|
./lsopt/lsline.F |
131 |
LSLINE |
fp = DDOT( nn, dd, 1, gg, 1 ) |
|
./lsopt/lsline.F |
146 |
LSLINE |
if (fp .gt. xpara2*dotdg) then |
|
./lsopt/lsline.F |
183 |
LSLINE |
call CUBIC( tact, fnew, fp, ta, fa, fpa, left, right ) |
|
./lsopt/lsline.F |
206 |
LSLINE |
call CUBIC( tact, fnew, fp, ta, fa, fpa, left, right ) |
|
./lsopt/lsline.F |
227 |
LSLINE |
fpa = fp |
|
./lsopt/lsline.F |
83 |
LSLINE |
double precision fa, fpa, fp |
|
./pkg/dic/dic_read_co2_pickup.F |
30 |
DIC_READ_CO2_PICKUP |
INTEGER fp, ioUnit |
|
./pkg/dic/dic_read_co2_pickup.F |
51 |
DIC_READ_CO2_PICKUP |
fp = precFloat64 |
|
./pkg/dic/dic_read_co2_pickup.F |
71 |
DIC_READ_CO2_PICKUP |
length_of_rec = MDS_RECLEN( fp, 2, myThid ) |
|
./pkg/dic/dic_read_pickup.F |
33 |
DIC_READ_PICKUP |
INTEGER fp, ioUnit |
|
./pkg/dic/dic_read_pickup.F |
50 |
DIC_READ_PICKUP |
fp = precFloat64 |
|
./pkg/dic/dic_read_pickup.F |
65 |
DIC_READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, 1, pH, 1, myIter, myThid ) |