Changeset 9813 for branches/UKMO/dev_isf_divg_corr_GO6_package_r9385/NEMOGCM/NEMO/OPA_SRC/TRA/trasbc.F90

Timestamp:

2018-06-19T21:54:00+02:00 (6 years ago)

Author:

antsia

Message:

delete iscplhsb, add iscpldiv and make the code readable

File:

• branches/UKMO/dev_isf_divg_corr_GO6_package_r9385/NEMOGCM/NEMO/OPA_SRC/TRA/trasbc.F90 (modified) (2 diffs)

branches/UKMO/dev_isf_divg_corr_GO6_package_r9385/NEMOGCM/NEMO/OPA_SRC/TRA/trasbc.F90

@@ -33 +33 @@
    USE timing          ! Timing
    USE eosbn2
+   USE iscpldiv
 #if defined key_asminc   
    USE asminc          ! Assimilation increment
@@ -223 +224 @@
       !---start the tendency with tracer source/sink from divergence correction
       IF ( ln_iscpl .AND. kt == nit000) THEN        
-         IF (lwp) WRITE(numout,*) 'add tendency tsa due to re-meshing at kt = nit000'
-         tsa(:,:,:,jp_tem) = tsa(:,:,:,jp_tem) + rhdivdiff_trac(:,:,:,jp_tem)*tmask(:,:,:)
-         tsa(:,:,:,jp_sal) = tsa(:,:,:,jp_sal) + rhdivdiff_trac(:,:,:,jp_sal)*tmask(:,:,:)
+         CALL iscpl_div_tra( tsa )
       ENDIF