- Timestamp:
- 07/29/14 18:32:37 (10 years ago)
- Location:
- codes/icosagcm/branches/SATURN_DYNAMICO/LMDZ.COMMON/libf/phystd
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
codes/icosagcm/branches/SATURN_DYNAMICO/LMDZ.COMMON/libf/phystd/physiq.F90
r253 r263 2236 2236 CALL write_xios_field("ASR",fluxabs_sw) 2237 2237 CALL write_xios_field("OLR",fluxtop_lw) 2238 2238 IF (lastcall) CALL finalize_xios_output 2239 2240 2241 2239 2242 if (lastcall) then 2240 2243 -
codes/icosagcm/branches/SATURN_DYNAMICO/LMDZ.COMMON/libf/phystd/xios_output.F90
r253 r263 65 65 END SUBROUTINE initialize_xios_output 66 66 67 SUBROUTINE finalize_xios_output 68 USE xios 69 70 !$OMP BARRIER 71 !$OMP MASTER 72 CALL xios_context_finalize 73 !$OMP END MASTER 74 !$OMP BARRIER 75 76 END SUBROUTINE finalize_xios_output 77 78 67 79 SUBROUTINE update_xios_timestep 68 80 USE xios
Note: See TracChangeset
for help on using the changeset viewer.