Ignore:
Timestamp:
2018-06-19T21:54:00+02:00 (2 years ago)
Author:
antsia
Message:

delete iscplhsb, add iscpldiv and make the code readable

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_isf_divg_corr_GO6_package_r9385/NEMOGCM/NEMO/OPA_SRC/TRA/trasbc.F90

    r9630 r9813  
    3333   USE timing          ! Timing 
    3434   USE eosbn2 
     35   USE iscpldiv 
    3536#if defined key_asminc    
    3637   USE asminc          ! Assimilation increment 
     
    223224      !---start the tendency with tracer source/sink from divergence correction 
    224225      IF ( ln_iscpl .AND. kt == nit000) THEN         
    225          IF (lwp) WRITE(numout,*) 'add tendency tsa due to re-meshing at kt = nit000' 
    226          tsa(:,:,:,jp_tem) = tsa(:,:,:,jp_tem) + rhdivdiff_trac(:,:,:,jp_tem)*tmask(:,:,:) 
    227          tsa(:,:,:,jp_sal) = tsa(:,:,:,jp_sal) + rhdivdiff_trac(:,:,:,jp_sal)*tmask(:,:,:) 
     226         CALL iscpl_div_tra( tsa ) 
    228227      ENDIF 
    229228 
Note: See TracChangeset for help on using the changeset viewer.