Changeset 3073 for trunk/LMDZ.GENERIC/libf/aeronostd

Timestamp:

Oct 5, 2023, 2:56:44 PM (13 months ago)

Author:

yjaziri

Message:

Generic PCM:

Chemistry: correction missing initialisation
Add escape values in outputs

YJ

File:

• trunk/LMDZ.GENERIC/libf/aeronostd/calchim_asis.F90 (modified) (3 diffs)

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

@@ -480 +480 @@
                   write(*,*) ' Parameter value (default)     : SF_mode=', SF_mode(iesp)
                end if
-               if (index(tracline,'SF_value='    ) /= 0) then
+               if (index(tracline,'SF_value='   ) /= 0) then
                   read(tracline(index(tracline,'SF_value=')+len('SF_value='):),*) SF_value(iesp)
                   write(*,*) ' Parameter value (traceur.def) : SF_value=', SF_value(iesp)
@@ -486 +486 @@
                   write(*,*) ' Parameter value (default)     : SF_value=', SF_value(iesp)
                end if
-               if (index(tracline,'prod_rate='    ) /= 0) then
+               if (index(tracline,'prod_rate='  ) /= 0) then
                   read(tracline(index(tracline,'prod_rate=')+len('prod_rate='):),*) prod_rate(iesp)
                   write(*,*) ' Parameter value (traceur.def) : prod_rate=', prod_rate(iesp)
@@ -492 +492 @@
                   write(*,*) ' Parameter value (default)     : prod_rate=', prod_rate(iesp)
                end if
+               if (index(tracline,'escape='     ) /= 0) then
+                  read(tracline(index(tracline,'escape=')+len('escape='):),*) escape(:,iesp)
+                  write(*,*) ' Parameter value (traceur.def) : escape=', escape(:,iesp)
+               else
+                  write(*,*) ' Parameter value (default)     : escape=', escape(:,iesp)
+               end if
             end if
          end do