Changeset 5117 for LMDZ6/branches/Amaury_dev/libf/dyn3d_common/ugeostr.F90

Timestamp:

Jul 24, 2024, 4:23:34 PM (2 months ago)

Author:

abarral

Message:

rename modules properly lmdz_*
move some unused files to obsolete/
(lint) uppercase fortran keywords

File:

• LMDZ6/branches/Amaury_dev/libf/dyn3d_common/ugeostr.F90 (modified) (3 diffs)

LMDZ6/branches/Amaury_dev/libf/dyn3d_common/ugeostr.F90

@@ -11 +11 @@
   ! levels are pressure levels.
 
-  use comconst_mod, ONLY: omeg, rad
+  USE comconst_mod, ONLY: omeg, rad
   
   IMPLICIT NONE
@@ -19 +19 @@
   include "comgeom2.h"
 
-  real ucov(iip1,jjp1,llm),phi(iip1,jjp1,llm)
-  real um(jjm,llm),fact,u(iip1,jjm,llm)
-  integer i,j,l
+  REAL ucov(iip1,jjp1,llm),phi(iip1,jjp1,llm)
+  REAL um(jjm,llm),fact,u(iip1,jjm,llm)
+  INTEGER i,j,l
 
-  real zlat
+  REAL zlat
 
   um(:,:)=0 ! initialize um()
@@ -29 +29 @@
   DO j=1,jjm
 
-     if (abs(sin(rlatv(j)))<1.e-4) THEN
+     IF (abs(sin(rlatv(j)))<1.e-4) THEN
         zlat=1.e-4
      else