Changeset 14858

Timestamp:

2021-05-12T20:24:25+02:00 (3 years ago)

Author:

smueller

Message:

Adjustment of two logical expressions (ticket #2353)

File:

• NEMO/branches/2021/dev_r14122_HPC-08_Mueller_OSMOSIS_streamlining/src/OCE/ZDF/zdfosm.F90 (modified) (2 diffs)

NEMO/branches/2021/dev_r14122_HPC-08_Mueller_OSMOSIS_streamlining/src/OCE/ZDF/zdfosm.F90

@@ -1174 +1174 @@
       !
       zfwd = 1.0_wp
-      IF( PRESENT(fwd) .AND. ( fwd==.FALSE. ) ) zfwd = -1.0_wp
+      IF( PRESENT(fwd) .AND. ( .NOT. fwd ) ) zfwd = -1.0_wp
       DO_2D( 0, 0, 0, 0 )
          ztmp      = pu(ji,jj)
@@ -1207 +1207 @@
       !
       zfwd = 1.0_wp
-      IF( PRESENT(fwd) .AND. ( fwd==.FALSE. ) ) zfwd = -1.0_wp
+      IF( PRESENT(fwd) .AND. ( .NOT. fwd ) ) zfwd = -1.0_wp
       jktop = 1
       IF( PRESENT(ktop) ) jktop = ktop