Changeset 1084 for LMDZ4


Ignore:
Timestamp:
Jan 29, 2009, 11:37:41 AM (16 years ago)
Author:
jghattas
Message:

Bug-fix pour OpenMP.
Anne Cozic

Location:
LMDZ4/trunk/libf
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • LMDZ4/trunk/libf/dyn3dpar/dynredem_p.F

    r985 r1084  
    551551      DATA nb / 0 /
    552552
     553      logical exist_file
     554
    553555      call Gather_Field(ucov,ip1jmp1,llm,0)
    554556      call Gather_Field(vcov,ip1jm,llm,0)
     
    645647      IF (config_inca /= 'none') THEN
    646648! Ajout Anne pour lecture valeurs traceurs dans un fichier start_trac.nc
    647          ierr_file = NF_OPEN ("start_trac.nc", NF_NOWRITE,nid_trac)
    648          IF (ierr_file .NE.NF_NOERR) THEN
    649             write(6,*)' Pb d''ouverture du fichier start_trac.nc'
    650             write(6,*)' ierr = ', ierr_file
    651          ENDIF
     649         inquire(FILE="start_trac.nc", EXIST=exist_file)
     650         print *, "EXIST", exist_file
     651         if (exist_file) then
     652            ierr_file = NF_OPEN ("start_trac.nc", NF_NOWRITE,nid_trac)
     653            IF (ierr_file .NE.NF_NOERR) THEN
     654               write(6,*)' Pb d''ouverture du fichier start_trac.nc'
     655               write(6,*)' ierr = ', ierr_file
     656            ENDIF
     657         else
     658            ierr_file = 2
     659         endif
    652660      END IF
    653661
  • LMDZ4/trunk/libf/dyn3dpar/gcm.F

    r1077 r1084  
    1313      USE mod_phys_lmdz_para, ONLY : klon_mpi_para_nb
    1414      USE mod_grid_phy_lmdz
     15      USE mod_phys_lmdz_omp_data, ONLY: klon_omp
    1516      USE dimphy
    1617      USE mod_interface_dyn_phys
  • LMDZ4/trunk/libf/phylmd/climb_hq_mod.F90

    r1067 r1084  
    5757!****************************************************************************************
    5858    LOGICAL, SAVE                            :: first=.TRUE.
     59    !$OMP THREADPRIVATE(first)
    5960    REAL, DIMENSION(klon,klev)               :: local_H
    6061    REAL, DIMENSION(klon)                    :: psref
Note: See TracChangeset for help on using the changeset viewer.