Changeset 3841 for trunk/LMDZ.VENUS/libf/phyvenus/conf_phys.F90

Timestamp:

Jul 8, 2025, 12:37:46 PM (3 weeks ago)

Author:

emillour

Message:

Venus PCM:
Some work towards making OpenMP work:

• adding some threadprivate statements for saved variables (many more missing)
• turn conf_phys.F90 into a module
• update way of reading/writing startphy (iostart.F90/phyredem.F)

EM

File:

• trunk/LMDZ.VENUS/libf/phyvenus/conf_phys.F90 (modified) (5 diffs)

trunk/LMDZ.VENUS/libf/phyvenus/conf_phys.F90

@@ -1 @@
-!
-! $Header: /home/cvsroot/LMDZ4/libf/phylmd/conf_phys.F90,v 1.3 2005/02/07 15:15:31 fairhead Exp $
-!
-!
-!
+module conf_phys_mod
+
+implicit none
+
+contains
 
   subroutine conf_phys(ok_journe, ok_mensuel, ok_instan, &
@@ -9 +9 @@
    use init_print_control_mod, only: init_print_control
    use print_control_mod, only: lunout
+   use mod_phys_lmdz_para, only: is_master
    use ioipsl_getin_p_mod, only: getin_p
    use age_of_air_mod, only: ok_aoa, reinit_aoa, lev_aoa
@@ -93 +94 @@
        nbapp_rad = 12
        call getin_p('nbapp_rad',nbapp_rad)
-       print*,"nbapp_rad",nbapp_rad
+
 !Config  Key  = nbapp_chem
 !Config  Desc = Frequence d'appel a la chimie
@@ -576 +577 @@
 !
 !
+  if (is_master) then ! only master needs to print this info
 
   write(lunout,*)' ##############################################'
-  write(lunout,*)' Configuration des parametres de la physique: '
+  write(lunout,*)' Physics configuration and parameters: '
   write(lunout,*)' cycle_diurne = ', cycle_diurne
   write(lunout,*)' soil_model = ', soil_model
@@ -631 +633 @@
   write(lunout,*)' ok_iondiff = ',ok_iondiff
 
+  endif ! of if (is_master)
+  
   end subroutine conf_phys
 
+end module conf_phys_mod