Changeset 5116 for LMDZ6/branches/Amaury_dev/libf/phylmd/ran0_vec.F90

Timestamp:

Jul 24, 2024, 2:54:37 PM (4 months ago)

Author:

abarral

Message:

rename modules properly lmdz_*
move ismin, ismax, minmax into new lmdz_libmath.f90
(lint) uppercase fortran keywords

File:

• LMDZ6/branches/Amaury_dev/libf/phylmd/ran0_vec.F90 (modified) (1 diff)

LMDZ6/branches/Amaury_dev/libf/phylmd/ran0_vec.F90

@@ -17 +17 @@
 
   ! do j=1,npoints
-  ! if (idum(j).eq.0) then
-  ! write(6,*) 'idum=',idum
-  ! write(6,*) 'ZERO seed not allowed'
+  ! if (idum(j).eq.0) THEN
+  ! WRITE(6,*) 'idum=',idum
+  ! WRITE(6,*) 'ZERO seed not allowed'
   ! stop
   ! endif