Changeset 6500


Ignore:
Timestamp:
2016-04-28T12:07:16+02:00 (6 years ago)
Author:
timgraham
Message:

Bug fix in sbcice_cice that appeared due to upgrade to head of branch

File:
1 edited

Legend:

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

    r6488 r6500  
    208208         CALL wrk_alloc( jpi,jpj,jpk, ztfrz3d )  
    209209         DO jk=1,jpk 
    210             ztfrz3d(:,:,jk) = eos_fzp( tsn(:,:,jk,jp_sal), fsdept_n(:,:,jk) ) 
     210             CALL eos_fzp( tsn(:,:,jk,jp_sal), ztfrz3d(:,:,jk), fsdept_n(:,:,jk) ) 
    211211         ENDDO 
    212212         tsn(:,:,:,jp_tem) = MAX( tsn(:,:,:,jp_tem), ztfrz3d ) 
     
    224224 
    225225      ! calculate surface freezing temperature and send to CICE 
    226       sstfrz(:,:) = eos_fzp(sss_m(:,:), fsdept_n(:,:,1))  
     226      CALL  eos_fzp(sss_m(:,:), sstfrz(:,:), fsdept_n(:,:,1))  
    227227      CALL nemo2cice(sstfrz,Tf, 'T', 1. ) 
    228228 
     
    462462 
    463463! Recalculate freezing temperature and send to CICE  
    464       sstfrz(:,:)=eos_fzp(sss_m(:,:), fsdept_n(:,:,1))  
     464      CALL eos_fzp(sss_m(:,:), sstfrz(:,:), fsdept_n(:,:,1))  
    465465      CALL nemo2cice(sstfrz,Tf,'T', 1. ) 
    466466 
Note: See TracChangeset for help on using the changeset viewer.