Changeset 5522


Ignore:
Timestamp:
2015-06-30T16:22:11+02:00 (5 years ago)
Author:
dancopsey
Message:

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

File:
1 edited

Legend:

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

    r5394 r5522  
    189189         ztfrz3d(:,:,jk) = eos_fzp( tsn(:,:,jk,jp_sal), fsdept_n(:,:,jk) ) 
    190190      ENDDO 
    191       sstfrz(:,:)=ztfrz3d(:,:,1) 
    192191 
    193192      !Ensure that no temperature points are below freezing if not a NEMO restart 
     
    225224      IF( sbc_ice_cice_alloc() /= 0 )   CALL ctl_stop( 'STOP', 'sbc_ice_cice_alloc : unable to allocate cice arrays' ) 
    226225 
    227  
     226      ! Populate the surface freezing temperature array 
     227      sstfrz(:,:)=ztfrz3d(:,:,1) 
    228228 
    229229      fr_iu(:,:)=0.0 
Note: See TracChangeset for help on using the changeset viewer.