Changeset 5105 for LMDZ6/branches/Amaury_dev/libf/phylmd/orbite.F90
- Timestamp:
- Jul 23, 2024, 7:14:34 PM (8 weeks ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/Amaury_dev/libf/phylmd/orbite.F90
r2359 r5105 43 43 44 44 dist = (1-r_ecc*r_ecc)/(1+r_ecc*cos(pir*(longi-(r_peri+180.0)))) 45 RETURN 45 46 46 END SUBROUTINE orbite 47 47 ! ====================================================================== … … 99 99 END DO 100 100 101 RETURN 101 102 102 END SUBROUTINE angle 103 103 ! ==================================================================== … … 291 291 END DO 292 292 293 RETURN 293 294 294 END SUBROUTINE zenith
Note: See TracChangeset
for help on using the changeset viewer.