Ignore:
Timestamp:
Jan 25, 2016, 10:21:10 AM (9 years ago)
Author:
ymipsl
Message:

bug fix for openMP (dynamico part)

YM

Location:
dynamico_lmdz/aquaplanet/ICOSAGCM/src
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • dynamico_lmdz/aquaplanet/ICOSAGCM/src/timeloop_gcm.f90

    r3853 r3889  
    221221         f_ps,f_dps,f_u,f_theta_rhodz,f_phis,it)
    222222
    223     IF (xios_output) CALL xios_update_calendar(it)
     223    IF (xios_output.AND.is_omp_master) CALL xios_update_calendar(it)
    224224    IF (it==itau0+1 .OR. MOD(it,itau_sync)==0) THEN
    225225      CALL send_message(f_ps,req_ps0)

  • dynamico_lmdz/aquaplanet/ICOSAGCM/src/vertical_remap.f90

    r3862 r3889  
    1616    TYPE(t_field),POINTER :: field_out(:)
    1717
    18     TYPE(t_field),POINTER :: f_p(:)
     18    TYPE(t_field),POINTER,SAVE :: f_p(:)
    1919    REAL(rstd),POINTER :: in(:,:)
    2020    REAL(rstd),POINTER :: out(:,:)
Note: See TracChangeset for help on using the changeset viewer.