Changeset 5357 for LMDZ6/trunk/libf/phylmd

Timestamp:

Nov 30, 2024, 1:40:53 PM (12 days ago)

Author:

idelkadi

Message:

Modifications to have more choice for archiving time frequencies in output files (with IOIPSL) :
month(s),mth,m,mois,day(s),d,jour(s),j,...

File:

• LMDZ6/trunk/libf/phylmd/phys_output_mod.F90 (modified) (2 diffs)

LMDZ6/trunk/libf/phylmd/phys_output_mod.F90

@@ -15 +15 @@
 ! histhf.nc  : moyennes toutes les 3 heures
 ! histins.nc : valeurs instantanees
-!
-! Nov 2024 modif pour avoir plus de choix pour les freq temporelles d'archivage
-! (month(s), months, m, day(s), jour(s), d, j, ...
+! AI. nov 2024 : Modifs pour rajouter plus de choix pour la frequence temporelle d'archivage
+!                dans les fichiers de sorties (avec IOIPSL) :
+!                month(s),m,mth,mois,m,day(s),d,jour(s),j, ...
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 
@@ -672 +672 @@
     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 == 'd'.or.type == 'jours'.or.type == 'jour'.or.type == 'j' )&
+           &  timestep = ttt * dayseconde
+    IF ( type == 'months'.or.type == 'month'.or.type == 'mth'.or.type == 'mois'.or.type == 'm' ) 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 == 'hour'.or.type == 'hr'.or.type == 'heures'.or.type == 'heure'.or.type =='h' )&
+           &  timestep = ttt * dayseconde / 24.
+    IF ( type == 'mn'.or.type == 'minutes'.or.type == 'minute'.or.type == 'm' ) timestep = ttt * 60.
+    IF ( type == 's'.or.type == 'sec'.or.type == 'secondes'.or.type =='seconde'   ) timestep = ttt
     IF ( type == 'TS' ) timestep = ttt * dtime