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

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

@@ -41 +41 @@
   !   ===========
 
-  integer :: ntrac
-  real :: dt_app,dt_cum
-  real :: ps(iip1,jjb_u:jje_u)
-  real :: masse(iip1,jjb_u:jje_u,llm),pk(iip1,jjb_u:jje_u,llm)
-  real :: flux_u(iip1,jjb_u:jje_u,llm)
-  real :: flux_v(iip1,jjb_v:jje_v,llm)
-  real :: teta(iip1,jjb_u:jje_u,llm)
-  real :: phi(iip1,jjb_u:jje_u,llm)
-  real :: ucov(iip1,jjb_u:jje_u,llm)
-  real :: vcov(iip1,jjb_v:jje_v,llm)
-  real :: trac(iip1,jjb_u:jje_u,llm,ntrac)
+  INTEGER :: ntrac
+  REAL :: dt_app,dt_cum
+  REAL :: ps(iip1,jjb_u:jje_u)
+  REAL :: masse(iip1,jjb_u:jje_u,llm),pk(iip1,jjb_u:jje_u,llm)
+  REAL :: flux_u(iip1,jjb_u:jje_u,llm)
+  REAL :: flux_v(iip1,jjb_v:jje_v,llm)
+  REAL :: teta(iip1,jjb_u:jje_u,llm)
+  REAL :: phi(iip1,jjb_u:jje_u,llm)
+  REAL :: ucov(iip1,jjb_u:jje_u,llm)
+  REAL :: vcov(iip1,jjb_v:jje_v,llm)
+  REAL :: trac(iip1,jjb_u:jje_u,llm,ntrac)
 
   !   Local :
@@ -61 +61 @@
 !$OMP THREADPRIVATE(first)
 
-  real :: zz,zqy
+  REAL :: zz,zqy
   REAl,SAVE,ALLOCATABLE :: zfactv(:,:)
 
@@ -69 +69 @@
   !ym      character*6 nom(nQ)
   !ym      character*6 unites(nQ)
-  character(len=6),save :: nom(nQ)
-  character(len=6),save :: unites(nQ)
-
-  character(len=10) file
-  integer :: ifile
+  CHARACTER(LEN=6),save :: nom(nQ)
+  CHARACTER(LEN=6),save :: unites(nQ)
+
+  CHARACTER(LEN=10) file
+  INTEGER :: ifile
   parameter (ifile=4)
 
@@ -84 +84 @@
 !$OMP THREADPRIVATE(time,itau)
 
-  real :: ww
+  REAL :: ww
 
   !   variables dynamiques intermédiaires
@@ -110 +110 @@
 
   !   champs de tansport en moyenne zonale
-  integer :: ntr,itr
+  INTEGER :: ntr,itr
   parameter (ntr=5)
 
@@ -122 +122 @@
   INTEGER,PARAMETER :: iave=1,itot=2,immc=3,itrs=4,istn=5
 
-  character(len=3) :: ctrs(ntr)
+  CHARACTER(LEN=3) :: ctrs(ntr)
   data ctrs/'  ','TOT','MMC','TRS','STN'/
 
@@ -131 +131 @@
   real,SAVE,ALLOCATABLE ::  zv(:,:),psi(:,:)
 
-  integer :: i,j,l,iQ
+  INTEGER :: i,j,l,iQ
 
 
@@ -137 +137 @@
   !   ---------------------------------------------------------
 
-  character(len=10) :: infile
+  CHARACTER(LEN=10) :: infile
 
   integer, save :: fileid
-  integer :: thoriid, zvertiid
+  INTEGER :: thoriid, zvertiid
 
   INTEGER,SAVE,ALLOCATABLE :: ndex3d(:)
@@ -146 +146 @@
   !   Variables locales
   !
-  integer :: tau0
-  real :: zjulian
-  character(len=3) :: str
-  character(len=10) :: ctrac
-  integer :: ii,jj
-  integer :: zan, dayref
+  INTEGER :: tau0
+  REAL :: zjulian
+  CHARACTER(LEN=3) :: str
+  CHARACTER(LEN=10) :: ctrac
+  INTEGER :: ii,jj
+  INTEGER :: zan, dayref
   !
   real,SAVE,ALLOCATABLE :: rlong(:),rlatg(:)
-  integer :: jjb,jje,jjn,ijb,ije
+  INTEGER :: jjb,jje,jjn,ijb,ije
   type(Request),SAVE :: Req
 !$OMP THREADPRIVATE(Req)
@@ -178 +178 @@
   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'
@@ -296 +296 @@
   do iQ=1,nQ
      do itr=1,ntr
-        if(itr==1) then
+        IF(itr==1) THEN
            znom(itr,iQ)=nom(iQ)
            znoml(itr,iQ)=nom(iQ)
@@ -404 +404 @@
   !=====================================================================
   !
-  if(icum==0) then
+  IF(icum==0) THEN
      jjb=jj_begin
      jje=jj_end
@@ -582 +582 @@
   !   PAS DE TEMPS D'ECRITURE
   !=====================================================================
-  if (icum==ncum) then
+  if (icum==ncum) THEN
   !=====================================================================
 
@@ -776 +776 @@
   !   sorties proprement dites
 !$OMP MASTER
-  if (i_sortie==1) then
+  if (i_sortie==1) THEN
   jjb=jj_begin
   jje=jj_end
@@ -841 +841 @@
 
 
-end subroutine bilan_dyn_loc
+END SUBROUTINE bilan_dyn_loc