Changeset 5116 for LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/read_dust.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_dust.f90 (modified) (1 diff)

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

@@ -11 +11 @@
   INTEGER :: step, nbjour
   LOGICAL :: debutphy
-  real :: dust_ec(klon)
-  real :: dust_ec_glo(klon_glo)
+  REAL :: dust_ec(klon)
+  REAL :: dust_ec_glo(klon_glo)
 
   ! as      real dust_nc(iip1,jjp1)
-  real :: dust_nc_glo(nbp_lon + 1, nbp_lat)
-  integer :: rcode
-  integer :: ncid1, varid1, ncid2, varid2
+  REAL :: dust_nc_glo(nbp_lon + 1, nbp_lat)
+  INTEGER :: rcode
+  INTEGER :: ncid1, varid1, ncid2, varid2
 
   save ncid1, varid1, ncid2, varid2
   !$OMP THREADPRIVATE(ncid1, varid1, ncid2, varid2)
-  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
       ncid1 = nf90_open('dust.nc', nf90_nowrite, rcode)
       varid1 = nf90_inq_varid(ncid1, 'EMISSION', rcode)