Changeset 6500 for branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/OPA_SRC

Timestamp:

2016-04-28T12:07:16+02:00 (8 years ago)

Author:

timgraham

Message:

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

File:

• branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_cice.F90 (modified) (3 diffs)

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

@@ -208 +208 @@
          CALL wrk_alloc( jpi,jpj,jpk, ztfrz3d ) 
          DO jk=1,jpk
-            ztfrz3d(:,:,jk) = eos_fzp( tsn(:,:,jk,jp_sal), fsdept_n(:,:,jk) )
+             CALL eos_fzp( tsn(:,:,jk,jp_sal), ztfrz3d(:,:,jk), fsdept_n(:,:,jk) )
          ENDDO
          tsn(:,:,:,jp_tem) = MAX( tsn(:,:,:,jp_tem), ztfrz3d )
@@ -224 +224 @@
 
       ! calculate surface freezing temperature and send to CICE
-      sstfrz(:,:) = eos_fzp(sss_m(:,:), fsdept_n(:,:,1)) 
+      CALL  eos_fzp(sss_m(:,:), sstfrz(:,:), fsdept_n(:,:,1)) 
       CALL nemo2cice(sstfrz,Tf, 'T', 1. )
 
@@ -462 +462 @@
 
 ! Recalculate freezing temperature and send to CICE 
-      sstfrz(:,:)=eos_fzp(sss_m(:,:), fsdept_n(:,:,1)) 
+      CALL eos_fzp(sss_m(:,:), sstfrz(:,:), fsdept_n(:,:,1)) 
       CALL nemo2cice(sstfrz,Tf,'T', 1. )