Changeset 15805

Timestamp:

2022-04-29T18:36:22+02:00 (2 years ago)

Author:

jpalmier

Message:

fix sbccpl -- UM-MEDUSA coupling was uncomplete.

File:

• NEMO/branches/UKMO/NEMO_4.0.4_MEDUSA_externals_GC5/src/OCE/SBC/sbccpl.F90 (modified) (1 diff)

NEMO/branches/UKMO/NEMO_4.0.4_MEDUSA_externals_GC5/src/OCE/SBC/sbccpl.F90

@@ -1475 +1475 @@
       ENDIF
 
+      IF (ln_medusa) THEN
+        IF( srcv(jpr_atm_pco2)%laction) PCO2a_in_cpl(:,:) = frcv(jpr_atm_pco2)%z3(:,:,1)
+        IF( srcv(jpr_atm_dust)%laction) Dust_in_cpl(:,:) = frcv(jpr_atm_dust)%z3(:,:,1)
+      ENDIF
+
+#if defined key_cpl_carbon_cycle
       !                                                      ! ================== !
       !                                                      ! atmosph. CO2 (ppm) !