33 |
c 20/08/01: Correct the error through integer-values in interpolations |
c 20/08/01: Correct the error through integer-values in interpolations |
34 |
c 21/08/01: Introduce flag to read in just one decade |
c 21/08/01: Introduce flag to read in just one decade |
35 |
c |
c |
|
c Include-files: |
|
|
c -------------- |
|
36 |
c |
c |
37 |
c Input: |
c Input: |
38 |
c ------ |
c ------ |
302 |
c -------------- |
c -------------- |
303 |
c see above |
c see above |
304 |
c |
c |
|
c Include-files: |
|
|
c -------------- |
|
305 |
c |
c |
306 |
c Input: |
c Input: |
307 |
c ------ |
c ------ |
494 |
SUBROUTINE getso4fromfile (cyr, so4) |
SUBROUTINE getso4fromfile (cyr, so4) |
495 |
use dimens_m |
use dimens_m |
496 |
use dimphy |
use dimphy |
497 |
include "netcdf.inc" |
use netcdf |
498 |
CHARACTER*15 fname |
CHARACTER*15 fname |
499 |
CHARACTER*4 cyr |
CHARACTER*4 cyr |
500 |
|
|