Changeset 6023 for branches

Timestamp:

2015-12-08T18:13:20+01:00 (8 years ago)

Author:

davestorkey

Message:

Bug fix for UKMO/dev_r5518_coupling_GSI7_GSI8_landice branch: protect a call to nemo2cice which is
only required for coupled jobs.

File:

• branches/UKMO/dev_r5518_coupling_GSI7_GSI8_landice/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_cice.F90 (modified) (1 diff)

branches/UKMO/dev_r5518_coupling_GSI7_GSI8_landice/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_cice.F90

@@ -475 +475 @@
       CALL nemo2cice(sss_m,sss,'T', 1. )
 
+      IF( ksbc == jp_purecpl ) THEN
 ! Sea ice surface skin temperature
-      DO jl=1,ncat
-        CALL nemo2cice(tsfc_ice(:,:,jl), trcrn(:,:,nt_tsfc,jl,:),'T',1.)
-      ENDDO 
+         DO jl=1,ncat
+           CALL nemo2cice(tsfc_ice(:,:,jl), trcrn(:,:,nt_tsfc,jl,:),'T',1.)
+         ENDDO 
+      ENDIF
 
 ! x comp and y comp of surface ocean current