Changeset 2826 for trunk/LMDZ.MARS/libf/phymars/tracer_mod.F90

Timestamp:

Nov 23, 2022, 11:11:26 AM (2 years ago)

Author:

romain.vande

Message:

Mars GCM:
The variable co2ice is deleted. All the co2 ice on surface is now in qsurf(:,igcm_co2).
CO2 tracer is now mandatory. diagfi output is unchanged.
RV

File:

• trunk/LMDZ.MARS/libf/phymars/tracer_mod.F90 (modified) (2 diffs)

trunk/LMDZ.MARS/libf/phymars/tracer_mod.F90

@@ -166 +166 @@
       integer :: iq, count
       character(len=20) :: txt ! to store some text
+
+      logical :: co2_tracer_found=.false.
       
       ! set dimension and tracer names
@@ -173 +175 @@
         noms(iq)=tname(iq)
         write(*,*) "tracer_mod names : ", trim(noms(iq))
+        if(noms(iq).eq."co2") then
+           co2_tracer_found=.true.
+        endif
       enddo
+
+      if(co2_tracer_found .eq. .false.) then
+         call abort_physic("ini_tracer_mod","co2 tracer is now mandatory",1)
+      endif
 
       !MVals: isotopes variables initialisation