| File |
Line number |
Procedure |
Code |
|
./pkg/mypackage/mypackage_read_pickup.F |
125 |
MYPACKAGE_READ_PICKUP |
nj = 0 |
|
./pkg/mypackage/mypackage_read_pickup.F |
129 |
MYPACKAGE_READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./pkg/mypackage/mypackage_read_pickup.F |
131 |
MYPACKAGE_READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./pkg/mypackage/mypackage_read_pickup.F |
133 |
MYPACKAGE_READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./pkg/mypackage/mypackage_read_pickup.F |
135 |
MYPACKAGE_READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./pkg/mypackage/mypackage_read_pickup.F |
137 |
MYPACKAGE_READ_PICKUP |
nj = nj*Nr |
|
./pkg/mypackage/mypackage_read_pickup.F |
141 |
MYPACKAGE_READ_PICKUP |
& nj, fp, 1 , myIter, myThid ) |
|
./pkg/mypackage/mypackage_read_pickup.F |
143 |
MYPACKAGE_READ_PICKUP |
& nj, fp, 1 , myIter, myThid ) |
|
./pkg/mypackage/mypackage_read_pickup.F |
165 |
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 |
102 |
MYPACKAGE_WRITE_PICKUP |
nj = nj-1 |
|
./pkg/mypackage/mypackage_write_pickup.F |
104 |
MYPACKAGE_WRITE_PICKUP |
& myPa_Surf1, nj, myIter, myThid ) |
|
./pkg/mypackage/mypackage_write_pickup.F |
108 |
MYPACKAGE_WRITE_PICKUP |
nj = nj-1 |
|
./pkg/mypackage/mypackage_write_pickup.F |
110 |
MYPACKAGE_WRITE_PICKUP |
& myPa_Surf2, nj, myIter, myThid ) |
|
./pkg/mypackage/mypackage_write_pickup.F |
128 |
MYPACKAGE_WRITE_PICKUP |
nj = ABS(nj) |
|
./pkg/mypackage/mypackage_write_pickup.F |
129 |
MYPACKAGE_WRITE_PICKUP |
IF ( nWrFlds*Nr .EQ. nj ) THEN |
|
./pkg/mypackage/mypackage_write_pickup.F |
131 |
MYPACKAGE_WRITE_PICKUP |
nj = nWrFlds |
|
./pkg/mypackage/mypackage_write_pickup.F |
138 |
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 |
98 |
MYPACKAGE_WRITE_PICKUP |
nj = -j*Nr |
|
./pkg/ptracers/ptracers_read_pickup.F |
217 |
PTRACERS_READ_PICKUP |
nj = 0 |
|
./pkg/ptracers/ptracers_read_pickup.F |
223 |
PTRACERS_READ_PICKUP |
& nj, prec, Nr, myIter, myThid ) |
|
./pkg/ptracers/ptracers_read_pickup.F |
233 |
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 |
240 |
READ_MFLDS_3D_RL |
U nj, |
|
./pkg/rw/read_mflds.F |
267 |
READ_MFLDS_3D_RL |
INTEGER nj |
|
./pkg/rw/read_mflds.F |
301 |
READ_MFLDS_3D_RL |
nj = 0 |
|
./pkg/rw/read_mflds.F |
303 |
READ_MFLDS_3D_RL |
IF ( fldName.EQ.fldList(j) .AND. nj.EQ.0 ) nj = j |
|
./pkg/rw/read_mflds.F |
305 |
READ_MFLDS_3D_RL |
IF ( nj.EQ.0 ) THEN |
|
./pkg/rw/read_mflds.F |
321 |
READ_MFLDS_3D_RL |
j = nj |
|
./pkg/rw/read_mflds.F |
322 |
READ_MFLDS_3D_RL |
IF ( nj.GT.nFl3D ) nj = nj + nFl3D*(thirdDim-1) |
|
./pkg/rw/read_mflds.F |
325 |
READ_MFLDS_3D_RL |
& 'read field: "',fldName,'", #',j,' in fldList, rec=',nj |
|
./pkg/rw/read_mflds.F |
329 |
READ_MFLDS_3D_RL |
ELSEIF ( nj.GE.0 ) THEN |
|
./pkg/rw/read_mflds.F |
331 |
READ_MFLDS_3D_RL |
nj = nj + 1 |
|
./pkg/rw/read_mflds.F |
334 |
READ_MFLDS_3D_RL |
& 'no fldList, try to read field "',fldName, '", rec=',nj |
|
./pkg/rw/read_mflds.F |
339 |
READ_MFLDS_3D_RL |
IF ( nj.GE.1 ) THEN |
|
./pkg/rw/read_mflds.F |
349 |
READ_MFLDS_3D_RL |
I nj, myThid ) |
|
./pkg/rw/read_mflds.F |
364 |
READ_MFLDS_LEV_RL |
U nj, |
|
./pkg/rw/read_mflds.F |
394 |
READ_MFLDS_LEV_RL |
INTEGER nj |
|
./pkg/rw/read_mflds.F |
428 |
READ_MFLDS_LEV_RL |
nj = 0 |
|
./pkg/rw/read_mflds.F |
430 |
READ_MFLDS_LEV_RL |
IF ( fldName.EQ.fldList(j) .AND. nj.EQ.0 ) nj = j |
|
./pkg/rw/read_mflds.F |
432 |
READ_MFLDS_LEV_RL |
IF ( nj.EQ.0 ) THEN |
|
./pkg/rw/read_mflds.F |
448 |
READ_MFLDS_LEV_RL |
j = nj |
|
./pkg/rw/read_mflds.F |
449 |
READ_MFLDS_LEV_RL |
IF ( nj.GT.nFl3D ) nj = nj + nFl3D*(thirdDim-1) |
|
./pkg/rw/read_mflds.F |
452 |
READ_MFLDS_LEV_RL |
& 'read field: "',fldName,'", #',j,' in fldList, rec=',nj |
|
./pkg/rw/read_mflds.F |
456 |
READ_MFLDS_LEV_RL |
ELSEIF ( nj.GE.0 ) THEN |
|
./pkg/rw/read_mflds.F |
458 |
READ_MFLDS_LEV_RL |
nj = nj + 1 |
|
./pkg/rw/read_mflds.F |
461 |
READ_MFLDS_LEV_RL |
& 'no fldList, try to read field "',fldName, '", rec=',nj |
|
./pkg/rw/read_mflds.F |
466 |
READ_MFLDS_LEV_RL |
IF ( nj.GE.1 ) THEN |
|
./pkg/rw/read_mflds.F |
476 |
READ_MFLDS_LEV_RL |
I nj, myThid ) |
|
./pkg/rw/read_mflds.F |
526 |
READ_MFLDS_CHECK |
INTEGER i, j, nj, iL, ioUnit |
|
./pkg/rw/read_mflds.F |
569 |
READ_MFLDS_CHECK |
nj = MIN( nMissFld, sizFldList ) |
|
./pkg/rw/read_mflds.F |
570 |
READ_MFLDS_CHECK |
DO j=1,nj,20 |
|
./pkg/rw/read_mflds.F |
572 |
READ_MFLDS_CHECK |
& (' >', fldMiss(i), '<', i=j,MIN(j+19,nj) ) |
|
./pkg/rw/read_mflds.F |
585 |
READ_MFLDS_CHECK |
nj = MIN( nMissFld, nbErr ) |
|
./pkg/rw/read_mflds.F |
586 |
READ_MFLDS_CHECK |
DO j=1,nj |
|
./pkg/seaice/seaice_check_pickup.F |
103 |
SEAICE_CHECK_PICKUP |
ELSEIF ( missFldList(nj).EQ.'siSigm1 ' .OR. |
|
./pkg/seaice/seaice_check_pickup.F |
104 |
SEAICE_CHECK_PICKUP |
& missFldList(nj).EQ.'siSigm2 ' .OR. |
|
./pkg/seaice/seaice_check_pickup.F |
105 |
SEAICE_CHECK_PICKUP |
& missFldList(nj).EQ.'siSigm12' ) THEN |
|
./pkg/seaice/seaice_check_pickup.F |
111 |
SEAICE_CHECK_PICKUP |
& 'restart without "',missFldList(nj),'" (set to zero)' |
|
./pkg/seaice/seaice_check_pickup.F |
114 |
SEAICE_CHECK_PICKUP |
ELSEIF ( missFldList(nj).EQ.'siTICES ' .OR. |
|
./pkg/seaice/seaice_check_pickup.F |
115 |
SEAICE_CHECK_PICKUP |
& missFldList(nj).EQ.'siTICE ' .OR. |
|
./pkg/seaice/seaice_check_pickup.F |
116 |
SEAICE_CHECK_PICKUP |
& missFldList(nj).EQ.'siUICE ' .OR. |
|
./pkg/seaice/seaice_check_pickup.F |
117 |
SEAICE_CHECK_PICKUP |
& missFldList(nj).EQ.'siVICE ' .OR. |
|
./pkg/seaice/seaice_check_pickup.F |
118 |
SEAICE_CHECK_PICKUP |
& missFldList(nj).EQ.'siAREA ' .OR. |
|
./pkg/seaice/seaice_check_pickup.F |
119 |
SEAICE_CHECK_PICKUP |
& missFldList(nj).EQ.'siHEFF ' .OR. |
|
./pkg/seaice/seaice_check_pickup.F |
120 |
SEAICE_CHECK_PICKUP |
& missFldList(nj).EQ.'siHSNOW ' .OR. |
|
./pkg/seaice/seaice_check_pickup.F |
121 |
SEAICE_CHECK_PICKUP |
& missFldList(nj).EQ.'siHSALT ' ) THEN |
|
./pkg/seaice/seaice_check_pickup.F |
124 |
SEAICE_CHECK_PICKUP |
& 'cannot restart without field "',missFldList(nj),'"' |
|
./pkg/seaice/seaice_check_pickup.F |
130 |
SEAICE_CHECK_PICKUP |
& 'missing field "',missFldList(nj),'" not recognized' |
|
./pkg/seaice/seaice_check_pickup.F |
54 |
SEAICE_CHECK_PICKUP |
INTEGER nj, ioUnit |
|
./pkg/seaice/seaice_check_pickup.F |
68 |
SEAICE_CHECK_PICKUP |
DO nj=1,nMissing |
|
./pkg/seaice/seaice_check_pickup.F |
69 |
SEAICE_CHECK_PICKUP |
IF ( missFldList(nj).EQ.'siTICES ' ) tIceFlag = tIceFlag + 2 |
|
./pkg/seaice/seaice_check_pickup.F |
70 |
SEAICE_CHECK_PICKUP |
IF ( missFldList(nj).EQ.'siTICE ' ) tIceFlag = tIceFlag + 1 |
|
./pkg/seaice/seaice_check_pickup.F |
74 |
SEAICE_CHECK_PICKUP |
DO nj=1,nMissing |
|
./pkg/seaice/seaice_check_pickup.F |
75 |
SEAICE_CHECK_PICKUP |
IF ( missFldList(nj).EQ.'siTICE ' |
|
./pkg/seaice/seaice_check_pickup.F |
82 |
SEAICE_CHECK_PICKUP |
ELSEIF ( missFldList(nj).EQ.'siTICES ' |
|
./pkg/seaice/seaice_read_pickup.F |
130 |
SEAICE_READ_PICKUP |
nj = 1 |
|
./pkg/seaice/seaice_read_pickup.F |
132 |
SEAICE_READ_PICKUP |
CALL READ_REC_3D_RL( fn,fp,MULTDIM, TICES, nj, nIter0, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
133 |
SEAICE_READ_PICKUP |
nj = nj + MULTDIM |
|
./pkg/seaice/seaice_read_pickup.F |
135 |
SEAICE_READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, 1, TICE , nj, nIter0, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
136 |
SEAICE_READ_PICKUP |
nj = nj + 1 |
|
./pkg/seaice/seaice_read_pickup.F |
139 |
SEAICE_READ_PICKUP |
nj = nj + 1 |
|
./pkg/seaice/seaice_read_pickup.F |
140 |
SEAICE_READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, 1, HSNOW , nj, nIter0, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
141 |
SEAICE_READ_PICKUP |
nj = nj + 1 |
|
./pkg/seaice/seaice_read_pickup.F |
142 |
SEAICE_READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, 1, UICE , nj, nIter0, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
143 |
SEAICE_READ_PICKUP |
nj = nj + 3 |
|
./pkg/seaice/seaice_read_pickup.F |
144 |
SEAICE_READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, 1, VICE , nj, nIter0, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
145 |
SEAICE_READ_PICKUP |
nj = nj + 3 |
|
./pkg/seaice/seaice_read_pickup.F |
146 |
SEAICE_READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, 1, HEFF , nj, nIter0, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
147 |
SEAICE_READ_PICKUP |
nj = nj + 3 |
|
./pkg/seaice/seaice_read_pickup.F |
148 |
SEAICE_READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, 1, AREA , nj, nIter0, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
149 |
SEAICE_READ_PICKUP |
nj = nj + 3 |
|
./pkg/seaice/seaice_read_pickup.F |
152 |
SEAICE_READ_PICKUP |
CALL READ_REC_3D_RL(fn,fp,1,seaice_sigma1,nj, nIter0, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
153 |
SEAICE_READ_PICKUP |
nj = nj + 1 |
|
./pkg/seaice/seaice_read_pickup.F |
154 |
SEAICE_READ_PICKUP |
CALL READ_REC_3D_RL(fn,fp,1,seaice_sigma2,nj, nIter0, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
155 |
SEAICE_READ_PICKUP |
nj = nj + 1 |
|
./pkg/seaice/seaice_read_pickup.F |
156 |
SEAICE_READ_PICKUP |
CALL READ_REC_3D_RL(fn,fp,1,seaice_sigma12,nj,nIter0, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
157 |
SEAICE_READ_PICKUP |
nj = nj + 1 |
|
./pkg/seaice/seaice_read_pickup.F |
161 |
SEAICE_READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, 1, HSALT , nj, nIter0, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
162 |
SEAICE_READ_PICKUP |
nj = nj + 1 |
|
./pkg/seaice/seaice_read_pickup.F |
165 |
SEAICE_READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, 1, ICEAGE , nj, nIter0, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
170 |
SEAICE_READ_PICKUP |
nj = 0 |
|
./pkg/seaice/seaice_read_pickup.F |
175 |
SEAICE_READ_PICKUP |
& nj, fp, MULTDIM, nIter0, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
176 |
SEAICE_READ_PICKUP |
nj = nj*MULTDIM |
|
./pkg/seaice/seaice_read_pickup.F |
177 |
SEAICE_READ_PICKUP |
IF ( nj.EQ.0 ) THEN |
|
./pkg/seaice/seaice_read_pickup.F |
179 |
SEAICE_READ_PICKUP |
& nj, fp, 1, nIter0, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
183 |
SEAICE_READ_PICKUP |
& nj, fp, 1, nIter0, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
184 |
SEAICE_READ_PICKUP |
IF ( nj.EQ.0 ) THEN |
|
./pkg/seaice/seaice_read_pickup.F |
186 |
SEAICE_READ_PICKUP |
& nj, fp, 1, nIter0, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
191 |
SEAICE_READ_PICKUP |
& nj, fp, 1, nIter0, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
193 |
SEAICE_READ_PICKUP |
& nj, fp, 1, nIter0, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
195 |
SEAICE_READ_PICKUP |
& nj, fp, 1, nIter0, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
198 |
SEAICE_READ_PICKUP |
& nj, fp, 1, nIter0, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
202 |
SEAICE_READ_PICKUP |
& nj, fp, 1, nIter0, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
208 |
SEAICE_READ_PICKUP |
& nj, fp, 1, nIter0, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
210 |
SEAICE_READ_PICKUP |
& nj, fp, 1, nIter0, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
214 |
SEAICE_READ_PICKUP |
& nj, fp, 1, nIter0, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
216 |
SEAICE_READ_PICKUP |
& nj, fp, 1, nIter0, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
218 |
SEAICE_READ_PICKUP |
& nj, fp, 1, nIter0, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
53 |
SEAICE_READ_PICKUP |
INTEGER nj, ioUnit |
|
./pkg/seaice/seaice_write_pickup.F |
101 |
SEAICE_WRITE_PICKUP |
nj = nj-1 |
|
./pkg/seaice/seaice_write_pickup.F |
102 |
SEAICE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, 1, HSNOW , nj, myIter, myThid ) |
|
./pkg/seaice/seaice_write_pickup.F |
106 |
SEAICE_WRITE_PICKUP |
nj = nj-1 |
|
./pkg/seaice/seaice_write_pickup.F |
107 |
SEAICE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, 1, HSALT , nj, myIter, myThid ) |
|
./pkg/seaice/seaice_write_pickup.F |
112 |
SEAICE_WRITE_PICKUP |
nj = nj-1 |
|
./pkg/seaice/seaice_write_pickup.F |
113 |
SEAICE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, 1, ICEAGE, nj, myIter, myThid ) |
|
./pkg/seaice/seaice_write_pickup.F |
120 |
SEAICE_WRITE_PICKUP |
nj = nj-1 |
|
./pkg/seaice/seaice_write_pickup.F |
121 |
SEAICE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, 1, UICE , nj, myIter, myThid ) |
|
./pkg/seaice/seaice_write_pickup.F |
125 |
SEAICE_WRITE_PICKUP |
nj = nj-1 |
|
./pkg/seaice/seaice_write_pickup.F |
126 |
SEAICE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, 1, VICE , nj, myIter, myThid ) |
|
./pkg/seaice/seaice_write_pickup.F |
132 |
SEAICE_WRITE_PICKUP |
nj = nj-1 |
|
./pkg/seaice/seaice_write_pickup.F |
134 |
SEAICE_WRITE_PICKUP |
& nj, myIter, myThid ) |
|
./pkg/seaice/seaice_write_pickup.F |
138 |
SEAICE_WRITE_PICKUP |
nj = nj-1 |
|
./pkg/seaice/seaice_write_pickup.F |
140 |
SEAICE_WRITE_PICKUP |
& nj, myIter, myThid ) |
|
./pkg/seaice/seaice_write_pickup.F |
144 |
SEAICE_WRITE_PICKUP |
nj = nj-1 |
|
./pkg/seaice/seaice_write_pickup.F |
146 |
SEAICE_WRITE_PICKUP |
& nj, myIter, myThid ) |
|
./pkg/seaice/seaice_write_pickup.F |
163 |
SEAICE_WRITE_PICKUP |
nj = ABS(nj) |
|
./pkg/seaice/seaice_write_pickup.F |
169 |
SEAICE_WRITE_PICKUP |
& nj, myIter, myThid ) |
|
./pkg/seaice/seaice_write_pickup.F |
59 |
SEAICE_WRITE_PICKUP |
INTEGER j, nj |
|
./pkg/seaice/seaice_write_pickup.F |
70 |
SEAICE_WRITE_PICKUP |
nj = 0 |
|
./pkg/seaice/seaice_write_pickup.F |
77 |
SEAICE_WRITE_PICKUP |
nj = nj-1 |
|
./pkg/seaice/seaice_write_pickup.F |
78 |
SEAICE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL(fn,fp,MULTDIM,TICES, nj, myIter, myThid ) |
|
./pkg/seaice/seaice_write_pickup.F |
81 |
SEAICE_WRITE_PICKUP |
nj = nj*MULTDIM |
|
./pkg/seaice/seaice_write_pickup.F |
84 |
SEAICE_WRITE_PICKUP |
nj = nj-1 |
|
./pkg/seaice/seaice_write_pickup.F |
85 |
SEAICE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, 1, TICE , nj, myIter, myThid ) |
|
./pkg/seaice/seaice_write_pickup.F |
91 |
SEAICE_WRITE_PICKUP |
nj = nj-1 |
|
./pkg/seaice/seaice_write_pickup.F |
92 |
SEAICE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, 1, AREA , nj, myIter, myThid ) |
|
./pkg/seaice/seaice_write_pickup.F |
96 |
SEAICE_WRITE_PICKUP |
nj = nj-1 |
|
./pkg/seaice/seaice_write_pickup.F |
97 |
SEAICE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, 1, HEFF , nj, myIter, myThid ) |
|
./model/src/read_pickup.F |
188 |
READ_PICKUP |
nj = 0 |
|
./model/src/read_pickup.F |
189 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, uVel, nj+1, myIter,myThid ) |
|
./model/src/read_pickup.F |
191 |
READ_PICKUP |
& nj+2, myIter,myThid ) |
|
./model/src/read_pickup.F |
193 |
READ_PICKUP |
& nj+j, myIter,myThid ) |
|
./model/src/read_pickup.F |
194 |
READ_PICKUP |
nj = j |
|
./model/src/read_pickup.F |
195 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, vVel, 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 = 2*j |
|
./model/src/read_pickup.F |
201 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, theta,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 = 3*j |
|
./model/src/read_pickup.F |
207 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, salt, 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 = 4*j |
|
./model/src/read_pickup.F |
222 |
READ_PICKUP |
nj = 8 |
|
./model/src/read_pickup.F |
224 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn,fp,1, etaN, nj*Nr+1, myIter,myThid ) |
|
./model/src/read_pickup.F |
227 |
READ_PICKUP |
CALL READ_REC_3D_RL(fn,fp,1,dEtaHdt,nj*Nr+2,myIter,myThid ) |
|
./model/src/read_pickup.F |
230 |
READ_PICKUP |
CALL READ_REC_3D_RL(fn,fp,1, etaH, nj*Nr+3, myIter,myThid ) |
|
./model/src/read_pickup.F |
255 |
READ_PICKUP |
nj = 0 |
|
./model/src/read_pickup.F |
258 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./model/src/read_pickup.F |
260 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./model/src/read_pickup.F |
262 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./model/src/read_pickup.F |
264 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./model/src/read_pickup.F |
273 |
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 |
282 |
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 |
293 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./model/src/read_pickup.F |
297 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./model/src/read_pickup.F |
302 |
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 |
313 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./model/src/read_pickup.F |
317 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./model/src/read_pickup.F |
322 |
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 |
334 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./model/src/read_pickup.F |
338 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./model/src/read_pickup.F |
346 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./model/src/read_pickup.F |
349 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./model/src/read_pickup.F |
354 |
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 |
364 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./model/src/read_pickup.F |
372 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./model/src/read_pickup.F |
377 |
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 |
389 |
READ_PICKUP |
nj = nj*Nr |
|
./model/src/read_pickup.F |
391 |
READ_PICKUP |
& nj, fp, 1 , myIter, myThid ) |
|
./model/src/read_pickup.F |
395 |
READ_PICKUP |
& nj, fp, 1 , myIter, myThid ) |
|
./model/src/read_pickup.F |
401 |
READ_PICKUP |
& nj, fp, 1 , myIter, myThid ) |
|
./model/src/read_pickup.F |
405 |
READ_PICKUP |
& nj, fp, 1 , myIter, myThid ) |
|
./model/src/read_pickup.F |
69 |
READ_PICKUP |
INTEGER j, nj, ioUnit |
|
./model/src/write_pickup.F |
268 |
WRITE_PICKUP |
nj = -( n3D*(Nr-1) + j ) |
|
./model/src/write_pickup.F |
269 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, 1 , etaN, nj, myIter, myThid ) |
|
./model/src/write_pickup.F |
274 |
WRITE_PICKUP |
nj = -( n3D*(Nr-1) + j ) |
|
./model/src/write_pickup.F |
275 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, 1, dPhiNH, nj, myIter, myThid ) |
|
./model/src/write_pickup.F |
282 |
WRITE_PICKUP |
nj = -( n3D*(Nr-1) + j ) |
|
./model/src/write_pickup.F |
283 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, 1, dEtaHdt, nj, myIter, myThid ) |
|
./model/src/write_pickup.F |
290 |
WRITE_PICKUP |
nj = -( n3D*(Nr-1) + j ) |
|
./model/src/write_pickup.F |
291 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, 1, etaHnm1, nj, myIter, myThid ) |
|
./model/src/write_pickup.F |
310 |
WRITE_PICKUP |
nj = ABS(nj) |
|
./model/src/write_pickup.F |
316 |
WRITE_PICKUP |
& nj, myIter, myThid ) |
|
./model/src/write_pickup.F |
72 |
WRITE_PICKUP |
INTEGER j, nj |
|
./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 |
131 |
CHEAPAML_READ_PICKUP |
& nj, fp, 1 , myIter, myThid ) |
|
./pkg/cheapaml/cheapaml_read_pickup.F |
153 |
CHEAPAML_READ_PICKUP |
& 'cannot restart without field "',missFldList(nj),'"' |
|
./pkg/cheapaml/cheapaml_read_pickup.F |
46 |
CHEAPAML_READ_PICKUP |
INTEGER j, nj, ioUnit |
|
./pkg/cheapaml/cheapaml_write_pickup.F |
100 |
CHEAPAML_WRITE_PICKUP |
nj = ABS(nj) |
|
./pkg/cheapaml/cheapaml_write_pickup.F |
101 |
CHEAPAML_WRITE_PICKUP |
IF ( nWrFlds*Nr .EQ. nj ) THEN |
|
./pkg/cheapaml/cheapaml_write_pickup.F |
103 |
CHEAPAML_WRITE_PICKUP |
nj = nWrFlds |
|
./pkg/cheapaml/cheapaml_write_pickup.F |
110 |
CHEAPAML_WRITE_PICKUP |
& nj, myIter, myThid ) |
|
./pkg/cheapaml/cheapaml_write_pickup.F |
54 |
CHEAPAML_WRITE_PICKUP |
INTEGER j, nj, fp, lChar |
|
./pkg/cheapaml/cheapaml_write_pickup.F |
77 |
CHEAPAML_WRITE_PICKUP |
nj = -j*Nr |
|
./pkg/cheapaml/cheapaml_write_pickup.F |
80 |
CHEAPAML_WRITE_PICKUP |
nj = nj-1 |
|
./pkg/cheapaml/cheapaml_write_pickup.F |
82 |
CHEAPAML_WRITE_PICKUP |
& Tair, nj, myIter, myThid ) |
|
./pkg/dic/dic_write_pickup.F |
108 |
DIC_WRITE_PICKUP |
nj = ABS(nj) |
|
./pkg/dic/dic_write_pickup.F |
109 |
DIC_WRITE_PICKUP |
IF ( nWrFlds*Nr .EQ. nj ) THEN |
|
./pkg/dic/dic_write_pickup.F |
111 |
DIC_WRITE_PICKUP |
nj = nWrFlds |
|
./pkg/dic/dic_write_pickup.F |
118 |
DIC_WRITE_PICKUP |
& nj, myIter, myThid ) |
|
./pkg/dic/dic_write_pickup.F |
51 |
DIC_WRITE_PICKUP |
INTEGER j, nj |
|
./pkg/dic/dic_write_pickup.F |
84 |
DIC_WRITE_PICKUP |
nj = -j*Nr |
|
./pkg/dic/dic_write_pickup.F |
88 |
DIC_WRITE_PICKUP |
nj = nj-1 |
|
./pkg/dic/dic_write_pickup.F |
89 |
DIC_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, prec, 1, pH, nj, myIter, myThid ) |