| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_alarms.F |
33 |
FIZHI_ALARMS |
integer nhmsf, m,n, nd |
|
./pkg/fizhi/fizhi_alarms.F |
53 |
FIZHI_ALARMS |
nd = ndturb |
|
./pkg/fizhi/fizhi_alarms.F |
54 |
FIZHI_ALARMS |
do while ( mod(3*3600,nd).ne.0 ) |
|
./pkg/fizhi/fizhi_alarms.F |
55 |
FIZHI_ALARMS |
nd = ndturb + 2*n*m*ndt |
|
./pkg/fizhi/fizhi_alarms.F |
58 |
FIZHI_ALARMS |
if( nd.lt.ndt ) then |
|
./pkg/fizhi/fizhi_alarms.F |
68 |
FIZHI_ALARMS |
ndturb = nhmsf( nd ) |
|
./pkg/fizhi/fizhi_alarms.F |
76 |
FIZHI_ALARMS |
nd = ndmoist |
|
./pkg/fizhi/fizhi_alarms.F |
77 |
FIZHI_ALARMS |
do while ( mod(3*3600,nd).ne.0 ) |
|
./pkg/fizhi/fizhi_alarms.F |
78 |
FIZHI_ALARMS |
nd = ndmoist + n*m*ndt |
|
./pkg/fizhi/fizhi_alarms.F |
81 |
FIZHI_ALARMS |
if( nd.lt.ndt ) then |
|
./pkg/fizhi/fizhi_alarms.F |
91 |
FIZHI_ALARMS |
ndmoist = nhmsf( nd ) |
|
./pkg/fizhi/fizhi_clockstuff.F |
798 |
TIC_TIME |
integer ny,nm,nd,ny00,modymd |
|
./pkg/fizhi/update_ocean_exports.F |
184 |
GETSICE |
integer i,j,n,nn,iyear,iyearbc,nd,ndby3,imbc,jmbc |
|
./pkg/fizhi/update_ocean_exports.F |
309 |
GETSICE |
nd = 2 |
|
./pkg/fizhi/update_ocean_exports.F |
320 |
GETSICE |
do while (.not.found .and. nd .le. ndatebc) |
|
./pkg/fizhi/update_ocean_exports.F |
321 |
GETSICE |
timebc2 = dfloat(nymdbc(nd)) + dfloat(nhmsbc(nd))/1000000 |
|
./pkg/fizhi/update_ocean_exports.F |
323 |
GETSICE |
nymdbc1 = nymdbc(nd-1) |
|
./pkg/fizhi/update_ocean_exports.F |
324 |
GETSICE |
nymdbc2 = nymdbc(nd) |
|
./pkg/fizhi/update_ocean_exports.F |
325 |
GETSICE |
nhmsbc1 = nhmsbc(nd-1) |
|
./pkg/fizhi/update_ocean_exports.F |
326 |
GETSICE |
nhmsbc2 = nhmsbc(nd) |
|
./pkg/fizhi/update_ocean_exports.F |
327 |
GETSICE |
call BCDATA (iunit,imbc,jmbc,nd,nd+1,sicebc1,sicebc2) |
|
./pkg/fizhi/update_ocean_exports.F |
330 |
GETSICE |
nd = nd + 1 |
|
./pkg/fizhi/update_ocean_exports.F |
445 |
GETSST |
integer i,j,n,nn,iyear,iyearbc,nd,ndby3,imbc,jmbc |
|
./pkg/fizhi/update_ocean_exports.F |
571 |
GETSST |
nd = 2 |
|
./pkg/fizhi/update_ocean_exports.F |
582 |
GETSST |
do while (.not.found .and. nd .le. ndatebc) |
|
./pkg/fizhi/update_ocean_exports.F |
583 |
GETSST |
timebc2 = dfloat(nymdbc(nd)) + dfloat(nhmsbc(nd))/1000000 |
|
./pkg/fizhi/update_ocean_exports.F |
585 |
GETSST |
nymdbc1 = nymdbc(nd-1) |
|
./pkg/fizhi/update_ocean_exports.F |
586 |
GETSST |
nymdbc2 = nymdbc(nd) |
|
./pkg/fizhi/update_ocean_exports.F |
587 |
GETSST |
nhmsbc1 = nhmsbc(nd-1) |
|
./pkg/fizhi/update_ocean_exports.F |
588 |
GETSST |
nhmsbc2 = nhmsbc(nd) |
|
./pkg/fizhi/update_ocean_exports.F |
589 |
GETSST |
call BCDATA (iunit,imbc,jmbc,nd,nd+1,sstbc1,sstbc2) |
|
./pkg/fizhi/update_ocean_exports.F |
592 |
GETSST |
nd = nd + 1 |
|
./pkg/mnc/mnc_var.F |
145 |
MNC_VAR_INIT_ANY |
INTEGER i,j,k, n, nf, indf,indv, fid, nd, ngrid, is,ie, err |
|
./pkg/mnc/mnc_var.F |
194 |
MNC_VAR_INIT_ANY |
nd = 0 |
|
./pkg/mnc/mnc_var.F |
196 |
MNC_VAR_INIT_ANY |
nd = nd + 1 |
|
./pkg/mnc/mnc_var.F |
197 |
MNC_VAR_INIT_ANY |
ids(nd) = mnc_d_ids(mnc_fd_ind(indf,k)) |
|
./pkg/mnc/mnc_var.F |
232 |
MNC_VAR_INIT_ANY |
err = NF_DEF_VAR(fid, vname, vtype, nd, ids, vid) |
|
./pkg/chronos/chronos.F |
635 |
TIC_TIME |
integer ny,nm,nd,ny00,modymd |
|
./pkg/diagnostics/diagnostics_check.F |
179 |
DIAGNOSTICS_CHECK |
nd = ABS(jdiag(md,ld)) |
|
./pkg/diagnostics/diagnostics_check.F |
183 |
DIAGNOSTICS_CHECK |
& gdiag(nd)(10:10) .EQ. 'L') THEN |
|
./pkg/diagnostics/diagnostics_check.F |
31 |
DIAGNOSTICS_CHECK |
INTEGER ld,md,nd |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
138 |
DIAGNOSTICS_SET_POINTERS |
DO nd=1,ndiagt |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
139 |
DIAGNOSTICS_SET_POINTERS |
IF ( flds(md,ld).EQ.cdiag(nd) ) THEN |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
140 |
DIAGNOSTICS_SET_POINTERS |
CALL DIAGNOSTICS_SETDIAG(mate,ndiagcount,md,ld,nd,myThid) |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
199 |
DIAGNOSTICS_SET_POINTERS |
nd = ABS(jdiag(md,ld)) |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
200 |
DIAGNOSTICS_SET_POINTERS |
mate = hdiag(nd) |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
216 |
DIAGNOSTICS_SET_POINTERS |
& nd, ' ', cdiag(nd), ' , Parms: ', gdiag(nd)(1:10), |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
217 |
DIAGNOSTICS_SET_POINTERS |
& ' , mate:', hdiag(nd) |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
234 |
DIAGNOSTICS_SET_POINTERS |
nd = ABS(jdiag(md,ld)) |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
235 |
DIAGNOSTICS_SET_POINTERS |
kLev = MIN(kdiag(nd),kLev) |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
276 |
DIAGNOSTICS_SET_POINTERS |
nd = ABS(jdiag(md,ld)) |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
277 |
DIAGNOSTICS_SET_POINTERS |
IF ( kLev.GT.kdiag(nd) ) THEN |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
288 |
DIAGNOSTICS_SET_POINTERS |
& '(=',kdiag(nd),') for Diag. #', nd, ' : ',cdiag(nd) |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
291 |
DIAGNOSTICS_SET_POINTERS |
& ' parsing code >>',gdiag(nd),'<<' |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
36 |
DIAGNOSTICS_SET_POINTERS |
INTEGER md,ld,nd |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
54 |
DIAGNOSTICS_SET_POINTERS |
nd = 0 |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
56 |
DIAGNOSTICS_SET_POINTERS |
IF ( nd.EQ.0 .AND. flds(md,ld).EQ.cdiag(i) ) nd = i |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
59 |
DIAGNOSTICS_SET_POINTERS |
IF ( nd.GE.1 ) THEN |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
60 |
DIAGNOSTICS_SET_POINTERS |
IF ( gdiag(nd)(5:5).EQ.'P' ) THEN |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
61 |
DIAGNOSTICS_SET_POINTERS |
mate = hdiag(nd) |
|
./pkg/diagnostics/diagnostics_switch_onoff.F |
202 |
DIAGNOSTICS_SWITCH_ONOFF |
nd = jSdiag(m,n) |
|
./pkg/diagnostics/diagnostics_switch_onoff.F |
205 |
DIAGNOSTICS_SWITCH_ONOFF |
& 'DIAG_SWITCH_ONOFF: at it=', myIter, ' diag:', nd, |
|
./pkg/diagnostics/diagnostics_switch_onoff.F |
206 |
DIAGNOSTICS_SWITCH_ONOFF |
& ' ',cdiag(nd),' :',qSdiag(0,0,iSp,bi,bj),' ->', 0 |
|
./pkg/diagnostics/diagnostics_switch_onoff.F |
215 |
DIAGNOSTICS_SWITCH_ONOFF |
nd = jSdiag(m,n) |
|
./pkg/diagnostics/diagnostics_switch_onoff.F |
218 |
DIAGNOSTICS_SWITCH_ONOFF |
& 'DIAG_SWITCH_ONOFF: at it=', myIter, ' diag:', nd, |
|
./pkg/diagnostics/diagnostics_switch_onoff.F |
219 |
DIAGNOSTICS_SWITCH_ONOFF |
& ' ',cdiag(nd),' :',qSdiag(0,0,iSp,bi,bj),' ->', -1 |
|
./pkg/diagnostics/diagnostics_switch_onoff.F |
46 |
DIAGNOSTICS_SWITCH_ONOFF |
INTEGER m, n, nd |
|
./pkg/diagnostics/diagstats_set_pointers.F |
37 |
DIAGSTATS_SET_POINTERS |
INTEGER md,ld,nd |
|
./pkg/diagnostics/diagstats_set_pointers.F |
65 |
DIAGSTATS_SET_POINTERS |
DO nd=1,ndiagt |
|
./pkg/diagnostics/diagstats_set_pointers.F |
66 |
DIAGSTATS_SET_POINTERS |
IF ( diagSt_Flds(md,ld).EQ.cdiag(nd) ) THEN |
|
./pkg/diagnostics/diagstats_set_pointers.F |
67 |
DIAGSTATS_SET_POINTERS |
CALL DIAGSTATS_SETDIAG(mate,ndiagcount,md,ld,nd,myThid) |
|
./pkg/diagnostics/diagstats_set_pointers.F |
69 |
DIAGSTATS_SET_POINTERS |
jSdiag(md,ld) = nd |