Changeset 5116 for LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/read_vent.f90

Timestamp:

Jul 24, 2024, 2:54:37 PM (2 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/phylmd/Dust/read_vent.f90 (modified) (2 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/read_vent.f90

@@ -10 +10 @@
   INTEGER :: step, nbjour
   LOGICAL :: debutphy
-  real :: u10m_ec(klon), v10m_ec(klon)
-  real :: u10m_ec_glo(klon_glo), v10m_ec_glo(klon_glo)
+  REAL :: u10m_ec(klon), v10m_ec(klon)
+  REAL :: u10m_ec_glo(klon_glo), v10m_ec_glo(klon_glo)
 
   !  real u10m_nc(iip1,jjp1) !, v10m_nc(iip1,jjm) ! dim 97x72
   !  real v10m_nc(iip1,jjp1)  ! dim 97x73
-  real :: u10m_nc_glo(nbp_lon + 1, nbp_lat) !, v10m_nc(iip1,jjm) ! dim 97x72
-  real :: v10m_nc_glo(nbp_lon + 1, nbp_lat)  ! dim 97x73
-  integer :: rcode
-  integer :: ncidu1, varidu1, ncidv1, varidv1
+  REAL :: u10m_nc_glo(nbp_lon + 1, nbp_lat) !, v10m_nc(iip1,jjm) ! dim 97x72
+  REAL :: v10m_nc_glo(nbp_lon + 1, nbp_lat)  ! dim 97x73
+  INTEGER :: rcode
+  INTEGER :: ncidu1, varidu1, ncidv1, varidv1
   save ncidu1, varidu1, ncidv1, varidv1
   !$OMP THREADPRIVATE(ncidu1, varidu1, ncidv1, varidv1)
-  integer :: start(4), count(4), status
-  integer :: i, j, ig
+  INTEGER :: start(4), count(4), status
+  INTEGER :: i, j, ig
 
   !$OMP MASTER
   IF (is_mpi_root .AND. is_omp_root) THEN
-    if (debutphy) then
-
+    if (debutphy) THEN
       ncidu1 = nf90_open('u10m.nc', nf90_nowrite, rcode)
       varidu1 = nf90_inq_varid(ncidu1, 'U10M', rcode)
@@ -107 +106 @@
 ! added by JE from the nh SPLA, dyn3d/read_reanalyse.F which is not available any more
 SUBROUTINE correctbid(iim, nl, x)
-  integer :: iim, nl
-  real :: x(iim + 1, nl)
-  integer :: i, l
-  real :: zz
+  INTEGER :: iim, nl
+  REAL :: x(iim + 1, nl)
+  INTEGER :: i, l
+  REAL :: zz
 
   do l = 1, nl
     do i = 2, iim - 1
-      if(abs(x(i, l))>1.e10) then
+      IF(abs(x(i, l))>1.e10) THEN
         zz = 0.5 * (x(i - 1, l) + x(i + 1, l))
         ! PRINT*,'correction ',i,l,x(i,l),zz