Changeset 5103 for LMDZ6/branches/Amaury_dev/libf/misc/wxios.F90

Timestamp:

Jul 23, 2024, 3:29:36 PM (8 weeks ago)

Author:

abarral

Message:

Handle CPP_INLANDSIS in lmdz_cppkeys_wrapper.F90
Remove obsolete key wrgrads_thermcell, _ADV_HALO, _ADV_HALLO, isminmax
Remove redundant uses of CPPKEY_INCA (thanks acozic)
Remove obsolete misc/write_field.F90
Remove unused ioipsl_* wrappers
Remove calls to WriteField_u with wrong signature
Convert .F -> .[fF]90
(lint) uppercase fortran operators
[note: 1d and iso still broken - working on it]

File:

• LMDZ6/branches/Amaury_dev/libf/misc/wxios.F90 (modified) (4 diffs)

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

@@ -425 +425 @@
             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)
@@ -595 +595 @@
               WRITE(lunout,*) "wxios_add_file: File ",trim(fname), " défined using XML."
             ENDIF
-            ! Ehouarn: add an enable=.true. on top of xml definitions... why???
+            ! Ehouarn: add an enable=.TRUE. on top of xml definitions... why???
             CALL xios_set_file_attr(fname, enabled=.TRUE.)
         END IF
@@ -674 +674 @@
         IF (PRESENT(nam_axvert)) THEN
            axis_id=nam_axvert
-           print*,'nam_axvert=',axis_id
+           PRINT*,'nam_axvert=',axis_id
         ENDIF
         
@@ -748 +748 @@
             !Sinon on se contente de l'activer:
             CALL xios_set_field_attr(fieldname, enabled=.TRUE.)
-            !NB: This will override an enable=.false. set by a user in the xml file;
+            !NB: This will override an enable=.FALSE. set by a user in the xml file;
             !   then the only way to not output the field is by changing its
             !   output level