- Timestamp:
- Oct 19, 2023, 4:02:57 PM (12 months ago)
- Location:
- LMDZ6/branches/LMDZ_ECRad
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/LMDZ_ECRad
- Property svn:mergeinfo changed
-
LMDZ6/branches/LMDZ_ECRad/libf/dynphy_lonlat/phylmd/callphysiq_mod.F90
r4146 r4727 22 22 USE control_mod, ONLY: planet_type, ok_dyn_xios 23 23 USE physiq_mod, ONLY: physiq 24 #ifdef CPP_XIOS 25 USE mod_xios_dyn3dmem, ONLY : dyn3d_ctx_handle 26 USE xios, ONLY : xios_set_current_context 27 #endif 24 USE lmdz_xios, ONLY : xios_set_current_context, xios_get_current_context, xios_context 28 25 IMPLICIT NONE 29 26 … … 56 53 REAL,INTENT(OUT) :: zdqfi_omp(klon,llm,nqtot) ! tendency on tracers 57 54 REAL,INTENT(OUT) :: zdpsrf_omp(klon) ! tendency on surface pressure 58 55 TYPE(xios_context) :: dyn3d_ctx_handle 56 59 57 ! Local variables 60 58 CHARACTER(len=11) :: modname="call_physiq" … … 70 68 ENDIF 71 69 70 !$OMP MASTER 71 if (ok_dyn_xios) then 72 CALL xios_get_current_context(dyn3d_ctx_handle) 73 endif 74 !$OMP END MASTER 72 75 73 76 ! Call physics package with required inputs/outputs … … 95 98 96 99 ! switching back to LMDZDYN context 97 #ifdef CPP_XIOS98 100 !$OMP MASTER 99 101 if (ok_dyn_xios) then … … 101 103 endif 102 104 !$OMP END MASTER 103 #endif104 105 105 106
Note: See TracChangeset
for help on using the changeset viewer.