Changeset 11519 for NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/src

Timestamp:

2019-09-09T20:41:11+02:00 (5 years ago)

Author:

clem

Message:

debug bdy in case no sea ice

File:

• NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/src/OCE/BDY/bdydta.F90 (modified) (1 diff)

NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/src/OCE/BDY/bdydta.F90

@@ -450 +450 @@
          ENDIF
 
+#if defined key_si3
          IF( .NOT.ln_pnd ) THEN
             rn_ice_apnd = 0. ; rn_ice_hpnd = 0.
             CALL ctl_warn( 'rn_ice_apnd & rn_ice_hpnd = 0 when no ponds' )
          ENDIF
+#endif
 
          ! temp, salt, age and ponds of incoming ice