Changeset 9803


Ignore:
Timestamp:
2018-06-15T12:06:21+02:00 (2 years ago)
Author:
dancopsey
Message:

Stop copying of solar fluxes overwriting halo_info in CICE (needed for MPI tasks).

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_merge_2017_CICE_interface/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90

    r9764 r9803  
    255255         &                  sn_rcv_iceflx, sn_rcv_co2   , nn_cplmodel , ln_usecplmask, sn_rcv_mslp ,   & 
    256256         &                  sn_rcv_icb   , sn_rcv_isf   , sn_rcv_wfreq , sn_rcv_tauw, nn_cats_cpl  ,   & 
    257          &                  sn_rcv_ts_ice, sn_snd_cond  , sn_snd_mpnd , sn_snd_sstfrz, sn_snd_thick1   
     257         &                  sn_rcv_ts_ice, sn_snd_cond  , sn_snd_mpnd , sn_snd_sstfrz, sn_snd_thick1,  & 
     258         &                  sn_snd_ttilyr  
    258259 
    259260      !!--------------------------------------------------------------------- 
     
    20422043      ELSE 
    20432044         qsr_tot(:,:  ) = zqsr_tot(:,:  ) 
    2044          qsr_ice(:,:,:) = zqsr_ice(:,:,:) 
     2045         IF ( TRIM( sn_rcv_qsr%cldes ) /= 'oce only' ) THEN 
     2046            qsr_ice(:,:,:) = zqsr_ice(:,:,:) 
     2047         ENDIF 
    20452048      ENDIF 
    20462049 
     
    23122315      ENDIF 
    23132316 
    2314 #if defined key_lim3 
     2317#if defined key_lim3 || defined key_cice 
    23152318      !                                                      ! ------------------------- ! 
    23162319      !                                                      !      Ice melt ponds       !  
Note: See TracChangeset for help on using the changeset viewer.