48 |
USE start_init_orog_m, only: start_init_orog, mask, phis |
USE start_init_orog_m, only: start_init_orog, mask, phis |
49 |
use start_init_phys_m, only: qsol_2d |
use start_init_phys_m, only: qsol_2d |
50 |
use startdyn, only: start_inter_3d, start_init_dyn |
use startdyn, only: start_inter_3d, start_init_dyn |
51 |
use temps, only: itau_phy, annee_ref, day_ref, dt |
use temps, only: itau_phy, annee_ref, day_ref |
52 |
|
|
53 |
! Variables local to the procedure: |
! Variables local to the procedure: |
54 |
|
|
106 |
REAL pbaru(ip1jmp1, llm), pbarv(ip1jm, llm) |
REAL pbaru(ip1jmp1, llm), pbarv(ip1jm, llm) |
107 |
REAL w(ip1jmp1, llm) |
REAL w(ip1jmp1, llm) |
108 |
REAL phystep |
REAL phystep |
109 |
|
real trash |
110 |
|
|
111 |
!--------------------------------- |
!--------------------------------- |
112 |
|
|
221 |
ALLOCATE(dlat_lic(jml_lic)) |
ALLOCATE(dlat_lic(jml_lic)) |
222 |
ALLOCATE(fraclic(iml_lic, jml_lic)) |
ALLOCATE(fraclic(iml_lic, jml_lic)) |
223 |
CALL flinopen_nozoom("landiceref.nc", iml_lic, jml_lic, & |
CALL flinopen_nozoom("landiceref.nc", iml_lic, jml_lic, & |
224 |
llm_tmp, lon_lic, lat_lic, lev, ttm_tmp, itaul, date, dt, & |
llm_tmp, lon_lic, lat_lic, lev, ttm_tmp, itaul, date, trash, & |
225 |
fid) |
fid) |
226 |
CALL flinget(fid, 'landice', iml_lic, jml_lic, llm_tmp, ttm_tmp & |
CALL flinget(fid, 'landice', iml_lic, jml_lic, llm_tmp, ttm_tmp & |
227 |
, 1, 1, fraclic) |
, 1, 1, fraclic) |