Changeset 13389 for NEMO/branches

Timestamp:

2020-08-06T17:07:09+02:00 (4 years ago)

Author:

dancopsey

Message:

Fix compile errors.

Location:

NEMO/branches/UKMO/NEMO_4.0.1_penetrating_solar/src/OCE/SBC

Files:

• cpl_oasis3.F90 (modified) (1 diff)
• sbccpl.F90 (modified) (1 diff)

NEMO/branches/UKMO/NEMO_4.0.1_penetrating_solar/src/OCE/SBC/cpl_oasis3.F90

@@ -66 +66 @@
    INTEGER                    ::   nsnd         ! total number of fields sent 
    INTEGER                    ::   ncplmodel    ! Maximum number of models to/from which NEMO is potentialy sending/receiving data
-   INTEGER, PUBLIC, PARAMETER ::   nmaxfld=60   ! Maximum number of coupling fields
+   INTEGER, PUBLIC, PARAMETER ::   nmaxfld=61   ! Maximum number of coupling fields
    INTEGER, PUBLIC, PARAMETER ::   nmaxcat=5    ! Maximum number of coupling fields
    INTEGER, PUBLIC, PARAMETER ::   nmaxcpl=5    ! Maximum number of coupling fields

NEMO/branches/UKMO/NEMO_4.0.1_penetrating_solar/src/OCE/SBC/sbccpl.F90

@@ -576 +576 @@
       !                                                      !    transmitted solar      !   
       !                                                      ! ------------------------- !
-      srcv(jpr_topm )%clname = 'OQtr'
+      srcv(jpr_qtr )%clname = 'OQtr'
       IF( TRIM(sn_rcv_qtr%cldes) == 'coupled' ) THEN
          IF ( TRIM( sn_rcv_qtr%clcat ) == 'yes' ) THEN