37 |
use iniadvtrac_m, only: iniadvtrac |
use iniadvtrac_m, only: iniadvtrac |
38 |
use inidissip_m, only: inidissip |
use inidissip_m, only: inidissip |
39 |
use inigeom_m, only: inigeom |
use inigeom_m, only: inigeom |
40 |
USE flincom, only: flinget, flinclo, flinopen_nozoom, flininfo |
USE flincom, only: flinclo, flinopen_nozoom, flininfo |
41 |
|
use flinget_m, only: flinget |
42 |
use histcom, only: histclo |
use histcom, only: histclo |
43 |
use paramet_m, only: ip1jm, ip1jmp1 |
use paramet_m, only: ip1jm, ip1jmp1 |
44 |
use phyredem_m, only: phyredem |
use phyredem_m, only: phyredem |
222 |
ALLOCATE(dlon_lic(iml_lic)) |
ALLOCATE(dlon_lic(iml_lic)) |
223 |
ALLOCATE(dlat_lic(jml_lic)) |
ALLOCATE(dlat_lic(jml_lic)) |
224 |
ALLOCATE(fraclic(iml_lic, jml_lic)) |
ALLOCATE(fraclic(iml_lic, jml_lic)) |
225 |
CALL flinopen_nozoom("landiceref.nc", iml_lic, jml_lic, & |
CALL flinopen_nozoom(iml_lic, jml_lic, & |
226 |
llm_tmp, lon_lic, lat_lic, lev, ttm_tmp, itaul, date, trash, & |
llm_tmp, lon_lic, lat_lic, lev, ttm_tmp, itaul, date, trash, & |
227 |
fid) |
fid) |
228 |
CALL flinget(fid, 'landice', iml_lic, jml_lic, llm_tmp, ttm_tmp & |
CALL flinget(fid, 'landice', iml_lic, jml_lic, llm_tmp, ttm_tmp & |