- Timestamp:
- 2013-11-19T12:19:21+01:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2013/dev_LOCEAN_CMCC_INGV_MERC_UKMO_2013/NEMOGCM/NEMO/OPA_SRC/DYN/dynspg.F90
r3625 r4245 14 14 USE oce ! ocean dynamics and tracers variables 15 15 USE dom_oce ! ocean space and time domain variables 16 USE c1d ! 1D vertical configuration 16 17 USE phycst ! physical constants 17 18 USE sbc_oce ! surface boundary condition: ocean … … 220 221 IF(lk_dynspg_flt) ioptio = ioptio + 1 221 222 ! 222 IF( ( ioptio > 1 .AND. .NOT. lk_esopa ) .OR. ioptio == 0) &223 IF( ( ioptio > 1 .AND. .NOT. lk_esopa ) .OR. ( ioptio == 0 .AND. .NOT. lk_c1d ) ) & 223 224 & CALL ctl_stop( ' Choose only one surface pressure gradient scheme with a key cpp' ) 224 225 !
Note: See TracChangeset
for help on using the changeset viewer.