Opened 7 years ago

Last modified 5 years ago

#84 new améliorations / enhancements

Use getin_p instead of getin

Reported by: Ehouarn Millour Owned by: Laurent Fairhead
Priority: major Milestone:
Component: LMDZ Keywords:
Cc:

Description

Some cleanup in the physics is needed (mainly in conf_phys_m.F90): get rid of using "getin" via an intermediate var_omp variable read by the OpenMP master and then copied to "var" for all threads, e.g.: 

!$OMP MASTER
var_omp=... ! default value
call getin('var', var_omp)
!$OMP END MASTER
!$OMP BARRIER
var=var_omp

No need to declare an intermediate var_omp variable, and all the above can be replaced by: 

var=... ! default value
call getin_p("var",var)

Change History (1)

comment:1 Changed 5 years ago by Laurent Fairhead

Type: enhancement → améliorations / enhancements
Note: See TracTickets for help on using tickets.