Changeset 1085
- Timestamp:
- Jan 29, 2009, 11:38:14 AM (16 years ago)
- Location:
- LMDZ4/branches/LMDZ4-dev/libf
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ4/branches/LMDZ4-dev/libf/dyn3dpar/dynredem_p.F
r985 r1085 551 551 DATA nb / 0 / 552 552 553 logical exist_file 554 553 555 call Gather_Field(ucov,ip1jmp1,llm,0) 554 556 call Gather_Field(vcov,ip1jm,llm,0) … … 645 647 IF (config_inca /= 'none') THEN 646 648 ! 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 652 660 END IF 653 661 -
LMDZ4/branches/LMDZ4-dev/libf/dyn3dpar/gcm.F
r1078 r1085 13 13 USE mod_phys_lmdz_para, ONLY : klon_mpi_para_nb 14 14 USE mod_grid_phy_lmdz 15 USE mod_phys_lmdz_omp_data, ONLY: klon_omp 15 16 USE dimphy 16 17 USE mod_interface_dyn_phys -
LMDZ4/branches/LMDZ4-dev/libf/phylmd/climb_hq_mod.F90
r1067 r1085 57 57 !**************************************************************************************** 58 58 LOGICAL, SAVE :: first=.TRUE. 59 !$OMP THREADPRIVATE(first) 59 60 REAL, DIMENSION(klon,klev) :: local_H 60 61 REAL, DIMENSION(klon) :: psref
Note: See TracChangeset
for help on using the changeset viewer.