Changeset 5117 for LMDZ6/branches/Amaury_dev/libf/dyn3d_common/inidissip.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/inidissip.F90 (modified) (6 diffs)

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

@@ -16 +16 @@
   USE lmdz_filtreg, ONLY: filtreg
   USE lmdz_libmath, ONLY: minmax
+  USE lmdz_ran1, ONLY: ran1
 
   IMPLICIT NONE
@@ -23 +24 @@
   include "iniprint.h"
 
-  LOGICAL, INTENT(in) :: lstardis
-  INTEGER, INTENT(in) :: nitergdiv, nitergrot, niterh
-  REAL, INTENT(in) :: tetagdiv, tetagrot, tetatemp
-
-  integer, INTENT(in) :: vert_prof_dissip
+  LOGICAL, INTENT(IN) :: lstardis
+  INTEGER, INTENT(IN) :: nitergdiv, nitergrot, niterh
+  REAL, INTENT(IN) :: tetagdiv, tetagrot, tetatemp
+
+  INTEGER, INTENT(IN) :: vert_prof_dissip
   ! Vertical profile of horizontal dissipation
   ! Allowed values:
@@ -36 +37 @@
   REAL fact, zvert(llm), zz
   REAL zh(ip1jmp1), zu(ip1jmp1), gx(ip1jmp1), divgra(ip1jmp1)
-  real zv(ip1jm), gy(ip1jm), deltap(ip1jmp1, llm)
+  REAL zv(ip1jm), gy(ip1jm), deltap(ip1jmp1, llm)
   REAL ullm, vllm, umin, vmin, zhmin, zhmax
   REAL zllm
@@ -43 +44 @@
   REAL tetamin
   REAL pseudoz
-  character (len = 80) :: abort_message
-
-  REAL ran1
-
+  CHARACTER (LEN = 80) :: abort_message
 
   !-----------------------------------------------------------------------
@@ -174 +172 @@
   !   --------------------------------------------------
 
-  if (vert_prof_dissip == 1) THEN
+  IF (vert_prof_dissip == 1) THEN
     do l = 1, llm
       pseudoz = 8. * log(preff / presnivs(l))
@@ -190 +188 @@
       zvert(l) = fact - (fact - 1.) / (1. + zz * zz)
     ENDDO
-  endif
+  ENDIF
 
   WRITE(lunout, *)'inidissip: Constantes de temps de la diffusion horizontale'