- Timestamp:
- 07/23/14 18:14:17 (10 years ago)
- Location:
- codes/icosagcm/branches/SATURN_DYNAMICO/ICOSAGCM
- Files:
-
- 6 edited
Legend:
- Unmodified
- Added
- Removed
-
codes/icosagcm/branches/SATURN_DYNAMICO/ICOSAGCM/arch/arch-X64_CURIE.fcm
r221 r254 12 12 %MPI_FFLAGS 13 13 %OMP_FFLAGS -openmp -openmp-threadprivate compat 14 %BASE_LD -i4 -r8 -auto $MKL_LIBS -L../../LMDZ.COMMON/lib -llmdz14 %BASE_LD -i4 -r8 -auto $MKL_LIBS 15 15 %MPI_LD 16 16 %OMP_LD -openmp -
codes/icosagcm/branches/SATURN_DYNAMICO/ICOSAGCM/arch/arch-X64_CURIE.path
r221 r254 11 11 HDF5_LIB="-lhdf5_hl -lhdf5 -lhdf5 -lz -lcurl" 12 12 13 XIOS_INCDIR="-I $WORKDIR/XIOS_COMMIT_V1.7/inc"14 XIOS_LIBDIR="-L $WORKDIR/XIOS_COMMIT_V1.7/lib"13 XIOS_INCDIR="-I../../XIOS/inc" 14 XIOS_LIBDIR="-L../../XIOS/lib" 15 15 XIOS_LIB="-lxios -lstdc++" -
codes/icosagcm/branches/SATURN_DYNAMICO/ICOSAGCM/bld.cfg
r220 r254 25 25 bld::tool::fc %COMPILER 26 26 bld::tool::ld %LINK 27 bld::tool::ldflags %LD_FLAGS %LIB27 bld::tool::ldflags %LD_FLAGS -L../../LMDZ.COMMON/lib -llmdz %LIB 28 28 bld::tool::fflags %FFLAGS 29 29 bld::tool::fppkeys %CPP_KEY %FPP_DEF -
codes/icosagcm/branches/SATURN_DYNAMICO/ICOSAGCM/compile_curie
r220 r254 1 ./make_icosa - debug -parallel mpi_omp-arch X64_CURIE -job 81 ./make_icosa -prod -parallel mpi_omp -with_xios -arch X64_CURIE -job 8 2 2 #./make_icosa -prod -arch X64_CURIE -job 8 3 3 -
codes/icosagcm/branches/SATURN_DYNAMICO/ICOSAGCM/src/physics_lmdz_generic.f90
r246 r254 43 43 USE mpipara 44 44 USE disvert_mod 45 USE xios_mod 45 46 46 47 IMPLICIT NONE … … 51 52 REAL(rstd),ALLOCATABLE :: lonfi(:) 52 53 REAL(rstd),ALLOCATABLE :: airefi(:) 54 REAL(rstd),ALLOCATABLE :: bounds_latfi(:,:) 55 REAL(rstd),ALLOCATABLE :: bounds_lonfi(:,:) 53 56 54 57 start_day=0 … … 94 97 ALLOCATE(lonfi(nbp_phys)) 95 98 ALLOCATE(airefi(nbp_phys)) 99 ALLOCATE(bounds_latfi(nbp_phys,6)) 100 ALLOCATE(bounds_lonfi(nbp_phys,6)) 96 101 97 102 pos=0 … … 104 109 pos=pos+1 105 110 CALL xyz2lonlat(xyz_i(ij,:),lonfi(pos),latfi(pos)) 111 CALL xyz2lonlat(xyz_v(ij+z_rup,:), bounds_lonfi(pos,1), bounds_latfi(pos,1)) 112 CALL xyz2lonlat(xyz_v(ij+z_up,:), bounds_lonfi(pos,2), bounds_latfi(pos,2)) 113 CALL xyz2lonlat(xyz_v(ij+z_lup,:), bounds_lonfi(pos,3), bounds_latfi(pos,3)) 114 CALL xyz2lonlat(xyz_v(ij+z_ldown,:), bounds_lonfi(pos,4), bounds_latfi(pos,4)) 115 CALL xyz2lonlat(xyz_v(ij+z_down,:), bounds_lonfi(pos,5), bounds_latfi(pos,5)) 116 CALL xyz2lonlat(xyz_v(ij+z_rdown,:), bounds_lonfi(pos,6), bounds_latfi(pos,6)) 106 117 airefi(pos)=Ai(ij) 107 118 ENDDO … … 112 123 CALL initialize_unstructured_physics(nbp_phys,llm, comm_icosa, mpi_size,distrib, & 113 124 day_length,start_day,itau_physics*dt, & 114 latfi,lonfi,airefi,radius,g, gas_constant/mu, cpp, & 125 6,latfi,lonfi,airefi,bounds_lonfi,bounds_latfi, & 126 radius,g, gas_constant/mu, cpp, & 115 127 preff, ap, bp) 116 128 117 129 CALL xios_set_context 118 130 119 131 ! CALL init_phys_lmdz(128,97,llm, comm_icosa, mpi_size, distrib) … … 135 147 USE transfert_mod 136 148 USE mpipara 149 USE xios_mod 137 150 IMPLICIT NONE 138 151 INTEGER,INTENT(IN) :: it … … 305 318 306 319 !$OMP BARRIER 320 CALL xios_set_context 307 321 308 322 CONTAINS -
codes/icosagcm/branches/SATURN_DYNAMICO/ICOSAGCM/src/xios_mod.F90
r221 r254 420 420 421 421 END SUBROUTINE xios_write_field_finalize 422 422 423 SUBROUTINE xios_set_context 424 IMPLICIT NONE 425 TYPE(xios_context) :: ctx_hdl 426 427 !$OMP MASTER 428 CALL xios_get_handle("icosagcm",ctx_hdl) 429 CALL xios_set_current_context(ctx_hdl) 430 !$OMP END MASTER 431 432 END SUBROUTINE xios_set_context 423 433 #else 424 434 … … 447 457 SUBROUTINE xios_init_write_field 448 458 END SUBROUTINE xios_init_write_field 459 460 SUBROUTINE xios_set_context 461 END SUBROUTINE xios_set_context 462 463 449 464 #endif 450 465
Note: See TracChangeset
for help on using the changeset viewer.