31 |
INTEGER:: itau(1) |
INTEGER:: itau(1) |
32 |
INTEGER:: llm_tmp, ttm_tmp |
INTEGER:: llm_tmp, ttm_tmp |
33 |
|
|
|
CHARACTER(len=120) physfname |
|
|
LOGICAL:: check=.TRUE. |
|
|
|
|
34 |
REAL, ALLOCATABLE:: lon_rad(:), lat_rad(:) |
REAL, ALLOCATABLE:: lon_rad(:), lat_rad(:) |
35 |
REAL, ALLOCATABLE:: lon_ini(:), lat_ini(:) |
REAL, ALLOCATABLE:: lon_ini(:), lat_ini(:) |
36 |
REAL, ALLOCATABLE:: var_ana(:, :) |
REAL, ALLOCATABLE:: var_ana(:, :) |
40 |
|
|
41 |
print *, "Call sequence information: start_init_phys" |
print *, "Call sequence information: start_init_phys" |
42 |
if (any(shape(tsol_2d) /= (/iim + 1, jjm + 1/))) stop "start_init_phys" |
if (any(shape(tsol_2d) /= (/iim + 1, jjm + 1/))) stop "start_init_phys" |
43 |
physfname = 'ECPHY.nc' |
CALL flininfo('ECPHY.nc', iml_phys, jml_phys, llm_tmp, ttm_tmp, fid_phys) |
|
IF ( check ) print *, 'Opening the surface analysis' |
|
|
CALL flininfo(physfname, iml_phys, jml_phys, llm_tmp, ttm_tmp, fid_phys) |
|
44 |
|
|
45 |
ALLOCATE(lat_phys(iml_phys, jml_phys)) |
ALLOCATE(lat_phys(iml_phys, jml_phys)) |
46 |
ALLOCATE(lon_phys(iml_phys, jml_phys)) |
ALLOCATE(lon_phys(iml_phys, jml_phys)) |