Changeset 5117 for LMDZ6/branches/Amaury_dev/libf/dyn3dmem/bilan_dyn_loc.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/dyn3dmem/bilan_dyn_loc.f90 (modified) (20 diffs)

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

@@ -13 +13 @@
   USE parallel_lmdz
   USE mod_hallo
-  use misc_mod
+  USE misc_mod
   USE write_field_loc
   USE comconst_mod, ONLY: cpp, pi
@@ -56 +56 @@
   !   =======
 
-  integer,SAVE :: icum,ncum
+  INTEGER,SAVE :: icum,ncum
 !$OMP THREADPRIVATE(icum,ncum)
   LOGICAL,SAVE :: first=.TRUE.
@@ -76 +76 @@
   parameter (ifile=4)
 
-  integer,PARAMETER :: itemp=1,igeop=2,iecin=3,iang=4,iu=5
+  INTEGER,PARAMETER :: itemp=1,igeop=2,iecin=3,iang=4,iu=5
   INTEGER,PARAMETER :: iovap=6,iun=7
-  integer,PARAMETER :: i_sortie=1
-
-  real,SAVE :: time=0.
-  integer,SAVE :: itau=0.
+  INTEGER,PARAMETER :: i_sortie=1
+
+  REAL,SAVE :: time=0.
+  INTEGER,SAVE :: itau=0.
 !$OMP THREADPRIVATE(time,itau)
 
@@ -95 +95 @@
 
   !   champ contenant les scalaires advectés.
-  real,SAVE,ALLOCATABLE :: Q(:,:,:,:)
+  REAL,SAVE,ALLOCATABLE :: Q(:,:,:,:)
 
   !   champs cumulés
-  real,SAVE,ALLOCATABLE ::  ps_cum(:,:)
-  real,SAVE,ALLOCATABLE ::  masse_cum(:,:,:)
-  real,SAVE,ALLOCATABLE ::  flux_u_cum(:,:,:)
-  real,SAVE,ALLOCATABLE ::  flux_v_cum(:,:,:)
-  real,SAVE,ALLOCATABLE ::  Q_cum(:,:,:,:)
-  real,SAVE,ALLOCATABLE ::  flux_uQ_cum(:,:,:,:)
-  real,SAVE,ALLOCATABLE ::  flux_vQ_cum(:,:,:,:)
-  real,SAVE,ALLOCATABLE ::  flux_wQ_cum(:,:,:,:)
-  real,SAVE,ALLOCATABLE ::  dQ(:,:,:,:)
+  REAL,SAVE,ALLOCATABLE ::  ps_cum(:,:)
+  REAL,SAVE,ALLOCATABLE ::  masse_cum(:,:,:)
+  REAL,SAVE,ALLOCATABLE ::  flux_u_cum(:,:,:)
+  REAL,SAVE,ALLOCATABLE ::  flux_v_cum(:,:,:)
+  REAL,SAVE,ALLOCATABLE ::  Q_cum(:,:,:,:)
+  REAL,SAVE,ALLOCATABLE ::  flux_uQ_cum(:,:,:,:)
+  REAL,SAVE,ALLOCATABLE ::  flux_vQ_cum(:,:,:,:)
+  REAL,SAVE,ALLOCATABLE ::  flux_wQ_cum(:,:,:,:)
+  REAL,SAVE,ALLOCATABLE ::  dQ(:,:,:,:)
 
 
@@ -125 +125 @@
   data ctrs/'  ','TOT','MMC','TRS','STN'/
 
-  real,SAVE,ALLOCATABLE ::  zvQ(:,:,:,:),zvQtmp(:,:)
-  real,SAVE,ALLOCATABLE ::  zavQ(:,:,:),psiQ(:,:,:)
-  real,SAVE,ALLOCATABLE ::  zmasse(:,:),zamasse(:)
-
-  real,SAVE,ALLOCATABLE ::  zv(:,:),psi(:,:)
+  REAL,SAVE,ALLOCATABLE ::  zvQ(:,:,:,:),zvQtmp(:,:)
+  REAL,SAVE,ALLOCATABLE ::  zavQ(:,:,:),psiQ(:,:,:)
+  REAL,SAVE,ALLOCATABLE ::  zmasse(:,:),zamasse(:)
+
+  REAL,SAVE,ALLOCATABLE ::  zv(:,:),psi(:,:)
 
   INTEGER :: i,j,l,iQ
@@ -139 +139 @@
   CHARACTER(LEN=10) :: infile
 
-  integer, save :: fileid
+  INTEGER, save :: fileid
   INTEGER :: thoriid, zvertiid
 
@@ -153 +153 @@
   INTEGER :: zan, dayref
   !
-  real,SAVE,ALLOCATABLE :: rlong(:),rlatg(:)
+  REAL,SAVE,ALLOCATABLE :: rlong(:),rlatg(:)
   INTEGER :: jjb,jje,jjn,ijb,ije
   type(Request),SAVE :: Req
@@ -173 +173 @@
   !   Initialisation
   !=====================================================================
-  if (adjust) return
+  IF (adjust) return
 
   time=time+dt_app
   itau=itau+1
 
-  if (first) THEN
+  IF (first) THEN
 !$OMP BARRIER
 !$OMP MASTER
@@ -223 +223 @@
   !   ncum est la frequence de stokage en pas de temps
     ncum=dt_cum/dt_app
-    if (abs(ncum*dt_app-dt_cum)>1.e-5*dt_app) THEN
+    IF (abs(ncum*dt_app-dt_cum)>1.e-5*dt_app) THEN
        WRITE(lunout,*) &
              'Pb : le pas de cumule doit etre multiple du pas'
@@ -358 +358 @@
 
 !$OMP END MASTER
-  endif
+  ENDIF
 
 
@@ -419 +419 @@
       Q_cum(:,jjb:jje,l,:)=0.
       flux_uQ_cum(:,jjb:jje,l,:)=0.
-      if (pole_sud) jje=jj_end-1
+      IF (pole_sud) jje=jj_end-1
       flux_v_cum(:,jjb:jje,l)=0.
       flux_vQ_cum(:,jjb:jje,l,:)=0.
     ENDDO
 !$OMP END DO NOWAIT
-  endif
+  ENDIF
 
   IF (prt_level > 5) &
@@ -447 +447 @@
 !$OMP END DO NOWAIT
 
-  if (pole_sud) jje=jj_end-1
+  IF (pole_sud) jje=jj_end-1
 
 !$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
@@ -499 +499 @@
   jjb=jj_begin
   jje=jj_end
-  if (pole_sud) jje=jj_end-1
+  IF (pole_sud) jje=jj_end-1
 
   do iQ=1,nQ
@@ -582 +582 @@
   !   PAS DE TEMPS D'ECRITURE
   !=====================================================================
-  if (icum==ncum) THEN
+  IF (icum==ncum) THEN
   !=====================================================================
 
@@ -647 +647 @@
   jjb=jj_begin
   jje=jj_end
-  if (pole_sud) jje=jj_end-1
+  IF (pole_sud) jje=jj_end-1
 
 !$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
@@ -670 +670 @@
   jjb=jj_begin
   jje=jj_end
-  if (pole_sud) jje=jj_end-1
+  IF (pole_sud) jje=jj_end-1
 
 !$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
@@ -717 +717 @@
   jjb=jj_begin
   jje=jj_end
-  if (pole_sud) jje=jj_end-1
+  IF (pole_sud) jje=jj_end-1
 
   zvQ=0.
@@ -776 +776 @@
   !   sorties proprement dites
 !$OMP MASTER
-  if (i_sortie==1) THEN
+  IF (i_sortie==1) THEN
   jjb=jj_begin
   jje=jj_end
   jjn=jj_nb
-  if (pole_sud) jje=jj_end-1
-  if (pole_sud) jjn=jj_nb-1
+  IF (pole_sud) jje=jj_end-1
+  IF (pole_sud) jjn=jj_nb-1
   do iQ=1,nQ
      do itr=1,ntr
@@ -801 +801 @@
         jjn*llm,ndex3d)
 
-  endif
+  ENDIF
 
 
@@ -832 +832 @@
   !/////////////////////////////////////////////////////////////////////
   icum=0                  !///////////////////////////////////////
-  endif ! icum.eq.ncum    !///////////////////////////////////////
+  ENDIF ! icum.EQ.ncum    !///////////////////////////////////////
   !/////////////////////////////////////////////////////////////////////
   !=====================================================================