Changeset 3370 for trunk/LMDZ.GENERIC

Timestamp:

Jun 12, 2024, 1:34:30 PM (6 months ago)

Author:

yjaziri

Message:

Generic PCM:

Change directory path for photochem stellar spectra
Just to organize datagcm
Now in datagcm/stellar_spectra/photochem_stellar_spectra/

YJ

Location:

trunk/LMDZ.GENERIC

Files:

• changelog.txt (modified) (1 diff)
• libf/aeronostd/photolysis_mod.F90 (modified) (3 diffs)

trunk/LMDZ.GENERIC/changelog.txt

@@ -1961 +1961 @@
 Added dt_gm (Gent-McWilliams) in the calculation for fluxgrdocean (GND) and in
 ocean_slab_get_vars.
+
+== 12/06/2024 == YJ
+Change directory path for photochem stellar spectra
+Just to organize datagcm
+Now in datagcm/stellar_spectra/photochem_stellar_spectra/

trunk/LMDZ.GENERIC/libf/aeronostd/photolysis_mod.F90

@@ -509 +509 @@
         ! look for a " stellarflux= ..." option in def files
         write(*,*) "Input stellar spectra files for photolysis online is:"
-        stellarflux = "Claire_SunModern_tuv.txt" ! default
+        stellarflux = "Sun_Claire2012_0.0Ga.txt" ! default
         call getin_p("stellarflux",stellarflux) ! default path
         write(*,*) " stellarflux = ",trim(stellarflux)
@@ -515 +515 @@
   
         ! Opening file
-        fil = trim(datadir)//'/stellar_spectra/'//stellarflux
+        fil = trim(datadir)//'/stellar_spectra/photochem_stellar_spectra/'//stellarflux
         print*, 'solar flux : ', fil
         OPEN(UNIT=kin,FILE=fil,STATUS='old',iostat=ierr)
@@ -521 +521 @@
         if (ierr /= 0) THEN
           write(*,*)'Error : cannot open stellarflux file ', trim(stellarflux)
-          write(*,*)'It should be in :',trim(datadir),'/stellar_spectra/'
+          write(*,*)'It should be in :',trim(datadir),'/stellar_spectra/photochem_stellar_spectra/'
           write(*,*)'1) You can change the data directory in callphys.def'
           write(*,*)'   with:'