- Timestamp:
- 2021-05-12T20:24:25+02:00 (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2021/dev_r14122_HPC-08_Mueller_OSMOSIS_streamlining/src/OCE/ZDF/zdfosm.F90
r14828 r14858 1174 1174 ! 1175 1175 zfwd = 1.0_wp 1176 IF( PRESENT(fwd) .AND. ( fwd==.FALSE.) ) zfwd = -1.0_wp1176 IF( PRESENT(fwd) .AND. ( .NOT. fwd ) ) zfwd = -1.0_wp 1177 1177 DO_2D( 0, 0, 0, 0 ) 1178 1178 ztmp = pu(ji,jj) … … 1207 1207 ! 1208 1208 zfwd = 1.0_wp 1209 IF( PRESENT(fwd) .AND. ( fwd==.FALSE.) ) zfwd = -1.0_wp1209 IF( PRESENT(fwd) .AND. ( .NOT. fwd ) ) zfwd = -1.0_wp 1210 1210 jktop = 1 1211 1211 IF( PRESENT(ktop) ) jktop = ktop
Note: See TracChangeset
for help on using the changeset viewer.