Changeset 298 for codes/icosagcm/branches/SATURN_DYNAMICO/LMDZ.COMMON/libf/phystd/calc_cpp_mugaz.F90

Timestamp:

12/02/14 19:21:00 (10 years ago)

Author:

milmd

Message:

Less output messages are written. On 20000 cores it is better. In LMDZ, only master of MPI and OpenMP can write.

File:

• codes/icosagcm/branches/SATURN_DYNAMICO/LMDZ.COMMON/libf/phystd/calc_cpp_mugaz.F90 (modified) (3 diffs)

codes/icosagcm/branches/SATURN_DYNAMICO/LMDZ.COMMON/libf/phystd/calc_cpp_mugaz.F90

@@ -18 +18 @@
 
       use gases_h
+      use mod_phys_lmdz_para, only : is_master
       implicit none
 
@@ -86 +87 @@
       cpp_c = 1000.0*cpp_c
 
+      if (is_master) then
       print*,'Cp in calc_cpp_mugaz is ',cpp_c,'J kg^-1 K^-1'
       print*,'Mg in calc_cpp_mugaz is ',mugaz_c,'amu'
       print*,'Predefined Cp in physics is ',cpp,'J kg^-1 K^-1'
       print*,'Predefined Mg in physics is ',mugaz,'amu'
+      end if
 
       if (check_cpp_match) then
-         print*,'REQUEST TO CHECK cpp_match :'
+         if (is_master) print*,'REQUEST TO CHECK cpp_match :'
          if((abs(1.-cpp/cpp_c).gt.1.e-6) .or.  &
               (abs(1.-mugaz/mugaz_c).gt.1.e-6)) then
@@ -101 +104 @@
             stop
          else
-            print*,'--> OK. Settings match composition.'
+            if (is_master) print*,'--> OK. Settings match composition.'
          endif
       endif
 
       if (.not.force_cpp) then
-          print*,'*** Setting cpp & mugaz to computations in calc_cpp_mugaz.'
+          if (is_master) print*,'*** Setting cpp & mugaz to computations in calc_cpp_mugaz.'
           mugaz = mugaz_c
           cpp = cpp_c
       else
-          print*,'*** Setting cpp & mugaz to predefined values.'
+          if (is_master) print*,'*** Setting cpp & mugaz to predefined values.'
       endif