Changeset 4727 for LMDZ6/branches/LMDZ_ECRad/libf/phydev/physiq_mod.F90
- 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/phydev/physiq_mod.F90
r2643 r4727 23 23 USE mod_grid_phy_lmdz, ONLY: nbp_lon,nbp_lat 24 24 25 #ifdef CPP_XIOS 26 USE xios, ONLY: xios_update_calendar 25 USE lmdz_xios, ONLY: xios_update_calendar, using_xios 27 26 USE wxios, only: wxios_add_vaxis, wxios_set_cal, wxios_closedef 28 27 USE iophy, ONLY: histwrite_phy 29 #endif30 28 31 29 IMPLICIT none … … 126 124 #endif 127 125 128 #ifdef CPP_XIOS 126 IF (using_xios) THEN 129 127 !XIOS 130 ! Declare available vertical axes to be used in output files:131 CALL wxios_add_vaxis("presnivs", klev, presnivs)128 ! Declare available vertical axes to be used in output files: 129 CALL wxios_add_vaxis("presnivs", klev, presnivs) 132 130 133 ! Declare calendar and time step134 CALL wxios_set_cal(dtime,"earth_360d",1,1,1,0.0,1,1,1,0.0)131 ! Declare calendar and time step 132 CALL wxios_set_cal(dtime,"earth_360d",1,1,1,0.0,1,1,1,0.0) 135 133 136 !Finalize the context:137 CALL wxios_closedef()138 #endif 134 !Finalize the context: 135 CALL wxios_closedef() 136 ENDIF 139 137 !$OMP END MASTER 140 138 !$OMP BARRIER … … 176 174 177 175 !XIOS 178 #ifdef CPP_XIOS 179 !$OMP MASTER176 IF (using_xios) THEN 177 !$OMP MASTER 180 178 !Increment XIOS time 181 179 CALL xios_update_calendar(itau) 182 !$OMP END MASTER183 !$OMP BARRIER180 !$OMP END MASTER 181 !$OMP BARRIER 184 182 185 183 !Send fields to XIOS: (NB these fields must also be defined as … … 190 188 CALL histwrite_phy("v",v) 191 189 CALL histwrite_phy("ps",paprs(:,1)) 192 #endif 190 ENDIF 193 191 194 192 ! if lastcall, then it is time to write "restartphy.nc" file
Note: See TracChangeset
for help on using the changeset viewer.