Changeset 5116 for LMDZ6/branches/Amaury_dev/libf/dyn3d_common/ugeostr.F90
- Timestamp:
- Jul 24, 2024, 2:54:37 PM (2 months ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/Amaury_dev/libf/dyn3d_common/ugeostr.F90
r5113 r5116 11 11 ! levels are pressure levels. 12 12 13 use comconst_mod, only: omeg, rad13 use comconst_mod, ONLY: omeg, rad 14 14 15 15 IMPLICIT NONE … … 29 29 DO j=1,jjm 30 30 31 if (abs(sin(rlatv(j)))<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.