Changeset 5117 for LMDZ6/branches/Amaury_dev/libf/phylmd/phys_output_mod.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/phylmd/phys_output_mod.F90 (modified) (6 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmd/phys_output_mod.F90

@@ -35 +35 @@
     USE dimphy
     USE infotrac_phy, ONLY: nqtot, tracers, niso, ntraciso => ntiso
-    USE strings_mod, ONLY: maxlen
+    USE lmdz_strings, ONLY: maxlen
     USE ioipsl
     USE phys_cal_mod, ONLY: hour, calend
@@ -47 +47 @@
     USE time_phylmdz_mod, ONLY: day_ini, itau_phy, start_time, annee_ref, day_ref
     ! ug Pour les sorties XIOS
-    USE wxios
+    USE lmdz_wxios
     USE infotrac_phy, ONLY: nbtr_bin
 #ifdef ISO
     USE isotopes_mod, ONLY: isoName,iso_HTO
 #ifdef ISOTRAC
-    use isotrac_mod, ONLY: index_zone,index_iso,strtrac
+    USE isotrac_mod, ONLY: index_zone,index_iso,strtrac
 #endif
 #endif
@@ -190 +190 @@
     ALLOCATE(o_dxtthe(ntraciso))
     ALLOCATE(o_dxtch4(ntraciso))
-    if (iso_HTO.gt.0) THEN
+    IF (iso_HTO.gt.0) THEN
       ALLOCATE(o_dxtprod_nucl(ntraciso))
       ALLOCATE(o_dxtcosmo(ntraciso))
@@ -361 +361 @@
       IF (using_xios) THEN
         !!! Ouverture de chaque fichier XIOS !!!!!!!!!!!
-        IF (.not. ok_all_xml) THEN
+        IF (.NOT. ok_all_xml) THEN
           IF (prt_level >= 10) THEN
             PRINT*, 'phys_output_open: CALL wxios_add_file with phys_out_filenames(iff)=', trim(phys_out_filenames(iff))
@@ -632 +632 @@
   SUBROUTINE convers_timesteps(str, dtime, timestep)
 
-    use ioipsl
+    USE ioipsl
     USE phys_cal_mod
     USE time_phylmdz_mod, ONLY: day_ref, annee_ref
@@ -660 +660 @@
     ENDIF
 
-    IF (type == 'day'.or.type == 'days'.or.type == 'jours'.or.type == 'jour') timestep = ttt * dayseconde
-    IF (type == 'mounths'.or.type == 'mth'.or.type == 'mois') THEN
+    IF (type == 'day'.OR.type == 'days'.OR.type == 'jours'.OR.type == 'jour') timestep = ttt * dayseconde
+    IF (type == 'mounths'.OR.type == 'mth'.OR.type == 'mois') THEN
       WRITE(lunout, *)'annee_ref,day_ref mon_len', annee_ref, day_ref, mth_len
       timestep = ttt * dayseconde * mth_len
     ENDIF
-    IF (type == 'hours'.or.type == 'hr'.or.type == 'heurs') timestep = ttt * dayseconde / 24.
-    IF (type == 'mn'.or.type == 'minutes') timestep = ttt * 60.
-    IF (type == 's'.or.type == 'sec'.or.type == 'secondes') timestep = ttt
+    IF (type == 'hours'.OR.type == 'hr'.OR.type == 'heurs') timestep = ttt * dayseconde / 24.
+    IF (type == 'mn'.OR.type == 'minutes') timestep = ttt * 60.
+    IF (type == 's'.OR.type == 'sec'.OR.type == 'secondes') timestep = ttt
     IF (type == 'TS') timestep = ttt * dtime