Changeset 5136 for LMDZ6/branches/Amaury_dev/libf/phylmdiso

Timestamp:

Jul 28, 2024, 4:17:54 PM (6 months ago)

Author:

abarral

Message:

Put comgeom.h, comgeom2.h into modules

Location:

LMDZ6/branches/Amaury_dev/libf/phylmdiso

Files:

• climb_hq_mod.F90 (modified) (1 diff)
• cva_driver.F90 (modified) (2 diffs)
• isotopes_mod.F90 (modified) (1 diff)

LMDZ6/branches/Amaury_dev/libf/phylmdiso/climb_hq_mod.F90

@@ -9 +9 @@
 #endif
 
-  IMPLICIT NONE
-  SAVE 
-  PRIVATE
+  IMPLICIT NONE; PRIVATE
   PUBLIC :: climb_hq_down, climb_hq_up, d_h_col_vdf, f_h_bnd
 

LMDZ6/branches/Amaury_dev/libf/phylmdiso/cva_driver.F90

@@ -1484 +1484 @@
         Print *, 'cva_driver after cv3_unsat:mp , water, ice, evap, fondue '
         DO k = 1,nd
-        write (6, '(i4,5(1x,e13.6))'), &
+        write (6, '(i4,5(1x,e13.6))') &
           k, mp(igout,k), water(igout,k), ice(igout,k), &
            evap(igout,k), fondue(igout,k)
@@ -1490 +1490 @@
         Print *, 'cva_driver after cv3_unsat: wdtrainA, wdtrainS, wdtrainM '     !!jygprl
         DO k = 1,nd
-        write (6, '(i4,3(1x,e13.6))'), &
+        write (6, '(i4,3(1x,e13.6))') &
            k, wdtrainA(igout,k), wdtrainS(igout,k), wdtrainM(igout,k)            !!jygprl
         ENDDO

LMDZ6/branches/Amaury_dev/libf/phylmdiso/isotopes_mod.F90

@@ -7 +7 @@
    IMPLICIT NONE
    INTERFACE get_in; MODULE PROCEDURE getinp_s, getinp_i, getinp_r, getinp_l;  END INTERFACE get_in
-   SAVE
 
   !--- Contains all isotopic variables + their initialization