File |
Line number |
Procedure |
Code |
./pkg/profiles/profiles_init_fixed.F |
416 |
PROFILES_INIT_FIXED |
lon_cur=tmp_lon2(k) |
./pkg/profiles/profiles_init_fixed.F |
424 |
PROFILES_INIT_FIXED |
lon_cur=tmp_lon2(k)+360. _d 0 |
./pkg/profiles/profiles_init_fixed.F |
462 |
PROFILES_INIT_FIXED |
if ((lon_tmp1.LE.lon_cur).AND.(lon_tmp2.GT.lon_cur)) then |
./pkg/profiles/profiles_init_fixed.F |
478 |
PROFILES_INIT_FIXED |
prof_lon(num_file,ProfNo_tile,bi,bj)=lon_cur |
./pkg/profiles/profiles_init_fixed.F |
485 |
PROFILES_INIT_FIXED |
lon_fac=(lon_cur-lon_1)/(lon_2-lon_1) |
./pkg/profiles/profiles_init_fixed.F |
50 |
PROFILES_INIT_FIXED |
_RL tmp_lon, tmp_lon2(1000), tmp_lat2(1000), lon_cur, lat_cur |