Changeset 5116 for LMDZ6/branches/Amaury_dev/libf/phylmd/phys_output_mod.F90

Timestamp:

Jul 24, 2024, 2:54:37 PM (4 months ago)

Author:

abarral

Message:

rename modules properly lmdz_*
move ismin, ismax, minmax into new lmdz_libmath.f90
(lint) uppercase fortran keywords

File:

• LMDZ6/branches/Amaury_dev/libf/phylmd/phys_output_mod.F90 (modified) (7 diffs)

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

@@ -42 +42 @@
     USE surface_data, ONLY: landice_opt
     USE phys_output_ctrlout_mod
-    USE lmdz_grid_phy, only: klon_glo, nbp_lon, nbp_lat
+    USE lmdz_grid_phy, ONLY: klon_glo, nbp_lon, nbp_lat
     USE lmdz_print_control, ONLY: prt_level, lunout
     USE lmdz_vertical_layers, ONLY: ap, bp, preff, presnivs, aps, bps, pseudoalt, presinter
@@ -52 +52 @@
     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))
@@ -537 +537 @@
 
         IF (CPPKEY_STRATAER) THEN
-          if(tracers(iq)%name(1:3)=='BIN') then
+          IF(tracers(iq)%name(1:3)=='BIN') THEN
             itrb = itrb + 1
             flag = [11, 11, 11, 11, 11, 11, 11, 11, 11, 1]
@@ -551 +551 @@
 
 #ifdef ISO
-    write(*,*) 'phys_output_mid 589'
+    WRITE(*,*) 'phys_output_mid 589'
     do ixt=1,ntraciso
       outiso = TRIM(isoName(ixt))
@@ -601 +601 @@
       END IF
     enddo !do ixt=1,niso
-    write(*,*) 'phys_output_mid 596'
+    WRITE(*,*) 'phys_output_mid 596'
 #endif
 
@@ -643 +643 @@
     CHARACTER(LEN = 10) :: type
     INTEGER :: ipos, il
-    real :: ttt, xxx, timestep, dayseconde, dtime
+    REAL :: ttt, xxx, timestep, dayseconde, dtime
     parameter (dayseconde = 86400.)