Changeset 5282 for LMDZ6/trunk/libf/misc

Timestamp:

Oct 28, 2024, 1:11:48 PM (2 months ago)

Author:

abarral

Message:

Turn iniprint.h clesphys.h into modules
Remove unused description.h

Location:

LMDZ6/trunk/libf/misc

Files:

• description.h (deleted)
• iniprint_mod_h.f90 (moved) (moved from LMDZ6/trunk/libf/misc/iniprint.h) (1 diff)
• wxios.F90 (modified) (7 diffs)

LMDZ6/trunk/libf/misc/iniprint_mod_h.f90

@@ -1 @@
-!
-! $Header$
-!
-!
-! gestion des impressions de sorties et de débogage
-! lunout:    unité du fichier dans lequel se font les sorties 
-!                           (par defaut 6, la sortie standard)
-! prt_level: niveau d'impression souhaité (0 = minimum)
-!
-      INTEGER lunout, prt_level
-      COMMON /comprint/ lunout, prt_level
+! Replaces iniprint.h
+
+MODULE iniprint_mod_h
+  ! gestion des impressions de sorties et de débogage
+  ! lunout:    unité du fichier dans lequel se font les sorties
+  !                           (par defaut 6, la sortie standard)
+  ! prt_level: niveau d'impression souhaité (0 = minimum)
+
+  IMPLICIT NONE; PRIVATE
+  PUBLIC lunout, prt_level
+
+  INTEGER :: lunout, prt_level
+
+END MODULE iniprint_mod_h

LMDZ6/trunk/libf/misc/wxios.F90

@@ -509 +509 @@
         CHARACTER (len=*), INTENT(IN), OPTIONAL :: positif
         REAL, DIMENSION(axis_size, 2), INTENT(IN), OPTIONAL :: bnds
-        
+
 !        TYPE(xios_axisgroup) :: axgroup
 !        TYPE(xios_axis) :: ax
-!        CHARACTER(len=50) :: axis_id 
-        
+!        CHARACTER(len=50) :: axis_id
+
 !        IF (len_trim(axisgroup_id).gt.len(axis_id)) THEN
 !          WRITE(lunout,*) "wxios_add_vaxis: error, size of axis_id too small!!"
@@ -520 +520 @@
 !        ENDIF
 !        axis_id=trim(axisgroup_id)
-        
+
         !On récupère le groupe d'axes qui va bien:
         !CALL xios_get_axisgroup_handle(axisgroup_id, axgroup)
-        
+
         !On ajoute l'axe correspondant à ce fichier:
         !CALL xios_add_axis(axgroup, ax, TRIM(ADJUSTL(axis_id)))
-        
+
         !Et on le parametrise:
         !CALL xios_set_axis_attr_hdl(ax, size=axis_size, value=axis_value)
-        
+
         ! Ehouarn: New way to declare axis, without axis_group:
         if (PRESENT(positif) .AND. PRESENT(bnds)) then
@@ -552 +552 @@
 
     END SUBROUTINE wxios_add_vaxis
-    
-    
+
+
     !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
     ! Pour déclarer un fichier  !!!!!!!!!!!!!!!!!!!
@@ -564 +564 @@
         CHARACTER(len=*), INTENT(IN) :: ffreq
         INTEGER, INTENT(IN) :: flvl
-        
+
         TYPE(xios_file) :: x_file
         TYPE(xios_filegroup) :: x_fg
         TYPE(xios_duration) :: nffreq
-        
+
         !On regarde si le fichier n'est pas défini par XML:
         IF (.NOT.xios_is_valid_file(fname)) THEN
@@ -574 +574 @@
             CALL xios_get_handle("defile", x_fg)
             CALL xios_add_child(x_fg, x_file, fname)
-        
+
             !On reformate la fréquence:
             CALL reformadate(ffreq, nffreq)
-        
+
             !On configure:
             CALL xios_set_attr(x_file, name="X"//fname,&
                 output_freq=nffreq, output_level=flvl, enabled=.TRUE.)
-       
+
             IF (xios_is_valid_file("X"//fname)) THEN
                 IF (prt_level >= 10) THEN
@@ -599 +599 @@
         END IF
     END SUBROUTINE wxios_add_file
-    
+
     !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
     ! Pour créer un champ      !!!!!!!!!!!!!!!!!!!!
@@ -605 +605 @@
     SUBROUTINE wxios_add_field(fieldname, fieldgroup, fieldlongname, fieldunit)
         USE netcdf, only: nf90_fill_real
-
-        IMPLICIT NONE
-        INCLUDE 'iniprint.h'
+        USE iniprint_mod_h
+
+        IMPLICIT NONE
         
         CHARACTER(len=*), INTENT(IN) :: fieldname