Changeset 13388 for NEMO/branches/UKMO
- Timestamp:
- 2020-08-06T17:05:16+02:00 (4 years ago)
- Location:
- NEMO/branches/UKMO/NEMO_4.0.1_icesheet_and_river_coupling/src/OCE/SBC
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/UKMO/NEMO_4.0.1_icesheet_and_river_coupling/src/OCE/SBC/cpl_rnf_1d.F90
r13102 r13388 143 143 144 144 IF ( MINVAL(rivers%river_area) <= 0 ) THEN 145 CALL oasis_abort ( ncomp_id, 'cpl_rnf_1d_init', 'There is at least one river with a river outflow area of zero. Please check your file_riv_number file that all the allocated river numbers are at ocean points as defined by the bathymetry file.') ; RETURN 145 WRITE(numout,*) 'ERROR: There is at least one river with a river outflow area of zero. Please check your file_riv_number file' 146 WRITE(numout,*) 'that all the allocated river numbers are at ocean points as defined by the bathymetry file with no river' 147 WRITE(numout,*) 'numbers within the north fold or wraparound points.' 148 CALL ctl_stop ( 'STOP', 'ERROR: There is at least one river with a river outflow area of zero. See stdout.') 146 149 END IF 147 150 -
NEMO/branches/UKMO/NEMO_4.0.1_icesheet_and_river_coupling/src/OCE/SBC/sbccpl.F90
r12849 r13388 119 119 INTEGER, PARAMETER :: jpr_grnm = 58 ! Greenland ice mass 120 120 INTEGER, PARAMETER :: jpr_antm = 59 ! Antarctic ice mass 121 INTEGER, PARAMETER :: jpr_rnf_1d = 60 ! 1D river runoff 122 123 INTEGER, PARAMETER :: jprcv = 60 ! total number of fields received 121 INTEGER, PARAMETER :: jpr_rnf_1d = 60 ! 1D river runoff 122 INTEGER, PARAMETER :: jpr_qtr = 61 ! Transmitted solar 123 124 INTEGER, PARAMETER :: jprcv = 61 ! total number of fields received 124 125 125 126 INTEGER, PARAMETER :: jps_fice = 1 ! ice fraction sent to the atmosphere
Note: See TracChangeset
for help on using the changeset viewer.