Changeset 6651

Timestamp:

2016-06-01T17:04:33+02:00 (8 years ago)

Author:

frrh

Message:

Add syntax bug fix to non-CICE meltponds case.

Add CPP controls to prevent references to undefined fields
when CICE is not included in the compilation.

File:

• branches/UKMO/dev_r5518_coupling_GSI7_GSI8_landice_bitcomp/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90 (modified) (4 diffs)

branches/UKMO/dev_r5518_coupling_GSI7_GSI8_landice_bitcomp/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90

@@ -734 +734 @@
       END SELECT
 #else
-      IF( TRIM( sn_snd_mpnd%cldes /= 'none' ) THEN
+      IF( TRIM( sn_snd_mpnd%cldes ) /= 'none' ) THEN
          CALL ctl_stop('Meltponds can only be used with CICEv5')
       ENDIF
@@ -2115 +2115 @@
       ENDIF
       !
+#if defined key_cice && ! defined key_cice4
       ! Send meltpond fields 
       IF( ssnd(jps_a_p)%laction .OR. ssnd(jps_ht_p)%laction ) THEN
@@ -2157 +2158 @@
          IF( ssnd(jps_kice)%laction )   CALL cpl_snd( jps_kice, isec, ztmp3, info )
       ENDIF
+#endif
       !
       !
@@ -2338 +2340 @@
       IF( ssnd(jps_taum  )%laction )  CALL cpl_snd( jps_taum  , isec, RESHAPE ( taum, (/jpi,jpj,1/) ), info )
       
+#if defined key_cice
       ztmp1(:,:) = sstfrz(:,:) + rt0
       IF( ssnd(jps_sstfrz)%laction )  CALL cpl_snd( jps_sstfrz, isec, RESHAPE ( ztmp1, (/jpi,jpj,1/) ), info )
+#endif
       !
       CALL wrk_dealloc( jpi,jpj, zfr_l, ztmp1, ztmp2, zotx1, zoty1, zotz1, zitx1, zity1, zitz1 )