Changeset 13389
- Timestamp:
- 2020-08-06T17:07:09+02:00 (4 years ago)
- Location:
- NEMO/branches/UKMO/NEMO_4.0.1_penetrating_solar/src/OCE/SBC
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/UKMO/NEMO_4.0.1_penetrating_solar/src/OCE/SBC/cpl_oasis3.F90
r11715 r13389 66 66 INTEGER :: nsnd ! total number of fields sent 67 67 INTEGER :: ncplmodel ! Maximum number of models to/from which NEMO is potentialy sending/receiving data 68 INTEGER, PUBLIC, PARAMETER :: nmaxfld=6 0! Maximum number of coupling fields68 INTEGER, PUBLIC, PARAMETER :: nmaxfld=61 ! Maximum number of coupling fields 69 69 INTEGER, PUBLIC, PARAMETER :: nmaxcat=5 ! Maximum number of coupling fields 70 70 INTEGER, PUBLIC, PARAMETER :: nmaxcpl=5 ! Maximum number of coupling fields -
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.