Changeset 8212 for branches/UKMO/dev_r5518_new_runoff_coupling/NEMOGCM/NEMO/OPA_SRC/SBC/cpl_oasis3.F90
- Timestamp:
- 2017-06-23T17:08:25+02:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_new_runoff_coupling/NEMOGCM/NEMO/OPA_SRC/SBC/cpl_oasis3.F90
r8166 r8212 38 38 PUBLIC cpl_define 39 39 PUBLIC cpl_snd 40 PUBLIC runoff_rcv 40 41 PUBLIC cpl_rcv 41 42 PUBLIC cpl_freq … … 293 294 ! Define river runoff 294 295 CALL oasis_def_var (runoff_id, 'runoffo', id_part , (/ 1, 0 /), & 295 & OASIS_In , (/ 1 0 /) , OASIS_REAL, nerror )296 & OASIS_In , (/ 1, 10 /) , OASIS_REAL, nerror ) 296 297 IF ( nerror /= OASIS_Ok ) THEN 297 298 WRITE(numout,*) 'Failed to define transient runoffo' … … 426 427 END SUBROUTINE cpl_rcv 427 428 428 SUBROUTINE runoff_rcv( kstep)429 SUBROUTINE runoff_rcv( kstep) 429 430 430 431 INTEGER , INTENT(in ) :: kstep ! ocean time-step in seconds
Note: See TracChangeset
for help on using the changeset viewer.