Changeset 5082 for LMDZ6/branches/Amaury_dev/libf/dyn3d_common/ugeostr.F90
- Timestamp:
- Jul 19, 2024, 5:41:58 PM (2 months ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/Amaury_dev/libf/dyn3d_common/ugeostr.F90
r2597 r5082 29 29 DO j=1,jjm 30 30 31 if (abs(sin(rlatv(j))) .lt.1.e-4) then31 if (abs(sin(rlatv(j)))<1.e-4) then 32 32 zlat=1.e-4 33 33 else
Note: See TracChangeset
for help on using the changeset viewer.