Changeset 5117 for LMDZ6/branches/Amaury_dev/libf/misc/lmdz_wxios.F90

Timestamp:

Jul 24, 2024, 4:23:34 PM (4 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/misc/lmdz_wxios.F90 (moved) (moved from LMDZ6/branches/Amaury_dev/libf/misc/wxios.F90) (7 diffs)

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

@@ -1 +1 @@
 ! $Id$
 
-MODULE wxios
+MODULE lmdz_wxios
     USE lmdz_xios
 
@@ -129 +129 @@
         
 !        ! Si couple alors init fait dans cpl_init
-!        IF (.not. PRESENT(type_ocean)) THEN
+!        IF (.NOT. PRESENT(type_ocean)) THEN
 !            CALL wxios_context_init()
 !        ENDIF
@@ -171 +171 @@
       
       USE infotrac_phy, ONLY: nbtr, nqtot, nqo, type_trac, tracers, niso, ntiso
-      USE strings_mod,  ONLY: maxlen
+      USE lmdz_strings,  ONLY: maxlen
 
       IMPLICIT NONE
@@ -423 +423 @@
         IF (.NOT.is_sequential) THEN
             mask(:,:)=.TRUE.
-            if (ii_begin>1) mask(1:ii_begin-1,1) = .FALSE.
-            if (ii_end<nbp_lon) mask(ii_end+1:nbp_lon,jj_nb) = .FALSE.
+            IF (ii_begin>1) mask(1:ii_begin-1,1) = .FALSE.
+            IF (ii_end<nbp_lon) mask(ii_end+1:nbp_lon,jj_nb) = .FALSE.
             ! special case for south pole
-            if ((ii_end==1).and.(is_south_pole_dyn)) mask(1:nbp_lon,jj_nb)=.TRUE.
+            IF ((ii_end==1).AND.(is_south_pole_dyn)) mask(1:nbp_lon,jj_nb)=.TRUE.
             IF (prt_level >= 10) THEN
               WRITE(lunout,*) "wxios_domain_param: mpirank=",mpi_rank," mask(:,1)=",mask(:,1)
@@ -450 +450 @@
         USE lmdz_grid_phy, ONLY: nvertex, klon_glo
         USE lmdz_phys_para
-        USE nrtype, ONLY: PI
+        USE lmdz_physical_constants, ONLY: PI
         USE lmdz_ioipsl_getin_p, ONLY: getin_p
         IMPLICIT NONE
@@ -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)
@@ -784 +784 @@
          CALL xios_finalize()
      END SUBROUTINE wxios_close
-END MODULE wxios
-
+END MODULE lmdz_wxios
+