Changeset 5883 for branches/2015/dev_r5836_NOC3_vvl_by_default/NEMOGCM/NEMO/OPA_SRC/step.F90

Timestamp:

2015-11-13T08:01:08+01:00 (8 years ago)

Author:

gm

Message:

#1613: vvl by default: TRA/TRC remove optimization associated with linear free surface

File:

• branches/2015/dev_r5836_NOC3_vvl_by_default/NEMOGCM/NEMO/OPA_SRC/step.F90 (modified) (3 diffs)

branches/2015/dev_r5836_NOC3_vvl_by_default/NEMOGCM/NEMO/OPA_SRC/step.F90

@@ -179 +179 @@
       !<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                              CALL ssh_nxt       ( kstp )  ! after ssh (includes call to div_hor)
-      IF( .NOT.ln_linssh )   CALL dom_vvl_sf_nxt( kstp )  ! after vertical scale factors 
+                             CALL dom_vvl_sf_nxt( kstp )  ! after vertical scale factors 
                              CALL wzv           ( kstp )  ! now cross-level velocity 
 
@@ -217 +217 @@
 
                                   CALL div_hor( kstp )         ! Horizontal divergence  (2nd call in time-split case)
-          IF( .NOT.ln_linssh )    CALL dom_vvl_sf_nxt( kstp, kcall=2 )  ! after vertical scale factors (update depth average component)
+                                  CALL dom_vvl_sf_nxt( kstp, kcall=2 )  ! after vertical scale factors (update depth average component)
                                   CALL wzv           ( kstp )  ! now cross-level velocity 
       ENDIF
@@ -331 +331 @@
 
                                CALL ssh_swp( kstp )         ! swap of sea surface height
-      IF( .NOT.ln_linssh )     CALL dom_vvl_sf_swp( kstp )  ! swap of vertical scale factors
+                               CALL dom_vvl_sf_swp( kstp )  ! swap of vertical scale factors
       !