Changeset 5105 for LMDZ6/branches/Amaury_dev/libf/dyn3d_common/bernoui.f90

Timestamp:

Jul 23, 2024, 7:14:34 PM (8 weeks ago)

Author:

abarral

Message:

Replace 1DUTILS.h by module lmdz_1dutils.f90
Replace 1DConv.h by module lmdz_old_1dconv.f90 (it's only used by old_* files)
Convert *.F to *.f90
Fix gradsdef.h formatting
Remove unnecessary "RETURN" at the end of functions/subroutines

File:

• LMDZ6/branches/Amaury_dev/libf/dyn3d_common/bernoui.f90 (moved) (moved from LMDZ6/branches/Amaury_dev/libf/dyn3d_common/bernoui.F) (1 diff)

LMDZ6/branches/Amaury_dev/libf/dyn3d_common/bernoui.f90

@@ -2 +2 @@
 ! $Header$
 
-      SUBROUTINE bernoui (ngrid,nlay,pphi,pecin,pbern)
-      IMPLICIT NONE
+SUBROUTINE bernoui (ngrid,nlay,pphi,pecin,pbern)
+  IMPLICIT NONE
 
-c=======================================================================
-c
-c   Auteur:   P. Le Van
-c   -------
-c
-c   Objet:
-c   ------
-c     calcul de la fonction de Bernouilli aux niveaux s  .....
-c     phi  et  ecin  sont des arguments d'entree pour le s-pg .......
-c          bern       est un  argument de sortie pour le s-pg  ......
-c
-c    fonction de Bernouilli = bern = filtre de( geopotentiel + 
-c                              energ.cinet.)
-c
-c=======================================================================
-c
-c-----------------------------------------------------------------------
-c   Decalrations:
-c   -------------
-c
-      include "dimensions.h"
-      include "paramet.h"
-c
-c   Arguments:
-c   ----------
-c
-      INTEGER nlay,ngrid
-      REAL pphi(ngrid*nlay),pecin(ngrid*nlay),pbern(ngrid*nlay)
-c
-c   Local:
-c   ------
-c
-      INTEGER   ijl
-c
-c-----------------------------------------------------------------------
-c   calcul de Bernouilli:
-c   ---------------------
-c
-      DO ijl = 1,ngrid*nlay
-         pbern( ijl ) =  pphi( ijl ) + pecin( ijl )
-      END DO
-c
-c-----------------------------------------------------------------------
-c   filtre:
-c   -------
-c
-      CALL filtreg( pbern, jjp1, llm, 2,1, .TRUE., 1 )
-c
-c-----------------------------------------------------------------------
-      RETURN
-      END
+  !=======================================================================
+  !
+  !   Auteur:   P. Le Van
+  !   -------
+  !
+  !   Objet:
+  !   ------
+  ! calcul de la fonction de Bernouilli aux niveaux s  .....
+  ! phi  et  ecin  sont des arguments d'entree pour le s-pg .......
+  !      bern       est un  argument de sortie pour le s-pg  ......
+  !
+  !    fonction de Bernouilli = bern = filtre de( geopotentiel +
+  !                          energ.cinet.)
+  !
+  !=======================================================================
+  !
+  !-----------------------------------------------------------------------
+  !   Decalrations:
+  !   -------------
+  !
+  include "dimensions.h"
+  include "paramet.h"
+  !
+  !   Arguments:
+  !   ----------
+  !
+  INTEGER :: nlay,ngrid
+  REAL :: pphi(ngrid*nlay),pecin(ngrid*nlay),pbern(ngrid*nlay)
+  !
+  !   Local:
+  !   ------
+  !
+  INTEGER :: ijl
+  !
+  !-----------------------------------------------------------------------
+  !   calcul de Bernouilli:
+  !   ---------------------
+  !
+  DO ijl = 1,ngrid*nlay
+     pbern( ijl ) =  pphi( ijl ) + pecin( ijl )
+  END DO
+  !
+  !-----------------------------------------------------------------------
+  !   filtre:
+  !   -------
+  !
+  CALL filtreg( pbern, jjp1, llm, 2,1, .TRUE., 1 )
+  !
+  !-----------------------------------------------------------------------
+  RETURN
+END SUBROUTINE bernoui