| File |
Line number |
Procedure |
Code |
|
./pkg/mypackage/mypackage_read_pickup.F |
128 |
MYPACKAGE_READ_PICKUP |
nj = 0 |
|
./pkg/mypackage/mypackage_read_pickup.F |
132 |
MYPACKAGE_READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./pkg/mypackage/mypackage_read_pickup.F |
134 |
MYPACKAGE_READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./pkg/mypackage/mypackage_read_pickup.F |
136 |
MYPACKAGE_READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./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 = nj*Nr |
|
./pkg/mypackage/mypackage_read_pickup.F |
144 |
MYPACKAGE_READ_PICKUP |
& nj, fp, 1 , myIter, myThid ) |
|
./pkg/mypackage/mypackage_read_pickup.F |
146 |
MYPACKAGE_READ_PICKUP |
& nj, fp, 1 , myIter, myThid ) |
|
./pkg/mypackage/mypackage_read_pickup.F |
169 |
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 |
219 |
PTRACERS_READ_PICKUP |
nj = 0 |
|
./pkg/ptracers/ptracers_read_pickup.F |
225 |
PTRACERS_READ_PICKUP |
& nj, prec, Nr, myIter, myThid ) |
|
./pkg/ptracers/ptracers_read_pickup.F |
239 |
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 |
139 |
SEAICE_READ_PICKUP |
nj = 1 |
|
./pkg/seaice/seaice_read_pickup.F |
141 |
SEAICE_READ_PICKUP |
CALL READ_REC_3D_RL( fn,fp,nITD, TICES, nj,nIter0,myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
142 |
SEAICE_READ_PICKUP |
nj = nj + nITD |
|
./pkg/seaice/seaice_read_pickup.F |
146 |
SEAICE_READ_PICKUP |
I nj, nIter0, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
147 |
SEAICE_READ_PICKUP |
nj = nj + 1 |
|
./pkg/seaice/seaice_read_pickup.F |
149 |
SEAICE_READ_PICKUP |
nj = nj + 1 |
|
./pkg/seaice/seaice_read_pickup.F |
150 |
SEAICE_READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, 1, HSNOW , nj, nIter0, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
151 |
SEAICE_READ_PICKUP |
nj = nj + 1 |
|
./pkg/seaice/seaice_read_pickup.F |
152 |
SEAICE_READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, 1, UICE , nj, nIter0, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
153 |
SEAICE_READ_PICKUP |
nj = nj + 3 |
|
./pkg/seaice/seaice_read_pickup.F |
154 |
SEAICE_READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, 1, VICE , nj, nIter0, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
155 |
SEAICE_READ_PICKUP |
nj = nj + 3 |
|
./pkg/seaice/seaice_read_pickup.F |
156 |
SEAICE_READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, 1, HEFF , nj, nIter0, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
157 |
SEAICE_READ_PICKUP |
nj = nj + 3 |
|
./pkg/seaice/seaice_read_pickup.F |
158 |
SEAICE_READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, 1, AREA , nj, nIter0, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
159 |
SEAICE_READ_PICKUP |
nj = nj + 3 |
|
./pkg/seaice/seaice_read_pickup.F |
167 |
SEAICE_READ_PICKUP |
CALL READ_REC_3D_RL(fn,fp,1,seaice_sigma1,nj, nIter0, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
168 |
SEAICE_READ_PICKUP |
nj = nj + 1 |
|
./pkg/seaice/seaice_read_pickup.F |
169 |
SEAICE_READ_PICKUP |
CALL READ_REC_3D_RL(fn,fp,1,seaice_sigma2,nj, nIter0, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
170 |
SEAICE_READ_PICKUP |
nj = nj + 1 |
|
./pkg/seaice/seaice_read_pickup.F |
171 |
SEAICE_READ_PICKUP |
CALL READ_REC_3D_RL(fn,fp,1,seaice_sigma12,nj,nIter0, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
172 |
SEAICE_READ_PICKUP |
nj = nj + 1 |
|
./pkg/seaice/seaice_read_pickup.F |
176 |
SEAICE_READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, 1, HSALT , nj, nIter0, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
177 |
SEAICE_READ_PICKUP |
nj = nj + 1 |
|
./pkg/seaice/seaice_read_pickup.F |
182 |
SEAICE_READ_PICKUP |
nj = 0 |
|
./pkg/seaice/seaice_read_pickup.F |
187 |
SEAICE_READ_PICKUP |
& nj, fp, nITD, nIter0, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
188 |
SEAICE_READ_PICKUP |
nj = nj*nITD |
|
./pkg/seaice/seaice_read_pickup.F |
189 |
SEAICE_READ_PICKUP |
IF ( nj.EQ.0 ) THEN |
|
./pkg/seaice/seaice_read_pickup.F |
192 |
SEAICE_READ_PICKUP |
& nj, fp, nITD,1,1, nIter0, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
198 |
SEAICE_READ_PICKUP |
& nj, fp, nITD,1,1, nIter0, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
199 |
SEAICE_READ_PICKUP |
IF ( nj.EQ.0 ) THEN |
|
./pkg/seaice/seaice_read_pickup.F |
201 |
SEAICE_READ_PICKUP |
& nj, fp, nITD,1,1, nIter0, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
207 |
SEAICE_READ_PICKUP |
& nj, fp, nITD, nIter0, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
208 |
SEAICE_READ_PICKUP |
IF ( nj.EQ.0 ) THEN |
|
./pkg/seaice/seaice_read_pickup.F |
213 |
SEAICE_READ_PICKUP |
& nj, fp, 1, nIter0, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
215 |
SEAICE_READ_PICKUP |
& nj, fp, 1, nIter0, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
217 |
SEAICE_READ_PICKUP |
& nj, fp, 1, nIter0, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
226 |
SEAICE_READ_PICKUP |
& nj, fp, nITD, nIter0, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
228 |
SEAICE_READ_PICKUP |
& nj, fp, nITD, nIter0, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
239 |
SEAICE_READ_PICKUP |
& nj, fp, 1, nIter0, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
246 |
SEAICE_READ_PICKUP |
& nj, fp, 1, nIter0, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
255 |
SEAICE_READ_PICKUP |
& nj, fp, 1, nIter0, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
257 |
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 |
267 |
SEAICE_READ_PICKUP |
& nj, fp, 1, nIter0, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
269 |
SEAICE_READ_PICKUP |
& nj, fp, 1, nIter0, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
271 |
SEAICE_READ_PICKUP |
& nj, fp, 1, nIter0, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
55 |
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/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 |
194 |
READ_PICKUP |
nj = 0 |
|
./model/src/read_pickup.F |
195 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, uVel, nj+1, myIter,myThid ) |
|
./model/src/read_pickup.F |
197 |
READ_PICKUP |
& nj+2, myIter,myThid ) |
|
./model/src/read_pickup.F |
199 |
READ_PICKUP |
& nj+j, myIter,myThid ) |
|
./model/src/read_pickup.F |
200 |
READ_PICKUP |
nj = j |
|
./model/src/read_pickup.F |
201 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, vVel, nj+1, myIter,myThid ) |
|
./model/src/read_pickup.F |
203 |
READ_PICKUP |
& nj+2, myIter,myThid ) |
|
./model/src/read_pickup.F |
205 |
READ_PICKUP |
& nj+j, myIter,myThid ) |
|
./model/src/read_pickup.F |
206 |
READ_PICKUP |
nj = 2*j |
|
./model/src/read_pickup.F |
207 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, theta,nj+1, myIter,myThid ) |
|
./model/src/read_pickup.F |
209 |
READ_PICKUP |
& nj+2, myIter,myThid ) |
|
./model/src/read_pickup.F |
211 |
READ_PICKUP |
& nj+j, myIter,myThid ) |
|
./model/src/read_pickup.F |
212 |
READ_PICKUP |
nj = 3*j |
|
./model/src/read_pickup.F |
213 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, salt, nj+1, myIter,myThid ) |
|
./model/src/read_pickup.F |
215 |
READ_PICKUP |
& nj+2, myIter,myThid ) |
|
./model/src/read_pickup.F |
217 |
READ_PICKUP |
& nj+j, myIter,myThid ) |
|
./model/src/read_pickup.F |
218 |
READ_PICKUP |
nj = 4*j |
|
./model/src/read_pickup.F |
228 |
READ_PICKUP |
nj = 8 |
|
./model/src/read_pickup.F |
230 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn,fp,1, etaN, nj*Nr+1, myIter,myThid ) |
|
./model/src/read_pickup.F |
233 |
READ_PICKUP |
CALL READ_REC_3D_RL(fn,fp,1,dEtaHdt,nj*Nr+2,myIter,myThid ) |
|
./model/src/read_pickup.F |
236 |
READ_PICKUP |
CALL READ_REC_3D_RL(fn,fp,1, etaH, nj*Nr+3, myIter,myThid ) |
|
./model/src/read_pickup.F |
261 |
READ_PICKUP |
nj = 0 |
|
./model/src/read_pickup.F |
264 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./model/src/read_pickup.F |
266 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./model/src/read_pickup.F |
270 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./model/src/read_pickup.F |
272 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./model/src/read_pickup.F |
276 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./model/src/read_pickup.F |
278 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./model/src/read_pickup.F |
287 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./model/src/read_pickup.F |
291 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./model/src/read_pickup.F |
296 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./model/src/read_pickup.F |
300 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./model/src/read_pickup.F |
307 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./model/src/read_pickup.F |
311 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./model/src/read_pickup.F |
316 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./model/src/read_pickup.F |
320 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./model/src/read_pickup.F |
327 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./model/src/read_pickup.F |
331 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./model/src/read_pickup.F |
336 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./model/src/read_pickup.F |
340 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./model/src/read_pickup.F |
348 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./model/src/read_pickup.F |
352 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./model/src/read_pickup.F |
360 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./model/src/read_pickup.F |
363 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./model/src/read_pickup.F |
368 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./model/src/read_pickup.F |
371 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./model/src/read_pickup.F |
376 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./model/src/read_pickup.F |
379 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./model/src/read_pickup.F |
384 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./model/src/read_pickup.F |
392 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./model/src/read_pickup.F |
397 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./model/src/read_pickup.F |
404 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./model/src/read_pickup.F |
409 |
READ_PICKUP |
nj = nj*Nr |
|
./model/src/read_pickup.F |
411 |
READ_PICKUP |
& nj, fp, 1 , myIter, myThid ) |
|
./model/src/read_pickup.F |
415 |
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 |
425 |
READ_PICKUP |
& nj, fp, 1 , myIter, myThid ) |
|
./model/src/read_pickup.F |
75 |
READ_PICKUP |
INTEGER j, nj, ioUnit |
|
./model/src/write_pickup.F |
292 |
WRITE_PICKUP |
nj = -( n3D*(Nr-1) + j ) |
|
./model/src/write_pickup.F |
293 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, 1 , etaN, nj, myIter, myThid ) |
|
./model/src/write_pickup.F |
298 |
WRITE_PICKUP |
nj = -( n3D*(Nr-1) + j ) |
|
./model/src/write_pickup.F |
299 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, 1, dPhiNH, nj, myIter, myThid ) |
|
./model/src/write_pickup.F |
306 |
WRITE_PICKUP |
nj = -( n3D*(Nr-1) + j ) |
|
./model/src/write_pickup.F |
307 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, 1, dEtaHdt, nj, myIter, myThid ) |
|
./model/src/write_pickup.F |
314 |
WRITE_PICKUP |
nj = -( n3D*(Nr-1) + j ) |
|
./model/src/write_pickup.F |
315 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, 1, etaHnm1, nj, myIter, myThid ) |
|
./model/src/write_pickup.F |
334 |
WRITE_PICKUP |
nj = ABS(nj) |
|
./model/src/write_pickup.F |
341 |
WRITE_PICKUP |
& nj, myIter, myThid ) |
|
./model/src/write_pickup.F |
79 |
WRITE_PICKUP |
INTEGER j, nj |
|
./pkg/atm_phys/atm_phys_read_pickup.F |
128 |
ATM_PHYS_READ_PICKUP |
nj = 0 |
|
./pkg/atm_phys/atm_phys_read_pickup.F |
131 |
ATM_PHYS_READ_PICKUP |
nj = nj*Nr |
|
./pkg/atm_phys/atm_phys_read_pickup.F |
134 |
ATM_PHYS_READ_PICKUP |
& nj, fp, 1 , myIter, myThid ) |
|
./pkg/atm_phys/atm_phys_read_pickup.F |
156 |
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 |
100 |
ATM_PHYS_WRITE_PICKUP |
nj = ABS(nj) |
|
./pkg/atm_phys/atm_phys_write_pickup.F |
101 |
ATM_PHYS_WRITE_PICKUP |
IF ( nWrFlds*Nr .EQ. nj ) THEN |
|
./pkg/atm_phys/atm_phys_write_pickup.F |
103 |
ATM_PHYS_WRITE_PICKUP |
nj = nWrFlds |
|
./pkg/atm_phys/atm_phys_write_pickup.F |
111 |
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 |
77 |
ATM_PHYS_WRITE_PICKUP |
nj = -j*Nr |
|
./pkg/atm_phys/atm_phys_write_pickup.F |
80 |
ATM_PHYS_WRITE_PICKUP |
nj = nj-1 |
|
./pkg/atm_phys/atm_phys_write_pickup.F |
82 |
ATM_PHYS_WRITE_PICKUP |
& atmPhys_SST, nj, myIter, myThid ) |
|
./pkg/bbl/bbl_read_pickup.F |
117 |
BBL_READ_PICKUP |
nj = 0 |
|
./pkg/bbl/bbl_read_pickup.F |
120 |
BBL_READ_PICKUP |
& nj, fp, 1 , myIter, myThid ) |
|
./pkg/bbl/bbl_read_pickup.F |
122 |
BBL_READ_PICKUP |
& nj, fp, 1 , myIter, myThid ) |
|
./pkg/bbl/bbl_read_pickup.F |
124 |
BBL_READ_PICKUP |
& nj, fp, 1 , myIter, myThid ) |
|
./pkg/bbl/bbl_read_pickup.F |
145 |
BBL_READ_PICKUP |
& 'cannot restart without field "',missFldList(nj),'"' |
|
./pkg/bbl/bbl_read_pickup.F |
46 |
BBL_READ_PICKUP |
INTEGER j, nj, ioUnit |
|
./pkg/cheapaml/cheapaml_read_pickup.F |
126 |
CHEAPAML_READ_PICKUP |
nj = 0 |
|
./pkg/cheapaml/cheapaml_read_pickup.F |
127 |
CHEAPAML_READ_PICKUP |
nj = nj*Nr |
|
./pkg/cheapaml/cheapaml_read_pickup.F |
130 |
CHEAPAML_READ_PICKUP |
& nj, fp, 1 , myIter, myThid ) |
|
./pkg/cheapaml/cheapaml_read_pickup.F |
132 |
CHEAPAML_READ_PICKUP |
& nj, fp, 1 , 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 |
177 |
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 |
114 |
DIC_WRITE_PICKUP |
nj = ABS(nj) |
|
./pkg/dic/dic_write_pickup.F |
115 |
DIC_WRITE_PICKUP |
IF ( nWrFlds*Nr .EQ. nj ) THEN |
|
./pkg/dic/dic_write_pickup.F |
117 |
DIC_WRITE_PICKUP |
nj = nWrFlds |
|
./pkg/dic/dic_write_pickup.F |
125 |
DIC_WRITE_PICKUP |
& nj, myIter, myThid ) |
|
./pkg/dic/dic_write_pickup.F |
52 |
DIC_WRITE_PICKUP |
INTEGER j, nj |
|
./pkg/dic/dic_write_pickup.F |
90 |
DIC_WRITE_PICKUP |
nj = -j*Nr |
|
./pkg/dic/dic_write_pickup.F |
94 |
DIC_WRITE_PICKUP |
nj = nj-1 |
|
./pkg/dic/dic_write_pickup.F |
95 |
DIC_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, prec, 1, pH, nj, myIter, myThid ) |