| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_write_pickup.F |
45 |
FIZHI_WRITE_PICKUP |
INTEGER prec, iChara, lChar |
|
./pkg/fizhi/fizhi_write_pickup.F |
64 |
FIZHI_WRITE_PICKUP |
lChar = 0 |
|
./pkg/fizhi/fizhi_write_pickup.F |
66 |
FIZHI_WRITE_PICKUP |
IF ( suff(iChara:iChara) .NE. ' ') lChar=iChara |
|
./pkg/fizhi/fizhi_write_pickup.F |
68 |
FIZHI_WRITE_PICKUP |
WRITE(fn,'(A,A)') 'pickup_fizhi.',suff(1:lChar) |
|
./pkg/generic_advdiff/gad_write_pickup.F |
51 |
GAD_WRITE_PICKUP |
INTEGER n,prec,iRec,lChar |
|
./pkg/generic_advdiff/gad_write_pickup.F |
71 |
GAD_WRITE_PICKUP |
lChar = ILNBLNK(suff) |
|
./pkg/generic_advdiff/gad_write_pickup.F |
75 |
GAD_WRITE_PICKUP |
IF ( lChar.EQ.0 ) THEN |
|
./pkg/generic_advdiff/gad_write_pickup.F |
78 |
GAD_WRITE_PICKUP |
WRITE(fn,'(2A)') 'pickup_somT.',suff(1:lChar) |
|
./pkg/generic_advdiff/gad_write_pickup.F |
92 |
GAD_WRITE_PICKUP |
IF ( lChar.EQ.0 ) THEN |
|
./pkg/generic_advdiff/gad_write_pickup.F |
95 |
GAD_WRITE_PICKUP |
WRITE(fn,'(2A)') 'pickup_somS.',suff(1:lChar) |
|
./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 |
68 |
GMREDI_WRITE_PICKUP |
lChar = ILNBLNK(suff) |
|
./pkg/gmredi/gmredi_write_pickup.F |
69 |
GMREDI_WRITE_PICKUP |
IF ( lChar.EQ.0 ) THEN |
|
./pkg/gmredi/gmredi_write_pickup.F |
72 |
GMREDI_WRITE_PICKUP |
WRITE(fn,'(2A)') 'pickup_gmredi.',suff(1:lChar) |
|
./pkg/land/land_write_pickup.F |
52 |
LAND_WRITE_PICKUP |
INTEGER prec, lChar, k |
|
./pkg/land/land_write_pickup.F |
58 |
LAND_WRITE_PICKUP |
lChar = ILNBLNK(suff) |
|
./pkg/land/land_write_pickup.F |
63 |
LAND_WRITE_PICKUP |
WRITE(fn,'(A,A)') 'pickup_land.',suff(1:lChar) |
|
./pkg/land/land_write_pickup.F |
89 |
LAND_WRITE_PICKUP |
WRITE(fn,'(A,A)') 'pickup_land.',suff(1:lChar) |
|
./pkg/mypackage/mypackage_write_pickup.F |
55 |
MYPACKAGE_WRITE_PICKUP |
INTEGER j, nj, fp, lChar |
|
./pkg/mypackage/mypackage_write_pickup.F |
65 |
MYPACKAGE_WRITE_PICKUP |
lChar = ILNBLNK(suff) |
|
./pkg/mypackage/mypackage_write_pickup.F |
66 |
MYPACKAGE_WRITE_PICKUP |
IF ( lChar.EQ.0 ) THEN |
|
./pkg/mypackage/mypackage_write_pickup.F |
69 |
MYPACKAGE_WRITE_PICKUP |
WRITE(fn,'(2A)') 'pickup_mypackage.',suff(1:lChar) |
|
./pkg/ptracers/ptracers_write_pickup.F |
119 |
PTRACERS_WRITE_PICKUP |
lChar = ILNBLNK(suff) |
|
./pkg/ptracers/ptracers_write_pickup.F |
122 |
PTRACERS_WRITE_PICKUP |
IF ( lChar.EQ.0 ) THEN |
|
./pkg/ptracers/ptracers_write_pickup.F |
125 |
PTRACERS_WRITE_PICKUP |
WRITE(fn,'(2A)') 'pickup_ptracers.',suff(1:lChar) |
|
./pkg/ptracers/ptracers_write_pickup.F |
188 |
PTRACERS_WRITE_PICKUP |
IF ( lChar.EQ.0 ) THEN |
|
./pkg/ptracers/ptracers_write_pickup.F |
192 |
PTRACERS_WRITE_PICKUP |
& '.',suff(1:lChar) |
|
./pkg/ptracers/ptracers_write_pickup.F |
59 |
PTRACERS_WRITE_PICKUP |
INTEGER iTracer, j, prec, lChar |
|
./pkg/ptracers/ptracers_write_pickup.F |
77 |
PTRACERS_WRITE_PICKUP |
lChar = ILNBLNK(suff) |
|
./pkg/ptracers/ptracers_write_pickup.F |
78 |
PTRACERS_WRITE_PICKUP |
WRITE(fn,'(2A)') 'pickup_ptracers.', suff(1:lChar) |
|
./pkg/shelfice/shelfice_write_pickup.F |
53 |
SHELFICE_WRITE_PICKUP |
INTEGER j, nj, fp, lChar |
|
./pkg/shelfice/shelfice_write_pickup.F |
63 |
SHELFICE_WRITE_PICKUP |
lChar = ILNBLNK(suff) |
|
./pkg/shelfice/shelfice_write_pickup.F |
64 |
SHELFICE_WRITE_PICKUP |
IF ( lChar.EQ.0 ) THEN |
|
./pkg/shelfice/shelfice_write_pickup.F |
67 |
SHELFICE_WRITE_PICKUP |
WRITE(fn,'(2A)') 'pickup_shelfice.',suff(1:lChar) |
|
./pkg/streamice/streamice_write_pickup.F |
53 |
STREAMICE_WRITE_PICKUP |
INTEGER j, nj, fp, lChar |
|
./pkg/streamice/streamice_write_pickup.F |
63 |
STREAMICE_WRITE_PICKUP |
lChar = ILNBLNK(suff) |
|
./pkg/streamice/streamice_write_pickup.F |
64 |
STREAMICE_WRITE_PICKUP |
IF ( lChar.EQ.0 ) THEN |
|
./pkg/streamice/streamice_write_pickup.F |
67 |
STREAMICE_WRITE_PICKUP |
WRITE(fn,'(2A)') 'pickup_streamice.',suff(1:lChar) |
|
./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 |
67 |
CPL_WRITE_PICKUP |
lChar = ILNBLNK(suff) |
|
./pkg/atm_compon_interf/cpl_write_pickup.F |
68 |
CPL_WRITE_PICKUP |
IF ( lChar.EQ.0 ) THEN |
|
./pkg/atm_compon_interf/cpl_write_pickup.F |
71 |
CPL_WRITE_PICKUP |
WRITE(fn,'(2A)') 'pickup_cpl.',suff(1:lChar) |
|
./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 |
68 |
ATM_PHYS_WRITE_PICKUP |
lChar = ILNBLNK(suff) |
|
./pkg/atm_phys/atm_phys_write_pickup.F |
69 |
ATM_PHYS_WRITE_PICKUP |
IF ( lChar.EQ.0 ) THEN |
|
./pkg/atm_phys/atm_phys_write_pickup.F |
72 |
ATM_PHYS_WRITE_PICKUP |
WRITE(fn,'(2A)') 'pickup_atmPhys.',suff(1:lChar) |
|
./pkg/bbl/bbl_write_pickup.F |
53 |
BBL_WRITE_PICKUP |
INTEGER j, fp, lChar |
|
./pkg/bbl/bbl_write_pickup.F |
63 |
BBL_WRITE_PICKUP |
lChar = ILNBLNK(suff) |
|
./pkg/bbl/bbl_write_pickup.F |
64 |
BBL_WRITE_PICKUP |
IF ( lChar.EQ.0 ) THEN |
|
./pkg/bbl/bbl_write_pickup.F |
67 |
BBL_WRITE_PICKUP |
WRITE(fn,'(2A)') 'pickup_bbl.',suff(1:lChar) |
|
./pkg/cheapaml/cheapaml_write_pickup.F |
55 |
CHEAPAML_WRITE_PICKUP |
INTEGER j, nj, fp, lChar |
|
./pkg/cheapaml/cheapaml_write_pickup.F |
65 |
CHEAPAML_WRITE_PICKUP |
lChar = ILNBLNK(suff) |
|
./pkg/cheapaml/cheapaml_write_pickup.F |
66 |
CHEAPAML_WRITE_PICKUP |
IF ( lChar.EQ.0 ) THEN |
|
./pkg/cheapaml/cheapaml_write_pickup.F |
69 |
CHEAPAML_WRITE_PICKUP |
WRITE(fn,'(2A)') 'pickup_cheapaml.',suff(1:lChar) |
|
./pkg/diagnostics/diagnostics_write_pickup.F |
48 |
DIAGNOSTICS_WRITE_PICKUP |
INTEGER prec, lChar, sn |