- Timestamp:
- 2020-08-06T17:07:09+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/UKMO/NEMO_4.0.1_penetrating_solar/src/OCE/SBC/sbccpl.F90
r13376 r13389 576 576 ! ! transmitted solar ! 577 577 ! ! ------------------------- ! 578 srcv(jpr_ topm)%clname = 'OQtr'578 srcv(jpr_qtr )%clname = 'OQtr' 579 579 IF( TRIM(sn_rcv_qtr%cldes) == 'coupled' ) THEN 580 580 IF ( TRIM( sn_rcv_qtr%clcat ) == 'yes' ) THEN
Note: See TracChangeset
for help on using the changeset viewer.