Changeset 3703 for LMDZ6/branches/Optimisation_LMDZ/libf/dyn3dmem
- Timestamp:
- Jun 11, 2020, 11:01:18 AM (4 years ago)
- Location:
- LMDZ6/branches/Optimisation_LMDZ/libf/dyn3dmem
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/Optimisation_LMDZ/libf/dyn3dmem/gcm.F90
r3579 r3703 454 454 455 455 !!$OMP PARALLEL DEFAULT(SHARED) COPYIN(/temps/,/logici/,/logicl/) 456 ! Copy all threadprivate variables in temps_mod logic_mod 456 457 !$OMP PARALLEL DEFAULT(SHARED) & 457 ! Copy all threadprivate variables in temps_mod458 458 !$OMP COPYIN(dt,jD_ref,jH_ref,start_time,hour_ini,day_ini,day_end) & 459 459 !$OMP COPYIN(annee_ref,day_ref,itau_dyn,itau_phy,itaufin,calend) & 460 ! Copy all threadprivate variables from logic_mod461 460 !$OMP COPYIN(purmats,forward,leapf,apphys,statcl,conser,apdiss,apdelq) & 462 461 !$OMP COPYIN(saison,ecripar,fxyhypb,ysinus,read_start,ok_guide) & -
LMDZ6/branches/Optimisation_LMDZ/libf/dyn3dmem/vlsplt_loc.F
r3435 r3703 1056 1056 ENDDO 1057 1057 ENDDO 1058 c$OMP END DO NO 1058 c$OMP END DO NOWAIT 1059 1059 1060 1060 c Reindicage vertical en accumulant les flux sur … … 1090 1090 ENDDO 1091 1091 ENDDO 1092 c$OMP END DO NO 1092 c$OMP END DO NOWAIT 1093 1093 1094 1094 ENDDO ! WHILE (countcfl>=1)
Note: See TracChangeset
for help on using the changeset viewer.