Changeset 2056 for LMDZ5/branches/testing/libf/phydev/physiq.F90
- Timestamp:
- Jun 11, 2014, 3:46:46 PM (10 years ago)
- Location:
- LMDZ5/branches/testing
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/branches/testing
- Property svn:mergeinfo changed
/LMDZ5/trunk merged: 1998,2000-2023,2025-2029,2032,2034,2036-2049,2051-2055
- Property svn:mergeinfo changed
-
LMDZ5/branches/testing/libf/phydev/physiq.F90
r1910 r2056 8 8 & flxmass_w, & 9 9 & d_u, d_v, d_t, d_qx, d_ps & 10 & , dudyn & 11 & , PVteta) 10 & , dudyn) 12 11 13 12 USE dimphy, only : klon,klev … … 21 20 22 21 #ifdef CPP_XIOS 22 USE xios, ONLY: xios_update_calendar 23 23 USE wxios, only: wxios_add_vaxis, wxios_set_timestep, wxios_closedef, & 24 wxios_update_calendar,histwrite_phy24 histwrite_phy 25 25 #endif 26 26 … … 58 58 real,intent(out) :: d_ps(klon) ! physics tendency on surface pressure 59 59 real,intent(in) :: dudyn(iim+1,jjmp1,klev) ! Not used 60 !FH! REAL PVteta(klon,nbteta)61 ! REAL PVteta(klon,1)62 real,intent(in) :: PVteta(klon,3) ! Not used ; should match definition63 ! in calfis.F64 60 65 61 integer,save :: itau=0 ! counter to count number of calls to physics … … 137 133 #ifdef CPP_XIOS 138 134 !XIOS 139 ! Déclaration de l'axe vertical du fichier: 140 CALL wxios_add_vaxis("presnivs", "histins", klev, presnivs) 141 142 !Déclaration du pas de temps: 135 ! Declare available vertical axes to be used in output files: 136 !CALL wxios_add_vaxis("presnivs", "dummy-not-used", klev, presnivs) 137 CALL wxios_add_vaxis("presnivs", klev, presnivs) 138 139 ! Declare time step length (in s): 143 140 CALL wxios_set_timestep(dtime) 144 141 145 !Finali sation du contexte:142 !Finalize the context: 146 143 CALL wxios_closedef() 147 144 #endif … … 187 184 !$OMP MASTER 188 185 !Increment XIOS time 189 CALL wxios_update_calendar(itau)186 CALL xios_update_calendar(itau) 190 187 !$OMP END MASTER 191 188 !$OMP BARRIER 192 189 193 !Send fields to XIOS: 190 !Send fields to XIOS: (NB these fields must also be defined as 191 ! <field id="..." /> in iodef.xml to be correctly used 194 192 CALL histwrite_phy("temperature",t) 193 CALL histwrite_phy("temp_newton",temp_newton) 195 194 CALL histwrite_phy("u",u) 196 195 CALL histwrite_phy("v",v)
Note: See TracChangeset
for help on using the changeset viewer.