| File |
Line number |
Procedure |
Code |
|
./pkg/mypackage/mypackage_read_pickup.F |
134 |
MYPACKAGE_READ_PICKUP |
nj = 0 |
|
./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 |
146 |
MYPACKAGE_READ_PICKUP |
nj = nj*Nr |
|
./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 |
175 |
MYPACKAGE_READ_PICKUP |
& 'cannot restart without field "',missFldList(nj),'"' |
|
./pkg/mypackage/mypackage_read_pickup.F |
47 |
MYPACKAGE_READ_PICKUP |
INTEGER j, nj, ioUnit |
|
./pkg/mypackage/mypackage_write_pickup.F |
103 |
MYPACKAGE_WRITE_PICKUP |
nj = nj-1 |
|
./pkg/mypackage/mypackage_write_pickup.F |
105 |
MYPACKAGE_WRITE_PICKUP |
& myPa_Surf1, nj, myIter, myThid ) |
|
./pkg/mypackage/mypackage_write_pickup.F |
109 |
MYPACKAGE_WRITE_PICKUP |
nj = nj-1 |
|
./pkg/mypackage/mypackage_write_pickup.F |
111 |
MYPACKAGE_WRITE_PICKUP |
& myPa_Surf2, nj, myIter, myThid ) |
|
./pkg/mypackage/mypackage_write_pickup.F |
130 |
MYPACKAGE_WRITE_PICKUP |
nj = ABS(nj) |
|
./pkg/mypackage/mypackage_write_pickup.F |
131 |
MYPACKAGE_WRITE_PICKUP |
IF ( nWrFlds*Nr .EQ. nj ) THEN |
|
./pkg/mypackage/mypackage_write_pickup.F |
133 |
MYPACKAGE_WRITE_PICKUP |
nj = nWrFlds |
|
./pkg/mypackage/mypackage_write_pickup.F |
141 |
MYPACKAGE_WRITE_PICKUP |
& nj, myIter, myThid ) |
|
./pkg/mypackage/mypackage_write_pickup.F |
55 |
MYPACKAGE_WRITE_PICKUP |
INTEGER j, nj, fp, lChar |
|
./pkg/mypackage/mypackage_write_pickup.F |
99 |
MYPACKAGE_WRITE_PICKUP |
nj = -j*Nr |
|
./pkg/ptracers/ptracers_read_pickup.F |
225 |
PTRACERS_READ_PICKUP |
nj = 0 |
|
./pkg/ptracers/ptracers_read_pickup.F |
231 |
PTRACERS_READ_PICKUP |
& nj, prec, Nr, myIter, myThid ) |
|
./pkg/ptracers/ptracers_read_pickup.F |
245 |
PTRACERS_READ_PICKUP |
& nj, prec, Nr, myIter, myThid ) |
|
./pkg/ptracers/ptracers_read_pickup.F |
54 |
PTRACERS_READ_PICKUP |
INTEGER nj, ioUnit |
|
./pkg/rw/read_mflds.F |
244 |
READ_MFLDS_3D_RL |
U nj, |
|
./pkg/rw/read_mflds.F |
271 |
READ_MFLDS_3D_RL |
INTEGER nj |
|
./pkg/rw/read_mflds.F |
307 |
READ_MFLDS_3D_RL |
nj = 0 |
|
./pkg/rw/read_mflds.F |
309 |
READ_MFLDS_3D_RL |
IF ( fldName.EQ.fldList(j) .AND. nj.EQ.0 ) nj = j |
|
./pkg/rw/read_mflds.F |
311 |
READ_MFLDS_3D_RL |
IF ( nj.EQ.0 ) THEN |
|
./pkg/rw/read_mflds.F |
327 |
READ_MFLDS_3D_RL |
j = nj |
|
./pkg/rw/read_mflds.F |
328 |
READ_MFLDS_3D_RL |
IF ( nj.GT.nFl3D ) nj = nj + nFl3D*(thirdDim-1) |
|
./pkg/rw/read_mflds.F |
331 |
READ_MFLDS_3D_RL |
& 'read field: "',fldName,'", #',j,' in fldList, rec=',nj |
|
./pkg/rw/read_mflds.F |
335 |
READ_MFLDS_3D_RL |
ELSEIF ( nj.GE.0 ) THEN |
|
./pkg/rw/read_mflds.F |
337 |
READ_MFLDS_3D_RL |
nj = nj + 1 |
|
./pkg/rw/read_mflds.F |
340 |
READ_MFLDS_3D_RL |
& 'no fldList, try to read field "',fldName, '", rec=',nj |
|
./pkg/rw/read_mflds.F |
345 |
READ_MFLDS_3D_RL |
IF ( nj.GE.1 ) THEN |
|
./pkg/rw/read_mflds.F |
355 |
READ_MFLDS_3D_RL |
I nj, myThid ) |
|
./pkg/rw/read_mflds.F |
370 |
READ_MFLDS_LEV_RL |
U nj, |
|
./pkg/rw/read_mflds.F |
400 |
READ_MFLDS_LEV_RL |
INTEGER nj |
|
./pkg/rw/read_mflds.F |
436 |
READ_MFLDS_LEV_RL |
nj = 0 |
|
./pkg/rw/read_mflds.F |
438 |
READ_MFLDS_LEV_RL |
IF ( fldName.EQ.fldList(j) .AND. nj.EQ.0 ) nj = j |
|
./pkg/rw/read_mflds.F |
440 |
READ_MFLDS_LEV_RL |
IF ( nj.EQ.0 ) THEN |
|
./pkg/rw/read_mflds.F |
456 |
READ_MFLDS_LEV_RL |
j = nj |
|
./pkg/rw/read_mflds.F |
457 |
READ_MFLDS_LEV_RL |
IF ( nj.GT.nFl3D ) nj = nj + nFl3D*(thirdDim-1) |
|
./pkg/rw/read_mflds.F |
460 |
READ_MFLDS_LEV_RL |
& 'read field: "',fldName,'", #',j,' in fldList, rec=',nj |
|
./pkg/rw/read_mflds.F |
464 |
READ_MFLDS_LEV_RL |
ELSEIF ( nj.GE.0 ) THEN |
|
./pkg/rw/read_mflds.F |
466 |
READ_MFLDS_LEV_RL |
nj = nj + 1 |
|
./pkg/rw/read_mflds.F |
469 |
READ_MFLDS_LEV_RL |
& 'no fldList, try to read field "',fldName, '", rec=',nj |
|
./pkg/rw/read_mflds.F |
474 |
READ_MFLDS_LEV_RL |
IF ( nj.GE.1 ) THEN |
|
./pkg/rw/read_mflds.F |
484 |
READ_MFLDS_LEV_RL |
I nj, myThid ) |
|
./pkg/rw/read_mflds.F |
499 |
READ_MFLDS_LEV_RS |
U nj, |
|
./pkg/rw/read_mflds.F |
529 |
READ_MFLDS_LEV_RS |
INTEGER nj |
|
./pkg/rw/read_mflds.F |
565 |
READ_MFLDS_LEV_RS |
nj = 0 |
|
./pkg/rw/read_mflds.F |
567 |
READ_MFLDS_LEV_RS |
IF ( fldName.EQ.fldList(j) .AND. nj.EQ.0 ) nj = j |
|
./pkg/rw/read_mflds.F |
569 |
READ_MFLDS_LEV_RS |
IF ( nj.EQ.0 ) THEN |
|
./pkg/rw/read_mflds.F |
585 |
READ_MFLDS_LEV_RS |
j = nj |
|
./pkg/rw/read_mflds.F |
586 |
READ_MFLDS_LEV_RS |
IF ( nj.GT.nFl3D ) nj = nj + nFl3D*(thirdDim-1) |
|
./pkg/rw/read_mflds.F |
589 |
READ_MFLDS_LEV_RS |
& 'read field: "',fldName,'", #',j,' in fldList, rec=',nj |
|
./pkg/rw/read_mflds.F |
593 |
READ_MFLDS_LEV_RS |
ELSEIF ( nj.GE.0 ) THEN |
|
./pkg/rw/read_mflds.F |
595 |
READ_MFLDS_LEV_RS |
nj = nj + 1 |
|
./pkg/rw/read_mflds.F |
598 |
READ_MFLDS_LEV_RS |
& 'no fldList, try to read field "',fldName, '", rec=',nj |
|
./pkg/rw/read_mflds.F |
603 |
READ_MFLDS_LEV_RS |
IF ( nj.GE.1 ) THEN |
|
./pkg/rw/read_mflds.F |
613 |
READ_MFLDS_LEV_RS |
I nj, myThid ) |
|
./pkg/rw/read_mflds.F |
663 |
READ_MFLDS_CHECK |
INTEGER i, j, nj, iL, ioUnit |
|
./pkg/rw/read_mflds.F |
707 |
READ_MFLDS_CHECK |
nj = MIN( nMissFld, sizFldList ) |
|
./pkg/rw/read_mflds.F |
708 |
READ_MFLDS_CHECK |
DO j=1,nj,20 |
|
./pkg/rw/read_mflds.F |
710 |
READ_MFLDS_CHECK |
& (' >', fldMiss(i), '<', i=j,MIN(j+19,nj) ) |
|
./pkg/rw/read_mflds.F |
725 |
READ_MFLDS_CHECK |
nj = MIN( nMissFld, nbErr ) |
|
./pkg/rw/read_mflds.F |
726 |
READ_MFLDS_CHECK |
DO j=1,nj |
|
./pkg/seaice/seaice_check_pickup.F |
55 |
SEAICE_CHECK_PICKUP |
INTEGER nj, ioUnit |
|
./pkg/seaice/seaice_check_pickup.F |
80 |
SEAICE_CHECK_PICKUP |
DO nj=1,nMissing |
|
./pkg/seaice/seaice_check_pickup.F |
81 |
SEAICE_CHECK_PICKUP |
IF ( missFldList(nj).EQ.'siTICES ' ) tIceFlag = tIceFlag + 2 |
|
./pkg/seaice/seaice_check_pickup.F |
82 |
SEAICE_CHECK_PICKUP |
IF ( missFldList(nj).EQ.'siTICE ' ) tIceFlag = tIceFlag + 1 |
|
./pkg/seaice/seaice_check_pickup.F |
91 |
SEAICE_CHECK_PICKUP |
DO nj=1,nMissing |
|
./pkg/seaice/seaice_check_pickup.F |
92 |
SEAICE_CHECK_PICKUP |
fldName = missFldList(nj) |
|
./pkg/seaice/seaice_read_pickup.F |
144 |
SEAICE_READ_PICKUP |
nj = 1 |
|
./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 |
147 |
SEAICE_READ_PICKUP |
nj = nj + nITD |
|
./pkg/seaice/seaice_read_pickup.F |
151 |
SEAICE_READ_PICKUP |
I nj, nIter0, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
152 |
SEAICE_READ_PICKUP |
nj = nj + 1 |
|
./pkg/seaice/seaice_read_pickup.F |
154 |
SEAICE_READ_PICKUP |
nj = nj + 1 |
|
./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 |
156 |
SEAICE_READ_PICKUP |
nj = nj + 1 |
|
./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 |
158 |
SEAICE_READ_PICKUP |
nj = nj + 3 |
|
./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 |
160 |
SEAICE_READ_PICKUP |
nj = nj + 3 |
|
./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 |
162 |
SEAICE_READ_PICKUP |
nj = nj + 3 |
|
./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 |
164 |
SEAICE_READ_PICKUP |
nj = nj + 3 |
|
./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 |
173 |
SEAICE_READ_PICKUP |
nj = nj + 1 |
|
./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 |
175 |
SEAICE_READ_PICKUP |
nj = nj + 1 |
|
./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 |
177 |
SEAICE_READ_PICKUP |
nj = nj + 1 |
|
./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 |
182 |
SEAICE_READ_PICKUP |
nj = nj + 1 |
|
./pkg/seaice/seaice_read_pickup.F |
187 |
SEAICE_READ_PICKUP |
nj = 0 |
|
./pkg/seaice/seaice_read_pickup.F |
192 |
SEAICE_READ_PICKUP |
& nj, fp, nITD, nIter0, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
193 |
SEAICE_READ_PICKUP |
nj = nj*nITD |
|
./pkg/seaice/seaice_read_pickup.F |
194 |
SEAICE_READ_PICKUP |
IF ( nj.EQ.0 ) THEN |
|
./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 |
204 |
SEAICE_READ_PICKUP |
IF ( nj.EQ.0 ) THEN |
|
./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 |
213 |
SEAICE_READ_PICKUP |
IF ( nj.EQ.0 ) THEN |
|
./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 |
56 |
SEAICE_READ_PICKUP |
INTEGER nj, ioUnit |
|
./pkg/seaice/seaice_write_pickup.F |
103 |
SEAICE_WRITE_PICKUP |
nj = nj-1 |
|
./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 |
109 |
SEAICE_WRITE_PICKUP |
nj = nj-nITD+1 |
|
./pkg/seaice/seaice_write_pickup.F |
112 |
SEAICE_WRITE_PICKUP |
I nj, myIter, myThid ) |
|
./pkg/seaice/seaice_write_pickup.F |
118 |
SEAICE_WRITE_PICKUP |
nj = nj-1 |
|
./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 |
122 |
SEAICE_WRITE_PICKUP |
nj = nj-1 |
|
./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 |
126 |
SEAICE_WRITE_PICKUP |
nj = nj-1 |
|
./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 |
134 |
SEAICE_WRITE_PICKUP |
nj = nj-1 |
|
./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 |
142 |
SEAICE_WRITE_PICKUP |
nj = nj-1 |
|
./pkg/seaice/seaice_write_pickup.F |
145 |
SEAICE_WRITE_PICKUP |
& nj, myIter, myThid ) |
|
./pkg/seaice/seaice_write_pickup.F |
153 |
SEAICE_WRITE_PICKUP |
nj = nj-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 |
158 |
SEAICE_WRITE_PICKUP |
nj = nj-1 |
|
./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 |
164 |
SEAICE_WRITE_PICKUP |
nj = nj-1 |
|
./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 |
169 |
SEAICE_WRITE_PICKUP |
nj = nj-1 |
|
./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 |
176 |
SEAICE_WRITE_PICKUP |
nj = nj-1 |
|
./pkg/seaice/seaice_write_pickup.F |
178 |
SEAICE_WRITE_PICKUP |
& nj, myIter, myThid ) |
|
./pkg/seaice/seaice_write_pickup.F |
182 |
SEAICE_WRITE_PICKUP |
nj = nj-1 |
|
./pkg/seaice/seaice_write_pickup.F |
184 |
SEAICE_WRITE_PICKUP |
& nj, myIter, myThid ) |
|
./pkg/seaice/seaice_write_pickup.F |
188 |
SEAICE_WRITE_PICKUP |
nj = nj-1 |
|
./pkg/seaice/seaice_write_pickup.F |
190 |
SEAICE_WRITE_PICKUP |
& nj, myIter, myThid ) |
|
./pkg/seaice/seaice_write_pickup.F |
208 |
SEAICE_WRITE_PICKUP |
nj = ABS(nj) |
|
./pkg/seaice/seaice_write_pickup.F |
215 |
SEAICE_WRITE_PICKUP |
& nj, myIter, myThid ) |
|
./pkg/seaice/seaice_write_pickup.F |
62 |
SEAICE_WRITE_PICKUP |
INTEGER j, nj |
|
./pkg/seaice/seaice_write_pickup.F |
77 |
SEAICE_WRITE_PICKUP |
nj = 0 |
|
./pkg/seaice/seaice_write_pickup.F |
98 |
SEAICE_WRITE_PICKUP |
nj = -j*nITD |
|
./pkg/shelfice/shelfice_read_pickup.F |
130 |
SHELFICE_READ_PICKUP |
nj = 0 |
|
./pkg/shelfice/shelfice_read_pickup.F |
132 |
SHELFICE_READ_PICKUP |
nj = nj*Nr |
|
./pkg/shelfice/shelfice_read_pickup.F |
136 |
SHELFICE_READ_PICKUP |
& nj, fp, 1 , nIter0, myThid ) |
|
./pkg/shelfice/shelfice_read_pickup.F |
158 |
SHELFICE_READ_PICKUP |
& 'cannot restart without field "',missFldList(nj),'"' |
|
./pkg/shelfice/shelfice_read_pickup.F |
43 |
SHELFICE_READ_PICKUP |
INTEGER j, nj, ioUnit |
|
./pkg/shelfice/shelfice_write_pickup.F |
107 |
SHELFICE_WRITE_PICKUP |
nj = ABS(nj) |
|
./pkg/shelfice/shelfice_write_pickup.F |
108 |
SHELFICE_WRITE_PICKUP |
IF ( nWrFlds*Nr .EQ. nj ) THEN |
|
./pkg/shelfice/shelfice_write_pickup.F |
110 |
SHELFICE_WRITE_PICKUP |
nj = nWrFlds |
|
./pkg/shelfice/shelfice_write_pickup.F |
118 |
SHELFICE_WRITE_PICKUP |
& nj, myIter, myThid ) |
|
./pkg/shelfice/shelfice_write_pickup.F |
53 |
SHELFICE_WRITE_PICKUP |
INTEGER j, nj, fp, lChar |
|
./pkg/shelfice/shelfice_write_pickup.F |
77 |
SHELFICE_WRITE_PICKUP |
nj = -j*Nr |
|
./pkg/shelfice/shelfice_write_pickup.F |
80 |
SHELFICE_WRITE_PICKUP |
nj = nj-1 |
|
./pkg/shelfice/shelfice_write_pickup.F |
82 |
SHELFICE_WRITE_PICKUP |
& nj, myIter, myThid ) |
|
./pkg/streamice/streamice_read_pickup.F |
126 |
STREAMICE_READ_PICKUP |
nj = 0 |
|
./pkg/streamice/streamice_read_pickup.F |
130 |
STREAMICE_READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./pkg/streamice/streamice_read_pickup.F |
132 |
STREAMICE_READ_PICKUP |
nj = nj*Nr |
|
./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 |
177 |
STREAMICE_READ_PICKUP |
& 'cannot restart without field "',missFldList(nj),'"' |
|
./pkg/streamice/streamice_read_pickup.F |
45 |
STREAMICE_READ_PICKUP |
INTEGER j, nj, ioUnit |
|
./pkg/streamice/streamice_write_pickup.F |
100 |
STREAMICE_WRITE_PICKUP |
& nj, myIter, myThid ) |
|
./pkg/streamice/streamice_write_pickup.F |
104 |
STREAMICE_WRITE_PICKUP |
nj = nj-1 |
|
./pkg/streamice/streamice_write_pickup.F |
106 |
STREAMICE_WRITE_PICKUP |
& nj, myIter, myThid ) |
|
./pkg/streamice/streamice_write_pickup.F |
110 |
STREAMICE_WRITE_PICKUP |
nj = nj-1 |
|
./pkg/streamice/streamice_write_pickup.F |
112 |
STREAMICE_WRITE_PICKUP |
& nj, myIter, myThid ) |
|
./pkg/streamice/streamice_write_pickup.F |
116 |
STREAMICE_WRITE_PICKUP |
nj = nj-1 |
|
./pkg/streamice/streamice_write_pickup.F |
118 |
STREAMICE_WRITE_PICKUP |
& nj, myIter, myThid ) |
|
./pkg/streamice/streamice_write_pickup.F |
122 |
STREAMICE_WRITE_PICKUP |
nj = nj-1 |
|
./pkg/streamice/streamice_write_pickup.F |
124 |
STREAMICE_WRITE_PICKUP |
& nj, myIter, myThid ) |
|
./pkg/streamice/streamice_write_pickup.F |
129 |
STREAMICE_WRITE_PICKUP |
nj = nj-1 |
|
./pkg/streamice/streamice_write_pickup.F |
131 |
STREAMICE_WRITE_PICKUP |
& nj, myIter, myThid ) |
|
./pkg/streamice/streamice_write_pickup.F |
135 |
STREAMICE_WRITE_PICKUP |
nj = nj-1 |
|
./pkg/streamice/streamice_write_pickup.F |
137 |
STREAMICE_WRITE_PICKUP |
& nj, myIter, myThid ) |
|
./pkg/streamice/streamice_write_pickup.F |
162 |
STREAMICE_WRITE_PICKUP |
nj = ABS(nj) |
|
./pkg/streamice/streamice_write_pickup.F |
163 |
STREAMICE_WRITE_PICKUP |
IF ( nWrFlds*Nr .EQ. nj ) THEN |
|
./pkg/streamice/streamice_write_pickup.F |
165 |
STREAMICE_WRITE_PICKUP |
nj = nWrFlds |
|
./pkg/streamice/streamice_write_pickup.F |
173 |
STREAMICE_WRITE_PICKUP |
& nj, myIter, myThid ) |
|
./pkg/streamice/streamice_write_pickup.F |
53 |
STREAMICE_WRITE_PICKUP |
INTEGER j, nj, fp, lChar |
|
./pkg/streamice/streamice_write_pickup.F |
83 |
STREAMICE_WRITE_PICKUP |
nj = -j*Nr |
|
./pkg/streamice/streamice_write_pickup.F |
86 |
STREAMICE_WRITE_PICKUP |
nj = nj-1 |
|
./pkg/streamice/streamice_write_pickup.F |
88 |
STREAMICE_WRITE_PICKUP |
& nj, myIter, myThid ) |
|
./pkg/streamice/streamice_write_pickup.F |
92 |
STREAMICE_WRITE_PICKUP |
nj = nj-1 |
|
./pkg/streamice/streamice_write_pickup.F |
94 |
STREAMICE_WRITE_PICKUP |
& nj, myIter, myThid ) |
|
./pkg/streamice/streamice_write_pickup.F |
98 |
STREAMICE_WRITE_PICKUP |
nj = nj-1 |
|
./model/src/read_pickup.F |
193 |
READ_PICKUP |
nj = 0 |
|
./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 |
196 |
READ_PICKUP |
& nj+2, myIter,myThid ) |
|
./model/src/read_pickup.F |
198 |
READ_PICKUP |
& nj+j, myIter,myThid ) |
|
./model/src/read_pickup.F |
199 |
READ_PICKUP |
nj = j |
|
./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 |
202 |
READ_PICKUP |
& nj+2, myIter,myThid ) |
|
./model/src/read_pickup.F |
204 |
READ_PICKUP |
& nj+j, myIter,myThid ) |
|
./model/src/read_pickup.F |
205 |
READ_PICKUP |
nj = 2*j |
|
./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 |
208 |
READ_PICKUP |
& nj+2, myIter,myThid ) |
|
./model/src/read_pickup.F |
210 |
READ_PICKUP |
& nj+j, myIter,myThid ) |
|
./model/src/read_pickup.F |
211 |
READ_PICKUP |
nj = 3*j |
|
./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 |
214 |
READ_PICKUP |
& nj+2, myIter,myThid ) |
|
./model/src/read_pickup.F |
216 |
READ_PICKUP |
& nj+j, myIter,myThid ) |
|
./model/src/read_pickup.F |
217 |
READ_PICKUP |
nj = 4*j |
|
./model/src/read_pickup.F |
227 |
READ_PICKUP |
nj = 8 |
|
./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 |
260 |
READ_PICKUP |
nj = 0 |
|
./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 |
415 |
READ_PICKUP |
nj = nj*Nr |
|
./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 |
73 |
READ_PICKUP |
INTEGER j, nj, ioUnit |
|
./model/src/write_pickup.F |
296 |
WRITE_PICKUP |
nj = -( n3D*(Nr-1) + j ) |
|
./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 |
302 |
WRITE_PICKUP |
nj = -( n3D*(Nr-1) + j ) |
|
./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 |
310 |
WRITE_PICKUP |
nj = -( n3D*(Nr-1) + j ) |
|
./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 |
318 |
WRITE_PICKUP |
nj = -( n3D*(Nr-1) + j ) |
|
./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 |
338 |
WRITE_PICKUP |
nj = ABS(nj) |
|
./model/src/write_pickup.F |
345 |
WRITE_PICKUP |
& nj, myIter, myThid ) |
|
./model/src/write_pickup.F |
79 |
WRITE_PICKUP |
INTEGER j, nj |
|
./pkg/atm_compon_interf/atm_cpl_read_pickup.F |
168 |
ATM_CPL_READ_PICKUP |
nj = 0 |
|
./pkg/atm_compon_interf/atm_cpl_read_pickup.F |
170 |
ATM_CPL_READ_PICKUP |
nj = nj*Nr |
|
./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 |
230 |
ATM_CPL_READ_PICKUP |
& 'cannot restart without field "',missFldList(nj),'"' |
|
./pkg/atm_compon_interf/atm_cpl_read_pickup.F |
51 |
ATM_CPL_READ_PICKUP |
INTEGER j, nj, ioUnit |
|
./pkg/atm_compon_interf/cpl_write_pickup.F |
145 |
CPL_WRITE_PICKUP |
nj = -j |
|
./pkg/atm_compon_interf/cpl_write_pickup.F |
162 |
CPL_WRITE_PICKUP |
nj = ABS(nj) |
|
./pkg/atm_compon_interf/cpl_write_pickup.F |
163 |
CPL_WRITE_PICKUP |
IF ( nWrFlds*Nr .EQ. nj ) THEN |
|
./pkg/atm_compon_interf/cpl_write_pickup.F |
165 |
CPL_WRITE_PICKUP |
nj = nWrFlds |
|
./pkg/atm_compon_interf/cpl_write_pickup.F |
173 |
CPL_WRITE_PICKUP |
& nj, myIter, myThid ) |
|
./pkg/atm_compon_interf/cpl_write_pickup.F |
57 |
CPL_WRITE_PICKUP |
INTEGER j, nj, fp, lChar |
|
./pkg/atm_phys/atm_phys_read_pickup.F |
137 |
ATM_PHYS_READ_PICKUP |
nj = 0 |
|
./pkg/atm_phys/atm_phys_read_pickup.F |
140 |
ATM_PHYS_READ_PICKUP |
nj = nj*Nr |
|
./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 |
165 |
ATM_PHYS_READ_PICKUP |
& 'cannot restart without field "',missFldList(nj),'"' |
|
./pkg/atm_phys/atm_phys_read_pickup.F |
47 |
ATM_PHYS_READ_PICKUP |
INTEGER j, nj, ioUnit |
|
./pkg/atm_phys/atm_phys_write_pickup.F |
103 |
ATM_PHYS_WRITE_PICKUP |
nj = ABS(nj) |
|
./pkg/atm_phys/atm_phys_write_pickup.F |
104 |
ATM_PHYS_WRITE_PICKUP |
IF ( nWrFlds*Nr .EQ. nj ) THEN |
|
./pkg/atm_phys/atm_phys_write_pickup.F |
106 |
ATM_PHYS_WRITE_PICKUP |
nj = nWrFlds |
|
./pkg/atm_phys/atm_phys_write_pickup.F |
114 |
ATM_PHYS_WRITE_PICKUP |
& nj, myIter, myThid ) |
|
./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 |
80 |
ATM_PHYS_WRITE_PICKUP |
nj = -j*Nr |
|
./pkg/atm_phys/atm_phys_write_pickup.F |
83 |
ATM_PHYS_WRITE_PICKUP |
nj = nj-1 |
|
./pkg/atm_phys/atm_phys_write_pickup.F |
85 |
ATM_PHYS_WRITE_PICKUP |
& atmPhys_SST, nj, myIter, myThid ) |
|
./pkg/bbl/bbl_read_pickup.F |
123 |
BBL_READ_PICKUP |
nj = 0 |
|
./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 |
151 |
BBL_READ_PICKUP |
& 'cannot restart without field "',missFldList(nj),'"' |
|
./pkg/bbl/bbl_read_pickup.F |
46 |
BBL_READ_PICKUP |
INTEGER j, nj, ioUnit |
|
./pkg/bling/bling_write_pickup.F |
48 |
BLING_WRITE_PICKUP |
INTEGER j, nj |
|
./pkg/cheapaml/cheapaml_read_pickup.F |
132 |
CHEAPAML_READ_PICKUP |
nj = 0 |
|
./pkg/cheapaml/cheapaml_read_pickup.F |
133 |
CHEAPAML_READ_PICKUP |
nj = nj*Nr |
|
./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 |
183 |
CHEAPAML_READ_PICKUP |
& 'cannot restart without field "',missFldList(nj),'"' |
|
./pkg/cheapaml/cheapaml_read_pickup.F |
47 |
CHEAPAML_READ_PICKUP |
INTEGER j, nj, ioUnit |
|
./pkg/cheapaml/cheapaml_write_pickup.F |
101 |
CHEAPAML_WRITE_PICKUP |
& gqairm, nj, myIter, myThid ) |
|
./pkg/cheapaml/cheapaml_write_pickup.F |
107 |
CHEAPAML_WRITE_PICKUP |
nj = nj-1 |
|
./pkg/cheapaml/cheapaml_write_pickup.F |
109 |
CHEAPAML_WRITE_PICKUP |
& Cheaptracer, nj, myIter, myThid ) |
|
./pkg/cheapaml/cheapaml_write_pickup.F |
112 |
CHEAPAML_WRITE_PICKUP |
nj = nj-1 |
|
./pkg/cheapaml/cheapaml_write_pickup.F |
114 |
CHEAPAML_WRITE_PICKUP |
& gCheaptracerm, nj, myIter, myThid ) |
|
./pkg/cheapaml/cheapaml_write_pickup.F |
132 |
CHEAPAML_WRITE_PICKUP |
nj = ABS(nj) |
|
./pkg/cheapaml/cheapaml_write_pickup.F |
133 |
CHEAPAML_WRITE_PICKUP |
IF ( nWrFlds*Nr .EQ. nj ) THEN |
|
./pkg/cheapaml/cheapaml_write_pickup.F |
135 |
CHEAPAML_WRITE_PICKUP |
nj = nWrFlds |
|
./pkg/cheapaml/cheapaml_write_pickup.F |
143 |
CHEAPAML_WRITE_PICKUP |
& nj, myIter, myThid ) |
|
./pkg/cheapaml/cheapaml_write_pickup.F |
55 |
CHEAPAML_WRITE_PICKUP |
INTEGER j, nj, fp, lChar |
|
./pkg/cheapaml/cheapaml_write_pickup.F |
79 |
CHEAPAML_WRITE_PICKUP |
nj = -j*Nr |
|
./pkg/cheapaml/cheapaml_write_pickup.F |
82 |
CHEAPAML_WRITE_PICKUP |
nj = nj-1 |
|
./pkg/cheapaml/cheapaml_write_pickup.F |
84 |
CHEAPAML_WRITE_PICKUP |
& Tair, nj, myIter, myThid ) |
|
./pkg/cheapaml/cheapaml_write_pickup.F |
87 |
CHEAPAML_WRITE_PICKUP |
nj = nj-1 |
|
./pkg/cheapaml/cheapaml_write_pickup.F |
89 |
CHEAPAML_WRITE_PICKUP |
& gTairm, nj, myIter, myThid ) |
|
./pkg/cheapaml/cheapaml_write_pickup.F |
94 |
CHEAPAML_WRITE_PICKUP |
nj = nj-1 |
|
./pkg/cheapaml/cheapaml_write_pickup.F |
96 |
CHEAPAML_WRITE_PICKUP |
& qair, nj, myIter, myThid ) |
|
./pkg/cheapaml/cheapaml_write_pickup.F |
99 |
CHEAPAML_WRITE_PICKUP |
nj = nj-1 |
|
./pkg/dic/dic_write_pickup.F |
109 |
DIC_WRITE_PICKUP |
nj = ABS(nj) |
|
./pkg/dic/dic_write_pickup.F |
110 |
DIC_WRITE_PICKUP |
IF ( nWrFlds*Nr .EQ. nj ) THEN |
|
./pkg/dic/dic_write_pickup.F |
112 |
DIC_WRITE_PICKUP |
nj = nWrFlds |
|
./pkg/dic/dic_write_pickup.F |
120 |
DIC_WRITE_PICKUP |
& nj, myIter, myThid ) |
|
./pkg/dic/dic_write_pickup.F |
50 |
DIC_WRITE_PICKUP |
INTEGER j, nj |
|
./pkg/dic/dic_write_pickup.F |
85 |
DIC_WRITE_PICKUP |
nj = -j*Nr |
|
./pkg/dic/dic_write_pickup.F |
89 |
DIC_WRITE_PICKUP |
nj = nj-1 |
|
./pkg/dic/dic_write_pickup.F |
90 |
DIC_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, prec, 1, pH, nj, myIter, myThid ) |