Changeset 5522 for branches/UKMO/dev_r5377_UKMO1_CICE_coupling_GSI7/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_cice.F90

Timestamp:

2015-06-30T16:22:11+02:00 (9 years ago)

Author:

dancopsey

Message:

Move the location where sstfrz is populated to after it is allocated bounds in sbc_ice_alloc.

File:

• branches/UKMO/dev_r5377_UKMO1_CICE_coupling_GSI7/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_cice.F90 (modified) (2 diffs)

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

@@ -189 +189 @@
          ztfrz3d(:,:,jk) = eos_fzp( tsn(:,:,jk,jp_sal), fsdept_n(:,:,jk) )
       ENDDO
-      sstfrz(:,:)=ztfrz3d(:,:,1)
 
       !Ensure that no temperature points are below freezing if not a NEMO restart
@@ -225 +224 @@
       IF( sbc_ice_cice_alloc() /= 0 )   CALL ctl_stop( 'STOP', 'sbc_ice_cice_alloc : unable to allocate cice arrays' )
 
-
+      ! Populate the surface freezing temperature array
+      sstfrz(:,:)=ztfrz3d(:,:,1)
 
       fr_iu(:,:)=0.0