63 |
REAL, INTENT(IN):: pdate0 ! the Julian date at which the itau was equal to 0 |
REAL, INTENT(IN):: pdate0 ! the Julian date at which the itau was equal to 0 |
64 |
REAL, INTENT(IN):: pdeltat ! time step of the counter itau, in seconds |
REAL, INTENT(IN):: pdeltat ! time step of the counter itau, in seconds |
65 |
|
|
|
INTEGER, INTENT(OUT):: fileid ! ID of the netcdf file |
|
66 |
INTEGER, INTENT(OUT):: horiid ! ID of the horizontal grid |
INTEGER, INTENT(OUT):: horiid ! ID of the horizontal grid |
67 |
|
INTEGER, INTENT(OUT):: fileid ! ID of the netcdf file |
68 |
|
|
69 |
! Variables local to the procedure: |
! Variables local to the procedure: |
70 |
REAL, DIMENSION(size(lon_1d), size(lat_1d)):: lon, lat |
REAL, DIMENSION(size(lon_1d), size(lat_1d)):: lon, lat |