Context Navigation

Changeset 14202 for NEMO/trunk/src/OCE

Timestamp:

2020-12-17T17:54:53+01:00 (3 years ago)

Author:

emanuelaclementi

Message:

correction for waves in dynspg.F90

File:

-                      r14072
+                      r14202
       IF(      ln_apr_dyn                                                &   ! atmos. pressure
          .OR.  ( .NOT.ln_dynspg_ts .AND. (ln_tide_pot .AND. ln_tide) )   &   ! tide potential (no time slitting)
+         .OR.  ln_ice_embd ) THEN                                            ! embedded sea-ice
+         .OR.  ln_ice_embd                                               &   ! embedded sea-ice
+         .OR.  ( ln_wave .and. ln_bern_srfc ) ) THEN                         ! depth-independent Bernoulli head
+         !
          DO_2D( 0, 0, 0, 0 )

Note: See TracChangeset for help on using the changeset viewer.