Changeset 8212 for branches/UKMO/dev_r5518_new_runoff_coupling
- Timestamp:
- 2017-06-23T17:08:25+02:00 (7 years ago)
- Location:
- branches/UKMO/dev_r5518_new_runoff_coupling/NEMOGCM/NEMO/OPA_SRC/SBC
- Files:
-
- 2 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 -
branches/UKMO/dev_r5518_new_runoff_coupling/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90
r8166 r8212 867 867 END DO 868 868 869 CALL runoff_rcv( isec)869 CALL runoff_rcv( isec) 870 870 871 871 ! ! ========================= !
Note: See TracChangeset
for help on using the changeset viewer.