Changeset 6023


Ignore:
Timestamp:
2015-12-08T18:13:20+01:00 (5 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:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r5518_coupling_GSI7_GSI8_landice/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_cice.F90

    r5797 r6023  
    475475      CALL nemo2cice(sss_m,sss,'T', 1. ) 
    476476 
     477      IF( ksbc == jp_purecpl ) THEN 
    477478! Sea ice surface skin temperature 
    478       DO jl=1,ncat 
    479         CALL nemo2cice(tsfc_ice(:,:,jl), trcrn(:,:,nt_tsfc,jl,:),'T',1.) 
    480       ENDDO  
     479         DO jl=1,ncat 
     480           CALL nemo2cice(tsfc_ice(:,:,jl), trcrn(:,:,nt_tsfc,jl,:),'T',1.) 
     481         ENDDO  
     482      ENDIF 
    481483 
    482484! x comp and y comp of surface ocean current 
Note: See TracChangeset for help on using the changeset viewer.