Changeset 5117 for LMDZ6/branches/Amaury_dev/libf/dyn3dmem/sw_case_williamson91_6_loc.f90

Timestamp:

Jul 24, 2024, 4:23:34 PM (4 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/dyn3dmem/sw_case_williamson91_6_loc.f90 (modified) (2 diffs)

LMDZ6/branches/Amaury_dev/libf/dyn3dmem/sw_case_williamson91_6_loc.f90

@@ -53 +53 @@
   !   ------
 
-  real,allocatable :: ucov_glo(:,:)
-  real,allocatable :: vcov_glo(:,:)
-  real,allocatable :: teta_glo(:,:)
-  real,allocatable :: masse_glo(:,:)
-  real,allocatable :: ps_glo(:)
+  REAL,ALLOCATABLE :: ucov_glo(:,:)
+  REAL,ALLOCATABLE :: vcov_glo(:,:)
+  REAL,ALLOCATABLE :: teta_glo(:,:)
+  REAL,ALLOCATABLE :: masse_glo(:,:)
+  REAL,ALLOCATABLE :: ps_glo(:)
 
    ! REAL p (ip1jmp1,llmp1  )               ! pression aux interfac.des couches
@@ -65 +65 @@
    ! REAL alpha(ip1jmp1,llm),beta(ip1jmp1,llm)
 
-  real,allocatable :: p(:,:)
-  real,allocatable :: pks(:)
-  real,allocatable :: pk(:,:)
-  real,allocatable :: pkf(:,:)
-  real,allocatable :: alpha(:,:),beta(:,:)
+  REAL,ALLOCATABLE :: p(:,:)
+  REAL,ALLOCATABLE :: pks(:)
+  REAL,ALLOCATABLE :: pk(:,:)
+  REAL,ALLOCATABLE :: pkf(:,:)
+  REAL,ALLOCATABLE :: alpha(:,:),beta(:,:)
 
   REAL :: sinth,costh,costh2, Ath,Bth,Cth, lon,dps