- Timestamp:
- 2015-10-01T14:48:08+02:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2015/dev_r5721_CNRS9_NOC3_LDF/NEMOGCM/NEMO/OPA_SRC/DYN/dynspg.F90
r5120 r5770 271 271 CALL solver_init( nit000 ) ! Elliptic solver initialisation 272 272 #endif 273 274 ! ! Control of timestep choice275 IF( lk_dynspg_ts .OR. lk_dynspg_exp ) THEN276 IF( nn_cla == 1 ) CALL ctl_stop( 'Crossland advection not implemented for this free surface formulation' )277 ENDIF278 279 273 ! ! Control of hydrostatic pressure choice 280 IF( lk_dynspg_ts .AND. ln_dynhpg_imp ) THEN 281 CALL ctl_stop( 'Semi-implicit hpg not compatible with time splitting' ) 282 ENDIF 274 IF( lk_dynspg_ts .AND. ln_dynhpg_imp ) CALL ctl_stop( 'Semi-implicit hpg not compatible with time splitting' ) 283 275 ! 284 276 IF( nn_timing == 1 ) CALL timing_stop('dyn_spg_init')
Note: See TracChangeset
for help on using the changeset viewer.