Changeset 9737 for NEMO/trunk/src/OCE/LDF/ldftra.F90
- Timestamp:
- 2018-06-05T14:37:53+02:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/OCE/LDF/ldftra.F90
r9598 r9737 195 195 IF( .NOT.ln_traldf_OFF ) THEN !== direction ==>> type of operator ==! 196 196 ioptio = 0 197 IF( ln_traldf_lev ) ioptio = ioptio + 1 198 IF( ln_traldf_hor ) ioptio = ioptio + 1 199 IF( ln_traldf_iso ) ioptio = ioptio + 1 200 IF( ioptio /= 1 ) CALL ctl_stop( 'tra_ldf_init: use ONE direction (level/hor/iso)' ) 197 IF( ln_traldf_lev ) ioptio = ioptio + 1 198 IF( ln_traldf_hor ) ioptio = ioptio + 1 199 IF( ln_traldf_iso ) ioptio = ioptio + 1 200 IF( ln_traldf_triad ) ioptio = ioptio + 1 201 IF( ioptio /= 1 ) CALL ctl_stop( 'tra_ldf_init: use ONE direction (level/hor/iso/triad)' ) 201 202 ! 202 203 ! ! defined the type of lateral diffusion from ln_traldf_... logicals
Note: See TracChangeset
for help on using the changeset viewer.