Changeset 2717 for trunk/LMDZ.GENERIC

Timestamp:

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

Author:

aslmd

Message:

wrapped some prints with is_master

Location:

trunk/LMDZ.GENERIC/libf/phystd

Files:

• condensation_generic_mod.F90 (modified) (2 diffs)
• physiq_mod.F90 (modified) (1 diff)

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

@@ -9 +9 @@
         use generic_cloud_common_h
         USE tracer_h
+        USE mod_phys_lmdz_para, only: is_master
         IMPLICIT none
 
@@ -84 +85 @@
         do iq=1,nq
                 if((is_condensable(iq)==1) .and. (index(noms(iq),"vap") .ne. 0)) then
-                        write(*,*) "There is a specie which is condensable, for generic condensation : ", noms(iq)
-
+                        if (is_master) then
+                                write(*,*) "There is a specie which is condensable, for generic condensation : ", noms(iq)
+                        endif
 !                       Let's get the index of our tracers (we look for igcm _generic_vap and igcm_generic_ice)
-                        ! tname_ice = trim(noms(iq)(1:len(tname_ice)-3))//"ice" 
-                        ! print*,trim(adjustl(trim(noms(iq))(9:len(trim(noms(iq)))-4))) !testing here, should go away
-                        ! stop
-
                         igcm_generic_vap=iq
                         igcm_generic_ice = -1

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

@@ -1616 +1616 @@
          end if ! end of 'sedimentation'
 
-         write(*,*) 'end of sedimentation pdt', pdt
-
 
   ! ---------------