Changeset 6075 for branches/2015/dev_merge_2015/NEMOGCM/NEMO/OPA_SRC/DOM/iscplhsb.F90

Timestamp:

2015-12-17T09:50:30+01:00 (8 years ago)

Author:

timgraham

Message:

Lots of bug fixes to get sette to compile

File:

• branches/2015/dev_merge_2015/NEMOGCM/NEMO/OPA_SRC/DOM/iscplhsb.F90 (modified) (2 diffs)

branches/2015/dev_merge_2015/NEMOGCM/NEMO/OPA_SRC/DOM/iscplhsb.F90

@@ -32 +32 @@
    PUBLIC   iscpl_cons       
    !! * Substitutions  
-#  include "domzgr_substitute.h90"  
 #  include "vectopt_loop_substitute.h90"
    !!----------------------------------------------------------------------
@@ -95 +94 @@
       ! 
       zdssh(:,:) = sshn(:,:) * ssmask(:,:) - sshb(:,:) * psmask_b(:,:)
-      IF ( lk_vvl ) zdssh = 0.0_wp ! already included in the levels by definition
+      IF (.NOT. ln_linssh ) zdssh = 0.0_wp ! already included in the levels by definition
       
       DO jk = 1,jpk-1