Changeset 3284 for branches/2011/dev_NEMO_MERGE_2011/NEMOGCM
- Timestamp:
- 2012-01-27T14:21:11+01:00 (13 years ago)
- Location:
- branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/DYN/dynldf.F90
r3186 r3284 150 150 IF( ln_dynldf_hor ) ioptio = ioptio + 1 151 151 IF( ln_dynldf_iso ) ioptio = ioptio + 1 152 IF( ioptio /=1 ) CALL ctl_stop( ' use only ONE direction (level/hor/iso)' )152 IF( ioptio > 1 ) CALL ctl_stop( ' use only ONE direction (level/hor/iso)' ) 153 153 154 154 ! ! Set nldf, the type of lateral diffusion, from ln_dynldf_... logicals -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/TRA/traldf.F90
r3186 r3284 163 163 IF( ln_traldf_hor ) ioptio = ioptio + 1 164 164 IF( ln_traldf_iso ) ioptio = ioptio + 1 165 IF( ioptio /=1 ) CALL ctl_stop( ' use only ONE direction (level/hor/iso)' )165 IF( ioptio > 1 ) CALL ctl_stop( ' use only ONE direction (level/hor/iso)' ) 166 166 167 167 ! defined the type of lateral diffusion from ln_traldf_... logicals
Note: See TracChangeset
for help on using the changeset viewer.