Changeset 2710 for trunk/LMDZ.GENERIC/libf/phystd/generic_cloud_common_h.F90

Timestamp:

Jun 21, 2022, 11:05:40 AM (2 years ago)

Author:

aslmd

Message:

table_tracers_condensable is now read from datadir/

File:

• trunk/LMDZ.GENERIC/libf/phystd/generic_cloud_common_h.F90 (modified) (2 diffs)

trunk/LMDZ.GENERIC/libf/phystd/generic_cloud_common_h.F90

@@ -97 +97 @@
 
     subroutine specie_parameters_table(specname)
-        
+        use datafile_mod, only: datadir
         implicit none
     !============================================================================
@@ -114 +114 @@
         character(len=500):: table_traceurs_line ! table_traceurs_line lines with parameters
 
-        open(117,file='table_tracers_condensable',form='formatted',status='old')
+        open(117,file=trim(datadir)//'/table_tracers_condensable',form='formatted',status='old')
 
         read(117,'(A)') table_traceurs_line