4 |
|
|
5 |
use comdissnew, only: read_comdissnew |
use comdissnew, only: read_comdissnew |
6 |
use conf_gcm_m, only: conf_gcm |
use conf_gcm_m, only: conf_gcm |
7 |
use dimens_m, only: iim, jjm |
use dimensions, only: iim, jjm |
8 |
use etat0_mod, only: etat0 |
use etat0_mod, only: etat0 |
9 |
use grilles_gcm_netcdf_sub_m, only: grilles_gcm_netcdf_sub |
use grilles_gcm_netcdf_sub_m, only: grilles_gcm_netcdf_sub |
10 |
use jumble, only: new_unit |
use jumble, only: new_unit |
27 |
CALL limit |
CALL limit |
28 |
CALL grilles_gcm_netcdf_sub(phis) |
CALL grilles_gcm_netcdf_sub(phis) |
29 |
close(unit_nml) |
close(unit_nml) |
30 |
|
print *, "ce0l: done" |
31 |
|
|
32 |
END PROGRAM ce0l |
END PROGRAM ce0l |