Changeset 5116 for LMDZ6/branches/Amaury_dev/libf/misc/wxios.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/misc/wxios.F90 (modified) (4 diffs)

LMDZ6/branches/Amaury_dev/libf/misc/wxios.F90

@@ -359 +359 @@
     !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
     SUBROUTINE wxios_domain_param(dom_id)
-       USE dimphy, only: klon
+       USE dimphy, ONLY: klon
        USE lmdz_phys_transfert_para, ONLY: gather, bcast
-       USE lmdz_phys_para, only: jj_nb, jj_begin, jj_end, ii_begin, ii_end, &
+       USE lmdz_phys_para, ONLY: jj_nb, jj_begin, jj_end, ii_begin, ii_end, &
                                      mpi_size, mpi_rank, klon_mpi, &
                                      is_sequential, is_south_pole_dyn
-       USE lmdz_grid_phy, only: nbp_lon, nbp_lat, klon_glo
+       USE lmdz_grid_phy, ONLY: nbp_lon, nbp_lat, klon_glo
        USE lmdz_print_control, ONLY: prt_level, lunout
        USE lmdz_geometry
@@ -390 +390 @@
         io_lat(1)=rlat_glo(1)
         io_lat(nbp_lat)=rlat_glo(klon_glo)
-        IF ((nbp_lon*nbp_lat) > 1) then
+        IF ((nbp_lon*nbp_lat) > 1) THEN
           DO i=2,nbp_lat-1
             io_lat(i)=rlat_glo(2+(i-2)*nbp_lon)
@@ -532 +532 @@
         
         ! Ehouarn: New way to declare axis, without axis_group:
-        if (PRESENT(positif) .AND. PRESENT(bnds)) then
+        if (PRESENT(positif) .AND. PRESENT(bnds)) THEN
           CALL xios_set_axis_attr(trim(axis_id),n_glo=axis_size,value=axis_value, &
                                   positive=positif, bounds=bnds)
-        else if (PRESENT(positif)) then
+        else if (PRESENT(positif)) THEN
           CALL xios_set_axis_attr(trim(axis_id),n_glo=axis_size,value=axis_value, &
                                   positive=positif)
-        else if (PRESENT(bnds)) then
+        else if (PRESENT(bnds)) THEN
           CALL xios_set_axis_attr(trim(axis_id),n_glo=axis_size,value=axis_value, &
                                   bounds=bnds)
@@ -605 +605 @@
     !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
     SUBROUTINE wxios_add_field(fieldname, fieldgroup, fieldlongname, fieldunit)
-        USE netcdf, only: nf90_fill_real
+        USE netcdf, ONLY: nf90_fill_real
 
         IMPLICIT NONE