Commit e5e3990a8d7e111913e03b657387317ea1c953a8
1 parent
14b7c37e
Exists in
master
correcting path remove whrite(*,*)
Showing
1 changed file
with
1 additions
and
2 deletions
Show diff stats
cainlib/src/cain.in
| ... | ... | @@ -15,7 +15,7 @@ |
| 15 | 15 | implicit real (kind=8) (a-h,o-z) |
| 16 | 16 | external cread, gfield |
| 17 | 17 | character(2000) :: coeffs_cain_file ="_path_& |
| 18 | - &FSU_mars90" | |
| 18 | + &/FSU_mars90" | |
| 19 | 19 | integer l |
| 20 | 20 | common /trace/rm, maxln |
| 21 | 21 | ! real dlat,dlong,alt,Btt,Bpp,Brr,Bx,By,Bz,B |
| ... | ... | @@ -28,7 +28,6 @@ |
| 28 | 28 | ty = 1999.6493 |
| 29 | 29 | open (unit=12,file =trim(coeffs_cain_file)) |
| 30 | 30 | call cread (12,ty,l,maxln,a) |
| 31 | - write(*,*) "inputs", dlat,dlong,alt | |
| 32 | 31 | call gfield(dlat,dlong,alt,maxln,rm,Btt, Bpp, Brr, Bx,By,Bz,B) |
| 33 | 32 | ifail = 1 |
| 34 | 33 | end | ... | ... |