Changeset 2220 for LMDZ5/branches/testing/libf/dyn3d_common/grid_atob.F
- Timestamp:
- Mar 3, 2015, 2:41:13 PM (10 years ago)
- Location:
- LMDZ5/branches/testing
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/branches/testing
- Property svn:mergeinfo changed
/LMDZ5/trunk merged: 2188-2195,2197-2202,2204-2210,2213-2216
- Property svn:mergeinfo changed
-
LMDZ5/branches/testing/libf/dyn3d_common/grid_atob.F
r2160 r2220 936 936 c 937 937 SUBROUTINE dist_sphe(rf_lon,rf_lat,rlon,rlat,im,jm,distance) 938 IMPLICIT NONE 938 939 c 939 940 c Auteur: Laurent Li (le 30 decembre 1996) … … 958 959 REAL radius 959 960 PARAMETER (radius=6371229.) 961 INTEGER i,j 960 962 c 961 963 pi = 4.0 * ATAN(1.0)
Note: See TracChangeset
for help on using the changeset viewer.