Changeset 2601 for LMDZ5/trunk/libf/dynphy_lonlat/phylmd/iniphysiq_mod.F90
- Timestamp:
- Jul 24, 2016, 11:51:55 AM (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/trunk/libf/dynphy_lonlat/phylmd/iniphysiq_mod.F90
r2600 r2601 32 32 USE inifis_mod, ONLY: inifis 33 33 USE time_phylmdz_mod, ONLY: init_time 34 USE temps_mod, ONLY: annee_ref, day_ini, day_ref, start_time 34 35 USE infotrac_phy, ONLY: init_infotrac_phy 35 36 USE phystokenc_mod, ONLY: init_phystokenc … … 52 53 include "dimensions.h" 53 54 include "iniprint.h" 54 include "temps.h"55 55 include "tracstoke.h" 56 56 … … 98 98 ! --> now initialize things specific to the phylmd physics package 99 99 100 !$OMP PARALLEL DEFAULT(SHARED) COPYIN(/temps/) 100 !!$OMP PARALLEL DEFAULT(SHARED) COPYIN(/temps/) 101 !$OMP PARALLEL DEFAULT(SHARED) & 102 ! Copy all threadprivate variables in temps_mod 103 !$OMP COPYIN(annee_ref, day_ini, day_ref, start_time) 101 104 102 105 ! copy over preff , ap(), bp(), etc … … 144 147 #endif 145 148 END IF 146 !$OMP PARALLEL DEFAULT(SHARED) COPYIN(/temps/)147 149 150 !!$OMP PARALLEL DEFAULT(SHARED) COPYIN(/temps/) 151 !$OMP PARALLEL DEFAULT(SHARED) 148 152 ! Additional initializations for aquaplanets 149 153 IF (iflag_phys>=100) THEN
Note: See TracChangeset
for help on using the changeset viewer.