1 |
program test_inifilr |
program test_inifilr |
2 |
|
|
3 |
use dimensions, only: iim, jjm |
use dimensions, only: iim, jjm |
4 |
use dynetat0_m, only: rlatu, rlatv, read_serre, fyhyp, fxhyp |
use dynetat0_m, only: rlatu, rlatv, fyhyp, fxhyp |
5 |
|
use dynetat0_chosen_m, only: read_serre |
6 |
use inifilr_m, only: inifilr, jfiltnu, jfiltnv, jfiltsu, jfiltsv, & |
use inifilr_m, only: inifilr, jfiltnu, jfiltnv, jfiltsu, jfiltsv, & |
7 |
matriceun, matrinvn, matricevn, matriceus, matrinvs, matricevs |
matriceun, matrinvn, matricevn, matriceus, matrinvs, matricevs |
8 |
use netcdf, only: NF90_CLOBBER, NF90_FLOAT |
use netcdf, only: NF90_CLOBBER, NF90_FLOAT |