Changeset 5123 for LMDZ6/branches/Amaury_dev/libf/dyn3d_common/limy.f90
- Timestamp:
- Jul 25, 2024, 8:45:50 AM (4 months ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/Amaury_dev/libf/dyn3d_common/limy.f90
r5117 r5123 16 16 USE comconst_mod, ONLY: pi 17 17 USE lmdz_libmath, ONLY: ismax, ismin 18 USE lmdz_ssum_scopy, ONLY: ssum 19 18 20 IMPLICIT NONE 19 21 ! … … 47 49 REAL :: coslon(iip1),coslondlon(iip1) 48 50 save sinlon,coslon,sinlondlon,coslondlon 49 !50 !51 REAL :: SSUM52 EXTERNAL SSUM53 51 54 52 data first/.TRUE./
Note: See TracChangeset
for help on using the changeset viewer.