- Timestamp:
- 2010-10-14T15:45:22+02:00 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/SBC/cpl_oasis3.F90
r2236 r2267 29 29 USE mod_prism_put_proto ! OASIS3 prism module for snding 30 30 USE mod_prism_get_proto ! OASIS3 prism module for receiving 31 USE mod_comprism_proto ! OASIS3 prism module to get coupling frequency 31 32 USE par_oce ! ocean parameters 32 33 USE dom_oce ! ocean space and time domain … … 61 62 PUBLIC cpl_prism_snd 62 63 PUBLIC cpl_prism_rcv 64 PUBLIC cpl_prism_freq 63 65 PUBLIC cpl_prism_finalize 64 66 … … 210 212 !! * Arguments 211 213 !! 212 INTEGER, INTENT( IN ) :: kid ! variable in tex in the array214 INTEGER, INTENT( IN ) :: kid ! variable index in the array 213 215 INTEGER, INTENT( OUT ) :: kinfo ! OASIS3 info argument 214 216 INTEGER, INTENT( IN ) :: kstep ! ocean time-step in seconds … … 247 249 !! like stresses and fluxes from the coupler or remote application. 248 250 !!---------------------------------------------------------------------- 249 INTEGER, INTENT( IN ) :: kid ! variable in tex in the array251 INTEGER, INTENT( IN ) :: kid ! variable index in the array 250 252 INTEGER, INTENT( IN ) :: kstep ! ocean time-step in seconds 251 253 REAL(wp), DIMENSION(jpi,jpj), INTENT( INOUT ) :: pdata ! IN to keep the value if nothing is done … … 293 295 294 296 297 FUNCTION cpl_prism_freq( kid ) 298 299 !!--------------------------------------------------------------------- 300 !! *** ROUTINE cpl_prism_freq *** 301 !! 302 !! ** Purpose : - send back the coupling frequency for a particular field 303 !!---------------------------------------------------------------------- 304 INTEGER,INTENT( IN ) :: kid ! variable index 305 INTEGER :: cpl_prism_freq ! coupling frequency 306 cpl_prism_freq = ig_def_freq( kid ) 307 308 END FUNCTION cpl_prism_freq 309 310 295 311 SUBROUTINE cpl_prism_finalize 296 312
Note: See TracChangeset
for help on using the changeset viewer.