Changeset 2715 for trunk/LMDZ.GENERIC/libf

Timestamp:

Jun 21, 2022, 11:05:42 AM (3 years ago)

Author:

aslmd

Message:

Added a flag for when using newstart.F with generic traceur profile

File:

• trunk/LMDZ.GENERIC/libf/phystd/generic_cloud_common_h.F90 (modified) (1 diff)

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

@@ -126 +126 @@
         integer :: ios
         character(len=500):: table_traceurs_line ! table_traceurs_line lines with parameters
-
+        !Check if we're using newstart.F or the gcm
+        if (index(trim(datadir),"/u/lmdz/WWW/planets/") .ne. 0) then !this is the default path writter in datafile_mod
+            print*,"We're using newstart.F, we don't need to load the table_tracers_condensable"
+            return 
+        endif
         open(117,file=trim(datadir)//'/table_tracers_condensable',form='formatted',status='old')