Changeset 3854 for trunk/LMDZ.MARS/libf/phymars/initracer.F

Timestamp:

Jul 17, 2025, 3:54:42 PM (4 weeks ago)

Author:

jbclement

Message:

Mars PCM:
Addition of a sanity check for the tracers 'ccn_number' and 'ccn_mass' when using the 'microphys' option.
JBC

File:

• trunk/LMDZ.MARS/libf/phymars/initracer.F (modified) (1 diff)

trunk/LMDZ.MARS/libf/phymars/initracer.F

@@ -866 +866 @@
        endif
 
+       if (microphys) then
+       ! verify that we indeed have ccn_number and ccn_mass tracers
+         if (igcm_ccn_number == 0) then
+           write(*,*) "initracer: error !!"
+           write(*,*) "  cannot use microphys option without ",
+     &                "a ccn_number tracer !"
+           call abort_physic("initracer","water cycle issue",1)
+         endif
+         if (igcm_ccn_mass == 0) then
+           write(*,*) "initracer: error !!"
+           write(*,*) "  cannot use microphys option without ",
+     &                "a ccn_mass tracer !"
+           call abort_physic("initracer","microphys issue",1)
+         endif
+       endif
+
 
        if (co2clouds) then