Changeset 10400

Timestamp:

2018-12-17T14:13:38+01:00 (5 years ago)

Author:

antsia

Message:

the correct option for ln_rstart=F

Location:

branches/UKMO/dev_isf_divg_corr_GO6_package_r9385/NEMOGCM/NEMO/OPA_SRC

Files:

• DYN/divcur.F90 (modified) (1 diff)
• TRA/trasbc.F90 (modified) (1 diff)

branches/UKMO/dev_isf_divg_corr_GO6_package_r9385/NEMOGCM/NEMO/OPA_SRC/DYN/divcur.F90

@@ -328 +328 @@
       !                                                ! ===============
 
-      IF( ln_iscpl .AND. kt == nit000)   THEN 
+      IF( ln_iscpl .AND. ln_rstart .AND. kt == nit000)   THEN 
          IF(lwp) WRITE(numout,*) 'for nit000, update hdivn after calling div_cur with the divergence correction'
                           CALL iscpl_div( hdivn ) !

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

@@ -223 +223 @@
 
       !---start the tendency with tracer source/sink from divergence correction
-      IF ( ln_iscpl .AND. kt == nit000) THEN        
+      IF ( ln_iscpl .AND. ln_rstart .AND. kt == nit000) THEN        
          CALL iscpl_div_tra( tsa )
       ENDIF